--- rat/lonratparms.pm 2005/04/07 06:56:27 1.23 +++ rat/lonratparms.pm 2006/04/04 15:32:12 1.24 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Set parameters inside of the RAT # -# $Id: lonratparms.pm,v 1.23 2005/04/07 06:56:27 albertel Exp $ +# $Id: lonratparms.pm,v 1.24 2006/04/04 15:32:12 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -76,17 +76,13 @@ sub handler { # --------------------------------------------------- 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(< @@ -126,24 +126,26 @@ $bodytag ENDDOCUMENT + ### %display=&Apache::lonlocal::texthash(%display); my $enter=&mt('Enter'); - foreach (sort(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; }