rat/lonratparms.pm - diff

Return to lonratparms.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratparms.pm between versions 1.8 and 1.9

version 1.8, 2001/11/29 19:23:49	version 1.9, 2002/03/11 19:54:31
Line 38	Line 38
# 3/1 Gerd Kortemeyer)	# 3/1 Gerd Kortemeyer)
#	#
# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer	# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer
	# 03/11/02 Matthew Hall
#	#
package Apache::lonratparms;	package Apache::lonratparms;

Line 52 sub handler {	Line 53 sub handler {

# Get query string for limited number of parameters	# Get query string for limited number of parameters

map {	foreach (split(/&/,$ENV{'QUERY_STRING'})) {
my ($name, $value) = split(/=/,$_);	my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;	$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
Line 62 sub handler {	Line 63 sub handler {
$ENV{'form.'.$name}=$value;	$ENV{'form.'.$name}=$value;
}	}
}	}
} (split(/&/,$ENV{'QUERY_STRING'}));	}


# ------------------------------------------------------------------- Read file	# ------------------------------------------------------------------- Read file
Line 74 sub handler {	Line 75 sub handler {
my %display;	my %display;
my %value;	my %value;

map {	foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
if ($_=~/^parameter\_/) {	if ($_=~/^parameter\_/) {
$content{$_}=&Apache::lonnet::metadata($uri,$_);	$content{$_}=&Apache::lonnet::metadata($uri,$_);
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');	$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');	$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
}	}
} split(/\,/,&Apache::lonnet::metadata($uri,'keys'));	}

# ---------------------------------------------------------- Current Parameters	# ---------------------------------------------------------- Current Parameters

map {	foreach (split(/\:/,$ENV{'form.parms'})) {
my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);	my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);
unless ($type{$pname}) { $type{$pname}=$ptype; }	unless ($type{$pname}) { $type{$pname}=$ptype; }
$value{$pname}=$pvalue;	$value{$pname}=$pvalue;
} split(/\:/,$ENV{'form.parms'});	}

# --------------------------------------------------- Print input screen header	# --------------------------------------------------- Print input screen header
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
Line 143 ENDHEADER	Line 144 ENDHEADER
<table border=2>	<table border=2>
<tr><th>Parameter</th><th>Default</th><th>Value</th><th>Set?</th></tr>	<tr><th>Parameter</th><th>Default</th><th>Value</th><th>Set?</th></tr>
ENDDOCUMENT	ENDDOCUMENT
map {	foreach (keys(%content)) {
my $cur=$content{$_};	my $cur=$content{$_};
	# Should if(defined($value{$_})) be if(exists($value{$_})) ?
if (defined($value{$_})) { $cur=$value{$_}; };	if (defined($value{$_})) { $cur=$value{$_}; };
$r->print('<tr><td><b>'.$display{$_}.'</b><br><tt>'.$_.	$r->print(<<"END");
'</tt></td><td> '.$content{$_}.	<tr><td><b>$display{$_}</b><br><tt>$_</tt></td>
'</td><td><input type="text" size="10" name="'.$_.'" value="'.$cur.	<td> $content{$_}</td>
'"> <a href='."'".'javascript:pjump("'.	<td><input type="text" size="10" name="$_" value="$cur">
$type{$_}.'","'.	<a href='javascript:pjump("$type{$_}","$display{$_}",document.parameters.$_.value,"$_","parameters.pres","stpr");'>Enter</a></td>
$display{$_}.'",document.parameters.'.$_.	<td><input type="checkbox" name="def_$_"
'.value,"'.$_.'","parameters.pres","stpr");'."'>Enter</a>".	END
'</td><td><input type="checkbox" name="def_'.$_.
'"');
if ($value{$_}) { $r->print(' checked'); }	if ($value{$_}) { $r->print(' checked'); }
$r->print('></td></tr>');	$r->print('></td></tr>');
} keys %content;	}
$r->print(	$r->print(
'</table><br><input type="submit" value="Set"></form></body></html>');	'</table><br><input type="submit" value="Set"></form></body></html>');
return OK;	return OK;

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

Removed from v.1.8
changed lines
	Added in v.1.9