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

Diff for /loncom/xml/londefdef.pm between versions 1.105 and 1.108

version 1.105, 2002/11/18 20:47:51 version 1.108, 2003/01/30 23:30:24
Line 353  sub start_html { Line 353  sub start_html {
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
       }        }
       $token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().        $token->[2]->{'onload'}=&Apache::lonxml::loadevents().
                        ';'.$onLoad;                         ';'.$onLoad;
       my $onUnload='';        my $onUnload='';
       foreach my $key (keys(%{$token->[2]})) {        foreach my $key (keys(%{$token->[2]})) {
Line 362  sub start_html { Line 362  sub start_html {
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
       }        }
       $token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().        $token->[2]->{'onunload'}=&Apache::lonxml::unloadevents().
                          ';'.$onUnload;                           ';'.$onUnload;
   
       $currentstring .= '<'.$token->[1];        $currentstring .= '<'.$token->[1];
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 1603  sub start_table { Line 1612  sub start_table {
   if (-e $newsrc) {    if (-e $newsrc) {
                       #eps counterpart for image exist                         #eps counterpart for image exist 
       if ($path) {        if ($path) {
   $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';    $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
       }        }
   } else {    } else {
                       #there is no eps counterpart for image - check for ps one                        #there is no eps counterpart for image - check for ps one
Line 1612  sub start_table { Line 1621  sub start_table {
   #ps counterpart for image exist     #ps counterpart for image exist 
   $file =~ s/\.eps$/\.ps/;    $file =~ s/\.eps$/\.ps/;
   if ($path) {    if ($path) {
       $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';        $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
   }    }
       } else {        } else {
   #there aren't eps or ps - so create eps     #there aren't eps or ps - so create eps 
Line 1620  sub start_table { Line 1629  sub start_table {
   my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";    my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
   $temp_file = Apache::File->new('>>'.$filename);     $temp_file = Apache::File->new('>>'.$filename); 
   print $temp_file "$src\n";    print $temp_file "$src\n";
   $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';    $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool/}}\includegraphics[width='.$width_param.' mm]{'.$file.'} ';
       }        }
   }    }
       } else {        } else {
Removed from v.1.105  
changed lines
  Added in v.1.108

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