Diff for /rat/lonratsrv.pm between versions 1.32 and 1.33

version 1.32, 2005/06/13 20:23:53 version 1.33, 2005/09/26 19:47:52
Line 92  sub loadmap { Line 92  sub loadmap {
                 } elsif ($token->[1] eq 'resource') {                  } elsif ($token->[1] eq 'resource') {
 # -------------------------------------------------------------------- Resource  # -------------------------------------------------------------------- Resource
                     $outstr.='<&>objcont';                      $outstr.='<&>objcont';
                     if ($token->[2]->{'id'}) {                      if (defined($token->[2]->{'id'})) {
  $outstr.='<:>'.$token->[2]->{'id'};   $outstr.='<:>'.$token->[2]->{'id'};
                         if ($obj[$token->[2]->{'id'}]==1) {                          if ($obj[$token->[2]->{'id'}]==1) {
                            $errtext.='Error: multiple use of ID '.                             $errtext.='Error: multiple use of ID '.
Line 113  sub loadmap { Line 113  sub loadmap {
                     } else {                      } else {
                         $outstr.='false:';                          $outstr.='false:';
                     }                      }
                     if ($token->[2]->{'type'}) {                      if (defined($token->[2]->{'type'})) {
  $outstr.=$token->[2]->{'type'}.':';   $outstr.=$token->[2]->{'type'}.':';
                     }  else {                      }  else {
                         $outstr.='normal:';                          $outstr.='normal:';
Line 126  sub loadmap { Line 126  sub loadmap {
                 } elsif ($token->[1] eq 'condition') {                  } elsif ($token->[1] eq 'condition') {
 # ------------------------------------------------------------------- Condition  # ------------------------------------------------------------------- Condition
                     $outstr.='<&>objcont';                      $outstr.='<&>objcont';
                     if ($token->[2]->{'id'}) {                      if (defined($token->[2]->{'id'})) {
  $outstr.='<:>'.$token->[2]->{'id'};   $outstr.='<:>'.$token->[2]->{'id'};
                         if ($obj[$token->[2]->{'id'}]==1) {                          if ($obj[$token->[2]->{'id'}]==1) {
                            $errtext.='Error: multiple use of ID '.                             $errtext.='Error: multiple use of ID '.
Line 141  sub loadmap { Line 141  sub loadmap {
                     }                      }
                     $outstr.='<:>';                      $outstr.='<:>';
                     $outstr.=qtunescape($token->[2]->{'value'}).':';                      $outstr.=qtunescape($token->[2]->{'value'}).':';
                     if ($token->[2]->{'type'}) {                      if (defined($token->[2]->{'type'})) {
  $outstr.=$token->[2]->{'type'}.':';   $outstr.=$token->[2]->{'type'}.':';
                     } else {                      } else {
                         $outstr.='normal:';                          $outstr.='normal:';
Line 151  sub loadmap { Line 151  sub loadmap {
 # ----------------------------------------------------------------------- Links  # ----------------------------------------------------------------------- Links
                     $outstr.='<&>objlinks';                      $outstr.='<&>objlinks';
   
                         if ($token->[2]->{'index'}) {                          if (defined($token->[2]->{'index'})) {
    if ($links[$token->[2]->{'index'}]) {     if ($links[$token->[2]->{'index'}]) {
                                $errtext.='Error: multiple use of link index '.                                 $errtext.='Error: multiple use of link index '.
        $token->[2]->{'index'}.'. ';         $token->[2]->{'index'}.'. ';
Line 167  sub loadmap { Line 167  sub loadmap {
           
                     $outstr.='<:>'.$token->[2]->{'from'}.                      $outstr.='<:>'.$token->[2]->{'from'}.
                              ':'.$token->[2]->{'to'};                               ':'.$token->[2]->{'to'};
                     if ($token->[2]->{'condition'}) {                      if (defined($token->[2]->{'condition'})) {
  $outstr.=':'.$token->[2]->{'condition'};   $outstr.=':'.$token->[2]->{'condition'};
                     } else {                      } else {
   $outstr.=':0';    $outstr.=':0';

Removed from v.1.32  
changed lines
  Added in v.1.33


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