rat/lonratparms.pm - diff

Return to lonratparms.pm CVS log

Up to [LON-CAPA] / rat

version 1.17, 2003/10/06 20:38:25	version 1.19, 2003/10/23 21:01:54
Line 91 sub handler {	Line 91 sub handler {
$type{'parameter_mapalias'}='string';	$type{'parameter_mapalias'}='string';
$display{'parameter_mapalias'}='Resource alias name for conditions';	$display{'parameter_mapalias'}='Resource alias name for conditions';
}	}
if ($uri=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)\.meta$/) {
$content{'parameter_hiddenparts'}='';
$type{'parameter_hiddenparts'}='string';
$display{'parameter_hiddenparts'}=
'A comma separted list of Part Ids to not display.';
}
# ---------------------------------------------------------- Current Parameters	# ---------------------------------------------------------- Current Parameters

foreach (split(/\:/,$ENV{'form.parms'})) {	foreach (split(/\:/,$ENV{'form.parms'})) {
Line 159 $bodytag	Line 153 $bodytag
ENDDOCUMENT	ENDDOCUMENT
### %display=&Apache::lonlocal::texthash(%display);	### %display=&Apache::lonlocal::texthash(%display);
my $enter=&mt('Enter');	my $enter=&mt('Enter');
foreach (keys(%content)) {	foreach (sort(keys(%content))) {
my $cur=$content{$_};	my $cur=$content{$_};
# Should if(defined($value{$_})) be if(exists($value{$_})) ?	# Should if(defined($value{$_})) be if(exists($value{$_})) ?
if (defined($value{$_})) { $cur=$value{$_}; };	if (defined($value{$_})) { $cur=$value{$_}; };