[BACK]Return to lonratparms.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonratparms.pm between versions 1.16 and 1.19

version 1.16, 2003/09/29 14:31:00 version 1.19, 2003/10/23 21:01:54
Line 91  sub handler { Line 91  sub handler {
         $type{'parameter_mapalias'}='string';          $type{'parameter_mapalias'}='string';
  $display{'parameter_mapalias'}='Resource alias name for conditions';   $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  # ---------------------------------------------------------- Current Parameters
   
   foreach (split(/\:/,$ENV{'form.parms'})) {    foreach (split(/\:/,$ENV{'form.parms'})) {
Line 108  sub handler { Line 102  sub handler {
 # --------------------------------------------------- Print input screen header  # --------------------------------------------------- Print input screen header
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     my $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map');      my $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map');
     my %lt=&Apache::loncommon::texthash('pa' => 'Parameter',      my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter',
  'de' => 'Default',                 'de' => 'Default',
  'va' => 'Value',         'va' => 'Value',
  'se' => 'Set');         'se' => 'Set');
     
     $r->print(<<ENDHEADER);      $r->print(<<ENDHEADER);
 <html>  <html>
Line 157  $bodytag Line 151  $bodytag
 <table border=2>  <table border=2>
 <tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr>  <tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr>
 ENDDOCUMENT  ENDDOCUMENT
     %display=&Apache::lonlocal::texthash(%display);  ###    %display=&Apache::lonlocal::texthash(%display);
     my $enter=&mt('Enter');      my $enter=&mt('Enter');
     foreach (keys(%content)) {      foreach (sort(keys(%content))) {
         my $cur=$content{$_};          my $cur=$content{$_};
         # Should if(defined($value{$_})) be if(exists($value{$_})) ?          # Should if(defined($value{$_})) be if(exists($value{$_})) ?
         if (defined($value{$_})) { $cur=$value{$_}; };          if (defined($value{$_})) { $cur=$value{$_}; };
Removed from v.1.16  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>