[BACK]Return to londefdef.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/londefdef.pm between versions 1.103 and 1.106

version 1.103, 2002/11/15 16:35:23 version 1.106, 2002/11/19 15:13:37
Line 965  EDITBUTTON Line 965  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\underline{';         &Apache::lonxml::startredirection();
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 975  EDITBUTTON Line 975  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= '}';         $currentstring=&Apache::lonxml::endredirection();
          $currentstring=~s/(\S)(\s+)(\S)/$1}$2\\underline{$3/g;
          $currentstring=~s/^\s*(\S)/\\underline{$1/;
          $currentstring=~s/(\S)\s*$/$1}/;       
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 986  EDITBUTTON Line 989  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\underline{';         &Apache::lonxml::startredirection();
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 996  EDITBUTTON Line 999  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= '}';         $currentstring=&Apache::lonxml::endredirection();
          $currentstring=~s/(\S)(\s+)(\S)/$1}$2\\underline{$3/g;
          $currentstring=~s/^\s*(\S)/\\underline{$1/;
          $currentstring=~s/(\S)\s*$/$1}/;
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1142  EDITBUTTON Line 1148  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\underline{';         &Apache::lonxml::startredirection();
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 1152  EDITBUTTON Line 1158  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= '}';         $currentstring=&Apache::lonxml::endredirection();
          $currentstring=~s/(\S)(\s+)(\S)/$1}$2\\underline{$3/g;
          $currentstring=~s/^\s*(\S)/\\underline{$1/;
          $currentstring=~s/(\S)\s*$/$1}/;
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1505  sub start_table { Line 1514  sub start_table {
  } else {   } else {
     if (length($data)<5) {      if (length($data)<5) {
  $Apache::londefdef::table[-1]{'length'} .= '0 mm,';   $Apache::londefdef::table[-1]{'length'} .= '0 mm,';
  $tempolen = '5 mm';   $tempolen = '6 mm';
     } else {      } else {
  $Apache::londefdef::table[-1]{'length'} .= '0 mm,';   $Apache::londefdef::table[-1]{'length'} .= '0 mm,';
  $tempolen = 'TOBECHANGEDONNUMBER';   $tempolen = 'TOBECHANGEDONNUMBER';
Line 1575  sub start_table { Line 1584  sub start_table {
   $height_param = $image->Get('height') * $scaling;;    $height_param = $image->Get('height') * $scaling;;
   undef $image;    undef $image;
   #do we have any specified size of the picture?    #do we have any specified size of the picture?
   my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval)    my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
   my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval)    my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
   my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval,    my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval,
                                                          undef,1);                                                           undef,1);
   if ($TeXwidth ne '') {      if ($TeXwidth ne '') {  
Line 2551  sub image_replication { Line 2560  sub image_replication {
  &Apache::lonnet::repcopy('/home/httpd/html'.$src);   &Apache::lonnet::repcopy('/home/httpd/html'.$src);
  #replicates eps or ps    #replicates eps or ps 
  my $newsrc = $src;   my $newsrc = $src;
  $newsrc =~ s/(.gif|.jpg|.png)$/.eps/;   $newsrc =~ s/\.(gif|jpg|png)$/.eps/;
  if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {   if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {
     $newsrc =~ s/\.ps$/\.eps/;      $newsrc =~ s/\.ps$/\.eps/;
     &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);      &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);
Removed from v.1.103  
changed lines
  Added in v.1.106

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