--- rat/lonratparms.pm 2003/04/30 16:08:30 1.15 +++ rat/lonratparms.pm 2003/09/29 14:31:00 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Set parameters inside of the RAT # -# $Id: lonratparms.pm,v 1.15 2003/04/30 16:08:30 matthew Exp $ +# $Id: lonratparms.pm,v 1.16 2003/09/29 14:31:00 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,10 +45,11 @@ package Apache::lonratparms; use strict; use Apache::Constants qw(:common); use Apache::lonhtmlcommon(); +use Apache::lonlocal; sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK if $r->header_only; @@ -106,6 +107,12 @@ 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::loncommon::texthash('pa' => 'Parameter', + 'de' => 'Default', + 'va' => 'Value', + 'se' => 'Set'); + $r->print(< @@ -142,15 +149,16 @@ ENDHEADER } - -

Set Resource Parameters in Map

+$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{$_})) ? @@ -159,14 +167,14 @@ ENDDOCUMENT +$enter'); } $r->print( - '
ParameterDefaultValueSet?
$lt{'pa'}$lt{'de'}$lt{'va'}$lt{'se'}?
$display{$_}
$_
 $content{$_}   -Enter print(' checked'); } $r->print('>

'); + '
'); return OK; }