Return to lonratparms.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratparms.pm between versions 1.23 and 1.24

version 1.23, 2005/04/07 06:56:27	version 1.24, 2006/04/04 15:32:12
Line 76 sub handler {	Line 76 sub handler {

# --------------------------------------------------- Print input screen header	# --------------------------------------------------- Print input screen header
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
my $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map');
my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter',	my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter',
'de' => 'Default',	'de' => 'Default',
'va' => 'Value',	'va' => 'Value',
'se' => 'Set');	'se' => 'Set');
	my $js = (<<ENDHEADER);
$r->print(<<ENDHEADER);	<script type="text/javascript">
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
<script language="JavaScript">

function pclose() {	function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",	parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
Line 105 sub handler {	Line 101 sub handler {

function setparms() {	function setparms() {
ENDHEADER	ENDHEADER
$r->print('var colon=""; opener.objparms['.$env{'form.resid'}.']="";');	$js .= 'var colon=""; opener.objparms['.$env{'form.resid'}.']="";';
map {	foreach my $key (keys(%content)) {
$r->print("\nif (document.parameters.def_".$_.	$js .= "\nif (document.parameters.def_".$key.
'.checked) { opener.objparms['.$env{'form.resid'}.	'.checked) { opener.objparms['.$env{'form.resid'}.
']+=colon+"'.$type{$_}.	']+=colon+"'.$type{$key}.
'___'.$_.'___"+document.parameters.'.$_.'.value; colon=":"; }');	'___'.$key.'___"+document.parameters.'.$key.'.value; colon=":"; }';
} keys %content;	}
$r->print(<<ENDDOCUMENT);	$js .= '
opener.save();	opener.save();
window.close();	window.close();
}	}
</script>	</script>
</head>	';
$bodytag	my $start_page =
	&Apache::loncommon::start_page('Set Resource Parameters in Map',$js);

	$r->print(<<ENDDOCUMENT);
	$start_page
<form action="javascript:setparms();" method="post" name="parameters">	<form action="javascript:setparms();" method="post" name="parameters">
<input type="hidden" value='' name="pres_value">	<input type="hidden" value='' name="pres_value">
<input type="hidden" value='' name="pres_type">	<input type="hidden" value='' name="pres_type">
Line 126 $bodytag	Line 126 $bodytag
<table border=2>	<table border=2>
<tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr>	<tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr>
ENDDOCUMENT	ENDDOCUMENT

### %display=&Apache::lonlocal::texthash(%display);	### %display=&Apache::lonlocal::texthash(%display);
my $enter=&mt('Enter');	my $enter=&mt('Enter');
foreach (sort(keys(%content))) {	foreach my $key (sort(keys(%content))) {
my $cur=$content{$_};	my $cur=$content{$key};
# Should if(defined($value{$_})) be if(exists($value{$_})) ?	# Should if(defined($value{$key})) be if(exists($value{$key})) ?
if (defined($value{$_})) { $cur=$value{$_}; };	if (defined($value{$key})) { $cur=$value{$key}; };
$r->print(<<"END");	$r->print(<<"END");
<tr><td><b>$display{$_}</b><br><tt>$_</tt></td>	<tr><td><b>$display{$key}</b><br><tt>$key</tt></td>
<td> $content{$_}</td>	<td> $content{$key}</td>
<td><input type="text" size="10" name="$_" value="$cur">	<td><input type="text" size="10" name="$key" value="$cur">
<a href='javascript:pjump("$type{$_}","$display{$_}",document.parameters.$_.value,"$_","parameters.pres","stpr");'>$enter</a></td>	<a href='javascript:pjump("$type{$key}","$display{$key}",document.parameters.$key.value,"$key","parameters.pres","stpr");'>$enter</a></td>
<td><input type="checkbox" name="def_$_"	<td><input type="checkbox" name="def_$key"
END	END
if ($value{$_}) { $r->print(' checked'); }	if ($value{$key}) { $r->print(' checked'); }
$r->print('></td></tr>');	$r->print('></td></tr>');
}	}
$r->print(	$r->print('</table><br />
'</table><br><input type="submit" value="'.&mt('Set').'"></form></body></html>');	<input type="submit" value="'.&mt('Set').'"></form>'.
	&Apache::loncommon::end_page());
return OK;	return OK;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.23
changed lines
	Added in v.1.24