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

Diff for /loncom/xml/londefdef.pm between versions 1.106.2.1 and 1.109

version 1.106.2.1, 2003/03/14 21:23:20 version 1.109, 2003/02/03 19:10:28
Line 52  use Image::Magick; Line 52  use Image::Magick;
   
 BEGIN {  BEGIN {
   
     &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','tthoption','u','ul','var','wbr'));      &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','address','allow','applet','area','b','base','basefont','bgo','bgsound','big','blink','blockquote','blankspace','body','br','button','caption','center','cite','code','col','colgroup','dd','del','dfn','dir','div','dl','dt','em','embed','externallink','fieldset','font','form','frame','frameset','h1','h2','h3','h4','h5','h6','head','hr','html','i','iframe','img','input','ins','insert','isindex','kbd','keygen','label','layer','legend','li','link','m','map','marquee','menu','meta','multicol','nobr','noembed','noframes','nolayer','noscript','object','ol','optgroup','option','output','p','param','pre','q','s','samp','select','server','small','spacer','span','strike','strong','sub','sup','table','tbody','td','textarea','tfoot','th','thead','title','tr','tt','u','ul','var','wbr'));
   
 }  }
   
Line 108  sub end_m { Line 108  sub end_m {
   }    }
   return $currentstring;    return $currentstring;
 }  }
   
 sub start_tthoption {  
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
   my $result;  
   if ($target eq 'web') {  
       my $inside = &Apache::lonxml::get_all_text("/tthoption",$parser);  
       $inside=~s/^\s*//;  
       if ($ENV{'browser.mathml'}) {  
   &tth::ttmoptions($inside);  
       } else {  
   &tth::tthoptions($inside);  
       }  
   }  
   return $result;  
 }  
   
 sub end_tthoption {  
   my ($target,$token) = @_;  
   my $result;  
   return $result;  
 }  
   
 #-- <html> tag      #-- <html> tag    
 sub start_html {  sub start_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
Line 375  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 384  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 1456  sub start_table { Line 1434  sub start_table {
     my $shorthand = ($filled_columns+1)*4;      my $shorthand = ($filled_columns+1)*4;
     $output =~ s/\$SpacePerColumn/$SpacePerColumn - $shorthand mm/g;      $output =~ s/\$SpacePerColumn/$SpacePerColumn - $shorthand mm/g;
  }   }
    if ($how_many_columns==1) {  #start of block with width correction for one column table
     $output=~s/^\s*\\parbox{([^}]*)}/\\parbox{\\textwidth - 1 cm}/;
    }                            #end of block with width correction for one column table
  $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';   $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
  if ($#Apache::londefdef::table > 0) {   if ($#Apache::londefdef::table > 0) {
     $inmemory = $Apache::londefdef::table[-1]{'output'};      $inmemory = $Apache::londefdef::table[-1]{'output'};
Line 1509  sub start_table { Line 1490  sub start_table {
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);   my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
  if ($what_to_push eq '') {   if ($what_to_push eq '') {
     $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;      $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
Line 1517  sub start_table { Line 1498  sub start_table {
     push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;      push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
  $Apache::londefdef::table[-1]{'counter_columns'}++;   $Apache::londefdef::table[-1]{'counter_columns'}++;
  &Apache::lonxml::startredirection();   &Apache::lonxml::startredirection();
 ;  
     }       } 
    return $currentstring;     return $currentstring;
  }           }        
Line 1634  sub start_table { Line 1614  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 1643  sub start_table { Line 1623  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 1651  sub start_table { Line 1631  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.106.2.1  
changed lines
  Added in v.1.109

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