Diff for /rat/lonratedt.pm between versions 1.54 and 1.55

version 1.54, 2004/04/23 22:34:15 version 1.55, 2004/04/24 15:05:16
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (TeX Content Handler  
 #  
 # 05/29/00,05/30 Gerd Kortemeyer)  
 # 7/1,6/30 Gerd Kortemeyer  
   
 package Apache::lonratedt;  package Apache::lonratedt;
   
Line 206  sub mapread { Line 203  sub mapread {
             $links[$number]=$content;              $links[$number]=$content;
         }          }
         if ($command eq 'objparms') {          if ($command eq 'objparms') {
     $resparms[$number]=$content;      if ($resparms[$number]) {
    $resparms[$number].='&&&'.$content;
       } else {
    $resparms[$number]=$content;
       }
         }          }
     }      }
 # ------------------------------------------------------- Is this a linear map?  # ------------------------------------------------------- Is this a linear map?
Line 515  sub storemap { Line 516  sub storemap {
     $output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];      $output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];
         }          }
  if (defined($resparms[$order[$i]])) {   if (defined($resparms[$order[$i]])) {
     $output.='<&>objparms<:>'.$order[$i].'<:>'.$resparms[$order[$i]];      foreach (split('&&&',$resparms[$order[$i]])) {
    if ($_) {
       $output.='<&>objparms<:>'.$order[$i].'<:>'.$_;
    }
       }
  }   }
         if (defined($order[$i+1])) {          if (defined($order[$i+1])) {
     if (defined($resources[$order[$i+1]])) {      if (defined($resources[$order[$i+1]])) {

Removed from v.1.54  
changed lines
  Added in v.1.55


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