--- rat/lonratparms.pm 2001/06/27 15:41:19 1.3 +++ rat/lonratparms.pm 2001/07/03 02:39:32 1.5 @@ -13,7 +13,7 @@ # # 3/1 Gerd Kortemeyer) # -# 03/03/01,06/15,06/25,06/26 Gerd Kortemeyer +# 03/03/01,06/15,06/25,06/26,06/30,07/02 Gerd Kortemeyer # package Apache::lonratparms; @@ -47,19 +47,24 @@ sub handler { my %content; my %type; + my %display; my %value; map { - $content{$_}=&Apache::lonnet::metadata($uri,$_); + 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')); # ---------------------------------------------------------- Current Parameters 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(< function setparms() { ENDHEADER - $r->print('opener.parent.objparms['.$ENV{'form.resid'}.']="";'); + $r->print('opener.objparms['.$ENV{'form.resid'}.']="";'); map { $r->print("\nif (document.parameters.def_".$_. - '.value=="on") { opener.parent.objparms['.$ENV{'form.resid'}. - ']+="'.$type{$_}.'___'.$_.'___"+document.parameters.'.$_.'.value; }'); + '.checked) { opener.objparms['.$ENV{'form.resid'}. + ']+="'.$type{$_}.'___'.$_.'___"+document.parameters.'.$_.'.value; }'); } keys %content; $r->print(<

Set Resource Parameters in Map

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