--- rat/lonratparms.pm 2001/06/15 14:37:03 1.2 +++ rat/lonratparms.pm 2001/07/01 02:21:18 1.4 @@ -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 Gerd Kortemeyer # package Apache::lonratparms; @@ -44,26 +44,60 @@ sub handler { # ------------------------------------------------------------------- Read file my $uri=$ENV{'form.url'}.'.meta'; - my %content; + + my %content; + my %type; + my %value; + map { - $content{$_}=&Apache::lonnet::metadata($uri,$_); + if ($_=~/^parameter\_/) { + $content{$_}=&Apache::lonnet::metadata($uri,$_); + } } 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 + my $cur=$content{$_}; + if (defined($value{$_})) { $cur=$value{$_}; } map { - $r->print($_.' - '.$content{$_}.'
'); + $r->print(''); } keys %content; - $r->print(''); + $r->print( + '
ParameterDefaultValueSet?
'.$_.' '.$content{$_}. + '

'); return OK; }