Diff for /rat/lonratparms.pm between versions 1.21 and 1.22

version 1.21, 2004/04/24 00:41:51 version 1.22, 2004/04/24 14:23:27
Line 55  sub handler { Line 55  sub handler {
       
 # ---------------------------------------------------------- Current Parameters  # ---------------------------------------------------------- Current Parameters
   
     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');
         }
     }
   
   foreach (split(/\:/,$ENV{'form.parms'})) {    foreach (split(/\:/,$ENV{'form.parms'})) {
       my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);        my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);
       unless ($pname) { next; }        unless ($pname) { next; }
Line 64  sub handler { Line 72  sub handler {
       $type{$pname}=$ptype;        $type{$pname}=$ptype;
       $display{$pname}=&mt('Custom Parameter');        $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  # --------------------------------------------------- Print input screen header
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();

Removed from v.1.21  
changed lines
  Added in v.1.22


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