--- rat/lonratparms.pm 2001/06/15 14:37:03 1.2 +++ rat/lonratparms.pm 2001/07/03 02:39:32 1.5 @@ -13,7 +13,7 @@ # # 3/1 Gerd Kortemeyer) # -# 03/03/01,06/15 Gerd Kortemeyer +# 03/03/01,06/15,06/25,06/26,06/30,07/02 Gerd Kortemeyer # package Apache::lonratparms; @@ -44,26 +44,64 @@ sub handler { # ------------------------------------------------------------------- Read file my $uri=$ENV{'form.url'}.'.meta'; - my %content; + + 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 -# --------------------------------------------------- Print login screen header - $r->print(<print(< The LearningOnline Network with CAPA +

Set Resource Parameters in Map

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

'); return OK; }