--- rat/lonratparms.pm 2001/07/01 02:21:18 1.4 +++ rat/lonratparms.pm 2001/07/04 15:35:44 1.7 @@ -13,7 +13,7 @@ # # 3/1 Gerd Kortemeyer) # -# 03/03/01,06/15,06/25,06/26,06/30 Gerd Kortemeyer +# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer # package Apache::lonratparms; @@ -47,11 +47,14 @@ sub handler { my %content; my %type; + my %display; my %value; map { if ($_=~/^parameter\_/) { $content{$_}=&Apache::lonnet::metadata($uri,$_); + $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); + $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); } } split(/\,/,&Apache::lonnet::metadata($uri,'keys')); @@ -59,9 +62,9 @@ sub handler { map { my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); - $type{$pname}=$ptype; + unless ($type{$pname}) { $type{$pname}=$ptype; } $value{$pname}=$pvalue; - } split(/\:/,$ENV{'form.params'}); + } split(/\:/,$ENV{'form.parms'}); # --------------------------------------------------- Print input screen header $r->print(< The LearningOnline Network with CAPA @@ -85,16 +113,26 @@ ENDHEADER

Set Resource Parameters in Map

+ + + ENDDOCUMENT - my $cur=$content{$_}; - if (defined($value{$_})) { $cur=$value{$_}; } map { - $r->print(''); + my $cur=$content{$_}; + if (defined($value{$_})) { $cur=$value{$_}; }; + $r->print(''); } keys %content; $r->print( '
ParameterDefaultValueSet?
'.$_.' '.$content{$_}. - '
'.$display{$_}.'
'.$_. + '
 '.$content{$_}. + ' Enter". + 'print(' checked'); } + $r->print('>

'); @@ -103,3 +141,4 @@ ENDDOCUMENT 1; __END__ +