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

Diff for /rat/lonratsrv.pm between versions 1.19 and 1.20

version 1.19, 2002/06/27 16:43:57 version 1.20, 2002/06/27 17:00:12
Line 197  sub loadmap { Line 197  sub loadmap {
 # ----------------------------------------------------------- Saves map to disk  # ----------------------------------------------------------- Saves map to disk
   
 sub savemap {  sub savemap {
     my ($fn,$errtext,$r)=@_;      my ($fn,$errtext)=@_;
     my %alltypes;      my %alltypes;
     my %allvalues;      my %allvalues;
     if (($fn=~/\.sequence$/) ||      if (($fn=~/\.sequence$/) ||
Line 262  sub savemap { Line 262  sub savemap {
            } elsif ($parts[0] eq 'objparms') {             } elsif ($parts[0] eq 'objparms') {
                undef %alltypes;                 undef %alltypes;
                undef %allvalues;                 undef %allvalues;
                map {                 foreach (split(/:/,$parts[$#parts])) {
                    my ($type,$name,$value)=split(/\_\_\_/,$_);                     my ($type,$name,$value)=split(/\_\_\_/,$_);
                    $alltypes{$name}=$type;                     $alltypes{$name}=$type;
                    $allvalues{$name}=$value;                     $allvalues{$name}=$value;
                } split(/:/,$parts[$#parts]);                 }
                map {                 foreach (keys %allvalues) {
                     if ($allvalues{$_} ne '') {
                    $outstr.='<param to="'.$parts[1].'" type="'                     $outstr.='<param to="'.$parts[1].'" type="'
                           .$alltypes{$_}.'" name="'.$_                            .$alltypes{$_}.'" name="'.$_
                           .'" value="'.$allvalues{$_}.'">'                            .'" value="'.$allvalues{$_}.'">'
                           ."</param>\n";                            ."</param>\n";
                } keys %allvalues;            }
                  }
            } elsif (($parts[0] ne '') && ($graphdef)) {             } elsif (($parts[0] ne '') && ($graphdef)) {
 # ------------------------------------------------------------- Graphical input  # ------------------------------------------------------------- Graphical input
                $outstr.='<'.$parts[0];                 $outstr.='<'.$parts[0];
Line 295  sub savemap { Line 297  sub savemap {
         }          }
     } else {      } else {
 # -------------------------------------------- Cannot write to that file, error  # -------------------------------------------- Cannot write to that file, error
         $errtext.='Map not saved: The specified '.$fn.' path does not exist. '.$r->uri();          $errtext.='Map not saved: The specified path does not exist. ';
     }      }
     return $errtext;      return $errtext;
 }  }
Line 327  sub handler { Line 329  sub handler {
   my $outtext='';    my $outtext='';
   
   if ($mode ne 'loadonly') {    if ($mode ne 'loadonly') {
      $errtext=&savemap($fn,$errtext,$r);       $errtext=&savemap($fn,$errtext);
   }    }
   ($outtext,$errtext)=&loadmap($fn,$errtext);    ($outtext,$errtext)=&loadmap($fn,$errtext);
   
Removed from v.1.19  
changed lines
  Added in v.1.20

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