--- rat/lonratparms.pm 2003/10/06 20:38:25 1.17 +++ rat/lonratparms.pm 2008/11/11 16:40:38 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Set parameters inside of the RAT # -# $Id: lonratparms.pm,v 1.17 2003/10/06 20:38:25 www Exp $ +# $Id: lonratparms.pm,v 1.25 2008/11/11 16:40:38 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -25,27 +25,42 @@ # # 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 -# + +=head1 NAME + +Apache::lonratparams + +=head1 SYNOPSIS + +Handler to set resource parameters inside of +the RAT based on metadata. + +This is part of the LearningOnline Network with CAPA project +described at http://www.lon-capa.org. + +=head1 HANDLER SUBROUTINE + +handler() + +=head1 OTHER SUBROUTINES + +=over + +=item * + +none + +=back + +=cut + package Apache::lonratparms; use strict; use Apache::Constants qw(:common); use Apache::lonhtmlcommon(); use Apache::lonlocal; +use Apache::lonnet; sub handler { my $r = shift; @@ -60,13 +75,15 @@ sub handler { # ------------------------------------------------------------------- Read file - my $uri=$ENV{'form.url'}.'.meta'; + my $uri=$env{'form.url'}.'.meta'; my %content; my %type; my %display; my %value; +# ---------------------------------------------------------- Current Parameters + foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { if ($_=~/^parameter\_/) { $content{$_}=&Apache::lonnet::metadata($uri,$_); @@ -75,49 +92,25 @@ sub handler { } } -# -------------------------------------- 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'})) { + foreach (split(/\:/,$env{'form.parms'})) { my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); + unless ($pname) { next; } unless ($type{$pname}) { $type{$pname}=$ptype; } $value{$pname}=$pvalue; + $content{$pname}=$pvalue; + $type{$pname}=$ptype; + $display{$pname}=&mt('Custom Parameter'); } # --------------------------------------------------- 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::lonlocal::texthash('pa' => 'Parameter', 'de' => 'Default', 'va' => 'Value', 'se' => 'Set'); - - $r->print(< - -The LearningOnline Network with CAPA - - -$bodytag +'; + my $start_page = + &Apache::loncommon::start_page('Set Resource Parameters in Map',$js); + + $r->print(< @@ -157,24 +154,26 @@ $bodytag ENDDOCUMENT + ### %display=&Apache::lonlocal::texthash(%display); my $enter=&mt('Enter'); - foreach (keys(%content)) { - my $cur=$content{$_}; - # Should if(defined($value{$_})) be if(exists($value{$_})) ? - if (defined($value{$_})) { $cur=$value{$_}; }; + foreach my $key (sort(keys(%content))) { + my $cur=$content{$key}; + # Should if(defined($value{$key})) be if(exists($value{$key})) ? + if (defined($value{$key})) { $cur=$value{$key}; }; $r->print(<<"END"); - - - - + + +'); } - $r->print( - '
$lt{'pa'}$lt{'de'}$lt{'va'}$lt{'se'}?
$display{$_}
$_		 $content{$_}  -$enter$display{$key}
$key		 $content{$key}  +$enterprint(' checked'); } + if ($value{$key}) { $r->print(' checked'); } $r->print('>

'); + $r->print('
+ '. + &Apache::loncommon::end_page()); return OK; }