--- rat/lonratparms.pm 2003/09/29 14:31:00 1.16 +++ rat/lonratparms.pm 2004/04/23 19:39:25 1.20 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Set parameters inside of the RAT # -# $Id: lonratparms.pm,v 1.16 2003/09/29 14:31:00 www Exp $ +# $Id: lonratparms.pm,v 1.20 2004/04/23 19:39:25 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,21 +25,7 @@ # # http://www.lon-capa.org/ # -# (Search Catalog -# -# (Internal Server Error Handler -# -# (Login Screen -# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, -# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) -# -# 3/1/1 Gerd Kortemeyer) -# -# 3/1 Gerd Kortemeyer) -# -# 03/03/01,06/15,06/25,06/26,06/30,07/02,07/03,07/04 Gerd Kortemeyer -# 03/11/02 Matthew Hall -# + package Apache::lonratparms; use strict; @@ -67,51 +53,32 @@ sub handler { my %display; my %value; - foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { - if ($_=~/^parameter\_/) { - $content{$_}=&Apache::lonnet::metadata($uri,$_); - $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); - $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); - } - } - -# -------------------------------------- Additional parms for certain resources - - if ($uri=~/\.(sequence|page)\.meta$/) { - $content{'parameter_randompick'}=''; - $type{'parameter_randompick'}='int_pos'; - $display{'parameter_randompick'}='Randomly pick number of resources'; - - $content{'parameter_randompickseed'}=''; - $type{'parameter_randompickseed'}='int_pos'; - $display{'parameter_randompickseed'}= - 'Random seed for randomly picking number of resources (optional, only set if you know what you are doing)'; - } else { - $content{'parameter_mapalias'}=''; - $type{'parameter_mapalias'}='string'; - $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 foreach (split(/\:/,$ENV{'form.parms'})) { my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); unless ($type{$pname}) { $type{$pname}=$ptype; } $value{$pname}=$pvalue; + $content{$pname}=$pvalue; + $type{$pname}=$ptype; + $display{$pname}=&mt('Custom Parameter'); } + + foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { + if ($_=~/^parameter\_/) { + $content{$_}=&Apache::lonnet::metadata($uri,$_); + $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); + $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); + } + } # --------------------------------------------------- Print input screen header my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); my $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map'); - my %lt=&Apache::loncommon::texthash('pa' => 'Parameter', - 'de' => 'Default', - 'va' => 'Value', - 'se' => 'Set'); + my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter', + 'de' => 'Default', + 'va' => 'Value', + 'se' => 'Set'); $r->print(< @@ -157,9 +124,9 @@ $bodytag ENDDOCUMENT - %display=&Apache::lonlocal::texthash(%display); +### %display=&Apache::lonlocal::texthash(%display); my $enter=&mt('Enter'); - foreach (keys(%content)) { + foreach (sort(keys(%content))) { my $cur=$content{$_}; # Should if(defined($value{$_})) be if(exists($value{$_})) ? if (defined($value{$_})) { $cur=$value{$_}; };
$lt{'pa'}$lt{'de'}$lt{'va'}$lt{'se'}?