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

Diff for /loncom/xml/londefdef.pm between versions 1.50 and 1.91

version 1.50, 2002/04/04 19:20:33 version 1.91, 2002/10/08 15:35:22
Line 1 Line 1
   
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # Tags Default Definition Module   # Tags Default Definition Module 
 #  #
Line 45 Line 44
   
 package Apache::londefdef;   package Apache::londefdef; 
   
   use Apache::lonnet;
 use strict;  use strict;
 use Apache::lonxml;  use Apache::lonxml;
   use Apache::File();
   use Image::Magick;
   
 BEGIN {  BEGIN {
   
     &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','dt','h1','h2','h3','h4','h5','h6','cite','i','address','dd','dl','dir','ol','ul','menu','dfn','kbd','tt','code','em','q','p','br','big','small','basefont','font','s','sub','strike','sup','hr','a','li','u','output','param','applet','img','embed','allow','frameset','pre','insert','externallink','table'));      &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 71  sub start_m { Line 73  sub start_m {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
   my $currentstring = '';    my $currentstring = '';
   if ($target eq 'web') {    if ($target eq 'web') {
     my $inside = &Apache::lonxml::get_all_text("/m",$$parser[-1]);      $Apache::lonxml::prevent_entity_encode++;
       my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
     $inside ='\\documentstyle{article}'.$inside;      $inside ='\\documentstyle{article}'.$inside;
     &Apache::lonxml::debug("M is starting with:$inside:");      &Apache::lonxml::debug("M is starting with:$inside:");
     my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);      my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval);
Line 87  sub start_m { Line 90  sub start_m {
     }      }
     #&Apache::lonxml::debug("M is ends with:$currentstring:");      #&Apache::lonxml::debug("M is ends with:$currentstring:");
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
     $currentstring = "";      $currentstring = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
       if ($currentstring=~/^(\s*\\\\\s*)*$/) {$currentstring = ' \vskip 0 mm ';}
     } else {
       my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser);
   }    }
   return $currentstring;    return $currentstring;
 }  }
Line 95  sub end_m { Line 101  sub end_m {
   my ($target,$token) = @_;    my ($target,$token) = @_;
   my $currentstring = '';    my $currentstring = '';
   if ($target eq 'web') {    if ($target eq 'web') {
       $Apache::lonxml::prevent_entity_encode--;
   } elsif ($target eq 'tex') {    } elsif ($target eq 'tex') {
     $currentstring = "";      $currentstring = "";
   } elsif ($target eq 'meta') {    } elsif ($target eq 'meta') {
Line 114  sub end_m { Line 121  sub end_m {
               $currentstring = &Apache::lonxml::xmlbegin().                $currentstring = &Apache::lonxml::xmlbegin().
                                &Apache::lonxml::fontsettings();                                      &Apache::lonxml::fontsettings();     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         @Apache::londefdef::table = ();
       $currentstring .= '\documentclass[letterpaper]{article}        $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                                              \newcommand{\keephidden}[1]{}
                                    \renewcommand{\deg}{$^{\circ}$}
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
                                  \usepackage{epsfig}';                                   \usepackage{epsfig}\usepackage{calc}
                                    \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';
     }      }
    return $currentstring;     return $currentstring;
  }   }
Line 334  sub end_m { Line 344  sub end_m {
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
       }        }
       $token->[2]->{'onLoad'}=$onLoad.&Apache::lonxml::loadevents();        $token->[2]->{'onLoad'}=&Apache::lonxml::loadevents().
                          ';'.$onLoad;
       my $onUnload='';        my $onUnload='';
       foreach my $key (keys(%{$token->[2]})) {        foreach my $key (keys(%{$token->[2]})) {
  if ($key =~ /^onunload$/i) {   if ($key =~ /^onunload$/i) {
Line 342  sub end_m { Line 353  sub end_m {
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
       }        }
       $token->[2]->{'onUnload'}=$onUnload.        $token->[2]->{'onUnload'}=&Apache::lonxml::unloadevents().
  &Apache::lonxml::unloadevents();                           ';'.$onUnload;
   
       $currentstring .= '<'.$token->[1];        $currentstring .= '<'.$token->[1];
       foreach (keys %{$token->[2]}) {        foreach (keys %{$token->[2]}) {
Line 456  EDITBUTTON Line 467  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\large{\textbf{';   $currentstring .= '{\large \textbf{';
     } elsif ($target eq 'meta') {      } elsif ($target eq 'meta') {
  $currentstring='<subject>';   $currentstring='<subject>';
                 &start_output();                  &start_output();
Line 483  EDITBUTTON Line 494  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\large{\textbf{';   $currentstring .= '{\large \textbf{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 504  EDITBUTTON Line 515  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\large{\textbf{';   $currentstring .= '{\large \textbf{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 525  EDITBUTTON Line 536  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\large{\textbf{';   $currentstring .= '{\large \textbf{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 546  EDITBUTTON Line 557  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\large{\textbf{';   $currentstring .= '{\large \textbf{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 567  EDITBUTTON Line 578  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\large{\textbf{';   $currentstring .= '{\large \textbf{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 829  EDITBUTTON Line 840  EDITBUTTON
  }   }
 #-- <br> tag  #-- <br> tag
         sub start_br {          sub start_br {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             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') {
  $currentstring .= '\\\\';   if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
       $currentstring .= '\vskip 0 mm';
    }
     } elsif ($target eq 'latexsource') {      } elsif ($target eq 'latexsource') {
  $currentstring .= '\\';   $currentstring .= '\\';
     }       } 
Line 917  EDITBUTTON Line 930  EDITBUTTON
       }        }
 #-- <font> tag  #-- <font> tag
          sub start_font {           sub start_font {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
         my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
         if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode++;}
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     }       } 
    return $currentstring;     return $currentstring;
  }   }
         sub end_font {          sub end_font {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
         my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval);
         if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode--;}
               $currentstring = $token->[2];                    $currentstring = $token->[2];    
             }               } 
    return $currentstring;     return $currentstring;
Line 939  EDITBUTTON Line 956  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 ";   $currentstring .= '\underline{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 949  EDITBUTTON Line 966  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 .= '}';
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 960  EDITBUTTON Line 977  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 ";   $currentstring .= '\underline{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 970  EDITBUTTON Line 987  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 .= '}';
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1023  EDITBUTTON Line 1040  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "\\hline ";   $currentstring .= '\vskip 0 mm \noindent\makebox[\textwidth/2 ][b]{\hrulefill}\vskip 0 mm ';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 1036  EDITBUTTON Line 1053  EDITBUTTON
     }       } 
            return $currentstring;             return $currentstring;
  }   }
   #-- <div> tag
           sub start_div {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
          $currentstring .= $token->[4];
       } 
              return $currentstring;
    }
           sub end_div {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
          $currentstring .= $token->[2];
       } 
              return $currentstring;
    }
 #-- <a> tag  #-- <a> tag
         sub start_a {          sub start_a {
     my ($target,$token) = @_;      my ($target,$token) = @_;
Line 1055  EDITBUTTON Line 1089  EDITBUTTON
                 my  $tempor_var = $stackref->[$#$stackref];                  my  $tempor_var = $stackref->[$#$stackref];
  if (index($tempor_var,'name') != -1 ) {   if (index($tempor_var,'name') != -1 ) {
     $tempor_var =~ s/name=([^,]*),/$1/g;      $tempor_var =~ s/name=([^,]*),/$1/g;
 #        $currentstring .= " \\label{$tempor_var}";  
         } elsif (index($tempor_var,'href') != -1 ) {          } elsif (index($tempor_var,'href') != -1 ) {
     $tempor_var =~ s/href=([^,]*),/$1/g;      $tempor_var =~ s/href=([^,]*),/$1/g;
         $currentstring .= " \\ref{$tempor_var}";          $currentstring .= " \\ref{$tempor_var}";
Line 1100  EDITBUTTON Line 1133  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 ";   $currentstring .= '\underline{';
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 1110  EDITBUTTON Line 1143  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 .= '}';
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1258  EDITBUTTON Line 1291  EDITBUTTON
    return $currentstring;     return $currentstring;
  }   }
 #-- <table> tag  #-- <table> tag
         sub start_table {  sub start_table {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
       my $currentstring = '';
       if ($target eq 'web') {
    $currentstring = $token->[4];     
       } elsif ($target eq 'tex') {
    my $aa = {};
    push @Apache::londefdef::table, $aa; 
    $Apache::londefdef::table[-1]{'row_number'} = -1;
    $Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
    my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);
    unless (defined $border) { $border = 0; }
    if ($border) { 
       $Apache::londefdef::table[-1]{'hinc'} = '\hline '; 
       $Apache::londefdef::table[-1]{'vinc'} = '&'; 
       $Apache::londefdef::table[-1]{'vvinc'} = '|';
    } else {
       $Apache::londefdef::table[-1]{'hinc'} = ''; 
       $Apache::londefdef::table[-1]{'vinc'} = '&'; 
       $Apache::londefdef::table[-1]{'vvinc'} = '';
    }
    my $width;
    foreach my $key (keys(%{$token->[2]})) {
       if ($key =~ /^width$/i) {
    $width = &Apache::lonxml::get_param($key,$parstack,$safeeval);
       }
    }
    if (defined($width)) { $Apache::londefdef::table[-1]{'width'}=$width; }
       }
       return $currentstring;
   }
           sub end_table {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);   my $inmemory = '';
  my $tabletext=&Apache::lonxml::get_all_text("/table",$$parser[$#$parser]);   my $output = '';
  my %mystyle;                  #construct header of the table
  $tabletext = &Apache::lonxml::xmlparse('tex',$tabletext,'',%mystyle);          my $header_of_table = '{'.$Apache::londefdef::table[-1]{'vvinc'};
  unless (defined $border) { $border = 0; }   my $in;
  my $hinc = '';   for ($in=0;$in<=$Apache::londefdef::table[-1]{'counter_columns'};$in++) {
                 my $vinc = '';         $header_of_table .= $Apache::londefdef::table[-1]{'columns'}[$in].$Apache::londefdef::table[-1]{'vvinc'};
  my $vvinc = '';   }
  if ($border) { $hinc = '\hline '; $vinc =  '&'; $vvinc =  '|';}   $header_of_table .= '}';
  my @raws = ();                  #fill the table
  my @columns = ();   for ($in=0;$in<=$Apache::londefdef::table[-1]{'row_number'};$in++) {
  my $counter_columns;      $output .=  $Apache::londefdef::table[-1]{'rowdata'}[$in];
 #serch row      chop $output;
  $_ = $tabletext;      $output .= ' \\\\ ';
  while (m/<tr\s*([^>]*)>/) {   }
     push @raws,$1;                  #define the length of the table cells
                     $tabletext =~ s/<tr\s*([^>]*)>/$hinc/;   my @lengthforoutput = split(/,/,$Apache::londefdef::table[-1]{'lengthrow'}[0]);
 #serch and convert column   my $how_many_columns = $#lengthforoutput + 1; #total number of columns in the table 
     my $boundary = index($tabletext,'</tr>',0);   my $filled_columns = 0; #number of columns with information about width
     my $textchunk = substr($tabletext,0,$boundary);    my $available_space = ' ';
     $_ = $textchunk;   foreach my $tempo_length (@{ $Apache::londefdef::table[-1]{'lengthrow'} }) {
     $counter_columns = 0;      my @length = split(/,/,$tempo_length);
     while (m/<td\s*([^>]*)>/) {      for (my $ico=0;$ico<=$#lengthforoutput;$ico++) {
  push @columns,$1;   $lengthforoutput[$ico] =~ m/(\d*\.?\d*)\s*(\w+)/;
  $counter_columns++;   my $old_value = $1;
  $textchunk =~ s/<\/td>\s*<td\s*([^>]*)>/$vinc/;   my $old_unit = $2; 
  $textchunk =~ s/<td\s*([^>]*)>//;   if ($old_unit eq 'cm') { 
  $textchunk =~ s/<\/td>//;      $old_value = $old_value * 10;
  $_ = $textchunk;   } elsif ($old_unit eq 'in') { 
     }      $old_value = $old_value * 25.4;
     substr($tabletext,0,$boundary) = $textchunk;   } elsif ($old_unit eq 'pt') {
 #convert row      $old_value = $old_value * 25.4/72.27;
     $tabletext =~ s/<\/tr>/\\\\/;   } elsif ($old_unit eq 'pc') {
     $_ = $tabletext;      $old_value = $old_value * 25.4/6.022;
    }
    $old_unit = 'mm';
     $length[$ico] =~ m/(\d*\.?\d*)\s*(\w+)/;
    my $new_value = $1;
    my $new_unit = $2;
    if ($new_unit eq 'cm') { 
       $new_value = $new_value * 10;
    } elsif ($old_unit eq 'in') { 
       $new_value = $new_value * 25.4;
    } elsif ($old_unit eq 'pt') {
       $new_value = $new_value * 25.4/72.27;
    } elsif ($old_unit eq 'pc') {
       $new_value = $new_value * 25.4/6.022;
    }
    $new_unit = 'mm';
    if ($old_value < $new_value) {
       $lengthforoutput[$ico] = $new_value.' mm';
    } else {
       $lengthforoutput[$ico] = $old_value.' mm';
    }  
       }
  }   }
  my $default_value = '';   for (my $ico=0;$ico<=$#lengthforoutput;$ico++) {
  if ($raws[1] eq 'left') {      if (not $lengthforoutput[$ico]=~m/^\s*0\s*\w*\s*$/) {
     $default_value = 'l';   $filled_columns++;
  } elsif ($raws[1] eq 'center') {   $available_space = $available_space.' - '.$lengthforoutput[$ico];
     $default_value = 'c';      }
  } elsif ($raws[1] eq 'right') {   }
     $default_value = 'r';   my $temp_file;
    my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.tbl";
    if (-e $filename) {
       $temp_file = Apache::File->new($filename); 
       my @tbl_file_content = <$temp_file>;
       my ($one,$two,$three) = split(/,/,$tbl_file_content[0]);
           $how_many_columns+=$one-1;
           $filled_columns+=$two;
       if($three=~/\S/) {$available_space = $available_space.' - '.$three;}
  } else {   } else {
      $default_value = 'c';      $temp_file = Apache::File->new('>>'.$filename); 
    }
    print $temp_file "$how_many_columns,$filled_columns,$available_space\n";
    $output =~ s/\\parbox{TOBECHANGEDONNUMBER}{}/\\parbox{1 mm}{}/g;
    $output =~ s/\\parbox{TOBECHANGEDONNUMBER}/\\parbox{\$SpacePerColumn}/g;
    my @tagar = @$tagstack;
    my $signature = 1;
    for (my $ico=0;$ico<$#tagar;$ico++) {
        if ($tagar[$ico] eq 'table') { $signature = 0; }
  }   }
  my $header_of_table = '{'.$vvinc;   if ($signature) {
  my $in;      my $NumberEmptyLength = $how_many_columns - $filled_columns;
  for ($in=0;$in<=$counter_columns;$in++) {      my $SpacePerColumn = '(\textwidth '.$available_space.')/'.$NumberEmptyLength;
     if ($columns[$in] eq 'left') {      $output =~ s/\$SpacePerColumn/$SpacePerColumn/g;
  $header_of_table .= 'l'.$vvinc;   }
     } elsif ($columns[$in] eq 'center') {   $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
  $header_of_table .= 'c'.$vvinc;   if ($#Apache::londefdef::table > 0) {
     } elsif ($columns[$in] eq 'right') {      $inmemory = $Apache::londefdef::table[-1]{'output'};
  $header_of_table .= 'r'.$vvinc;      pop @Apache::londefdef::table;
     } else {      $Apache::londefdef::table[-1]{'rowdata'}[$Apache::londefdef::table[-1]{'row_number'}] .= $inmemory
        $header_of_table .= $default_value.$vvinc;   } else {
       $currentstring = $Apache::londefdef::table[-1]{'output'};
       $currentstring =~ s/\\\\\s+\\\\/\\\\/g; 
       pop @Apache::londefdef::table;
       if (-e $filename) {
    unlink $filename;
     }      }
  }   }
  $header_of_table .= '}';      }
  $currentstring .= '\begin{tabular}'.$header_of_table.$tabletext.$hinc.'\end{tabular}';     return $currentstring;
    }
   #-- <tr> tag
           sub start_tr {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } elsif ($target eq 'tex') {
    $Apache::londefdef::table[-1]{'row_number'}++;
    my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
    if ($alignchar ne '') {
       push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;
    } else {
       push @ {$Apache::londefdef::table[-1]{'rows'} }, 'l';
    }
    push ( @{ $Apache::londefdef::table[-1]{'rowdata'} }, $Apache::londefdef::table[-1]{'hinc'});
    $Apache::londefdef::table[-1]{'counter_columns'} = -1;
    $Apache::londefdef::table[-1]{'length'} = ''; 
     }       } 
    return $currentstring;     return $currentstring;
    }        
           sub end_tr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring = $token->[2];     
       } elsif ($target eq 'tex') {
    push @{ $Apache::londefdef::table[-1]{'lengthrow'} },$Apache::londefdef::table[-1]{'length'};
   
       }
      return $currentstring;
  }   }
         sub end_table {  #-- <td> tag
           sub start_td {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } elsif ($target eq 'tex') {
    my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
    if ($what_to_push eq '') {
       $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
    }
       push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
    $Apache::londefdef::table[-1]{'counter_columns'}++;
    &Apache::lonxml::startredirection();
   ;
       } 
      return $currentstring;
    }        
           sub end_td {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
               my $tempolen = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[2];        $currentstring = $token->[2];     
       } elsif ($target eq 'tex') {
    my $current_row = $Apache::londefdef::table[-1]{'row_number'};
    my $data=&Apache::lonxml::endredirection();
    if ($data=~m/width\s*=\s*(\d+\.?\d*\s*(mm|cm|in|pc|pt))/) {                 
                       $Apache::londefdef::table[-1]{'length'} .= $1.',';
       $tempolen = $1;         
    } else {
       if (length($data)<5) {
    $Apache::londefdef::table[-1]{'length'} .= '0 mm,';
    $tempolen = '5 mm';
       } else {
    $Apache::londefdef::table[-1]{'length'} .= '0 mm,';
    $tempolen = 'TOBECHANGEDONNUMBER';
       }
                   }                                        
    @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$tempolen.'}{'.$data.'} '.$Apache::londefdef::table[-1]{'vinc'};
       }
      return $currentstring;
    }
   #-- <th> tag
           sub start_th {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } elsif ($target eq 'tex') {
    my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);
    if ($what_to_push eq '') {
       $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
    }
       push @{ $Apache::londefdef::table[-1]{'columns'} }, $what_to_push;
    $Apache::londefdef::table[-1]{'counter_columns'}++;
    &Apache::lonxml::startredirection();
   ;
       } 
      return $currentstring;
    }        
           sub end_th {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring = $token->[2];     
       } elsif ($target eq 'tex') {
    my $current_row = $Apache::londefdef::table[-1]{'row_number'};
    my $data=&Apache::lonxml::endredirection();
    if ($data=~m/width\s*=\s*(\d+\.*\d*\s*(mm|cm))/) {                 
                       $Apache::londefdef::table[-1]{'length'} .= $1.',';             
    } else {
       $Apache::londefdef::table[-1]{'length'} .= '0 mm,'; 
                   }                                                           
    @{ $Apache::londefdef::table[-1]{'rowdata'} }[$current_row] .= '\parbox{'.$1.'}{\textbf{'.$data.'}} '.$Apache::londefdef::table[-1]{'vinc'};
     }      }
    return $currentstring;     return $currentstring;
  }   }
Line 1341  EDITBUTTON Line 1546  EDITBUTTON
             $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=              $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
                                         $token->[2]->{'src'};                                          $token->[2]->{'src'};
             my $currentstring = '';              my $currentstring = '';
       my $width_param = '';
       my $height_param = '';
       my $scaling = .3;
   
     if ($target eq 'web') {      if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);        my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
       my $file;        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
       my $path;                #if original gif/jpg file exist do following:
               if ($src =~ m!(.*)/([^/]*)$!) {                if (-e $src) {          
  $file = $2;                    #defines the default size of image
  $path = $1;    my $image = Image::Magick->new;
  if ($path=~m:^/:) {    my $current_figure = $image->Read($src);
   $path = '/home/httpd/html'.$path;    $width_param = $image->Get('width') * $scaling;;
  } elsif ($path =~ /^\./) {    $height_param = $image->Get('height') * $scaling;;
   $path = $Apache::lonxml::pwd[-1].'/'.$path;    undef $image;
  } else {    #do we have any specified size of the picture?
   #else it is a full url don't print    my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval); 
   $path = undef;    my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval); 
  }    my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);
       } else {    if ($TeXwidth ne '') {  
  $path = $Apache::lonxml::pwd[-1];        if ($TeXwidth=~/(\d+)\s*\%/) {
  $file = $src;    $width_param = $1*$ENV{'form.textwidth'}/100;
       }        } else { 
       $file=~s/(\.gif|\.jpg)$/\.eps/;    $width_param = $TeXwidth;
       if ($path) {        }
  $currentstring = '\graphicspath{{'.$path.'/}}\fbox{\includegraphics{'.$file.'}}';    } elsif ($TeXheight ne '') {
     $width_param = $TeXheight/$height_param*$width_param;
     } elsif ($width ne '') {
         $width_param = $width*$scaling;      
     }
     my $file;
     my $path;
     if ($src =~ m!(.*)/([^/]*)$!) {
         $file = $2; 
         $path = $1.'/'; 
     } 
     my $newsrc = $src;
     $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i;
     $file=~s/(\.gif|\.jpg)$/\.eps/i;
     #where can we find the picture?
     if (-e $newsrc) {
                         #eps counterpart for image exist 
         if ($path) {
     $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
         }
     } else {
                         #there is no eps counterpart for image - check for ps one
         $newsrc =~ s/\.eps$/\.ps/;
         if (-e $newsrc) {
     #ps counterpart for image exist 
     $file =~ s/\.eps$/\.ps/;
     if ($path) {
         $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
     }
         } else {
     #there aren't eps or ps - so create eps 
     my $temp_file;
     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
     $temp_file = Apache::File->new('>>'.$filename); 
     print $temp_file "$src\n";
     $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
         }
     }
       } else {        } else {
  $currentstring = 'See the image at \tt{'.$src.'}';    #original image file doesn't exist so check the alt attribute
     my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval);
                     if ($alt) {
         $currentstring .= ' '.$alt.' ';
     } else {
                     #there are no image and alt attribute
                         $currentstring .= ' THE ORIGINAL PROBLEM CONTAINS EMPTY IMG TAG WITHOUT IMAGE AND ALT ATTRIBUTE ';
     }
       }        }
     }      }
     return $currentstring;      return $currentstring;
Line 1462  sub start_embed { Line 1714  sub start_embed {
     }       } 
    return $currentstring;     return $currentstring;
  }   }
   
 #-- <allow> tag  #-- <allow> tag
   
         sub start_allow {          sub start_allow {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
   
             $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=                 $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=   
                                         $token->[2]->{'src'};                                          $token->[2]->{'src'};
       my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);
       if (not -e '/home/httpd/html'.$src) {
               #replicates image itself
    &Apache::lonnet::repcopy($src);
           #replicates eps or ps 
    my $newsrc = $src;
    $newsrc =~ s/(.gif|.jpg)$/.eps/;
     if (not-e $newsrc && &Apache::lonnet::repcopy($newsrc) ne 'OK') {
       $newsrc =~ s/\.ps$/\.eps/;
       &Apache::lonnet::repcopy($newsrc);
    }
       }
    return '';     return '';
  }   }
         sub end_allow {          sub end_allow {
Line 1554  sub start_embed { Line 1814  sub start_embed {
     }      }
            return $currentstring;             return $currentstring;
  }   }
   #-- <blankspace heigth="">
           sub start_blankspace {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'tex') {
    my $howmuch = &Apache::lonxml::get_param('heigth',$parstack,$safeeval);
    $currentstring .= '\vskip '.$howmuch.' ';
       }
              return $currentstring;
    }
           sub end_blankspace {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'tex') {
          $currentstring .= '';
       }
              return $currentstring;
    }
   #-- <abbr> tag
         sub start_abbr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_abbr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <acronym> tag
         sub start_acronym {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_acronym {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <area> tag
         sub start_area {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_area {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <base> tag
         sub start_base {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_base {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <bdo> tag
         sub start_bdo {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_bdo {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <bgsound> tag
         sub start_bgsound {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_bgsound {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <blink> tag
         sub start_blink {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_blink {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <blockquote> tag
         sub start_blockquote {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_blockquote {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <button> tag
         sub start_button {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_button {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <caption> tag
         sub start_caption {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_caption {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <col> tag
         sub start_col {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_col {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <colgroup> tag
         sub start_colgroup {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_colgroup {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <del> tag
         sub start_del {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_del {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <fieldset> tag
         sub start_fieldset {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_fieldset {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <frame> tag
         sub start_frame {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_frame {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <iframe> tag
         sub start_iframe {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_iframe {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <ins> tag
         sub start_ins {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_ins {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <isindex> tag
         sub start_isindex {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_isindex {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <keygen> tag
         sub start_keygen {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_keygen {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <label> tag
         sub start_label {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_label {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <layer> tag
         sub start_layer {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_layer {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <legend> tag
         sub start_legend {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_legend {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <link> tag
         sub start_link {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_link {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <marquee> tag
         sub start_marquee {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_marquee {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <malticol> tag
         sub start_malticol {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_malticol {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <nobr> tag
         sub start_nobr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_nobr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <noembed> tag
         sub start_noembed {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_noembed {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <noframes> tag
         sub start_noframes {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_noframes {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <nolayer> tag
         sub start_nolayer {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_nolayer {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <noscript> tag
         sub start_noscript {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_noscript {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <object> tag
         sub start_object {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_object {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <optgroup> tag
         sub start_optgroup {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_optgroup {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <samp> tag
         sub start_samp {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_samp {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <server> tag
         sub start_server {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_server {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <spacer> tag
         sub start_spacer {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_spacer {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <span> tag
         sub start_span {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_span {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <tbody> tag
         sub start_tbody {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_tbody {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <tfoot> tag
         sub start_tfoot {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_tfoot {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <thead> tag
         sub start_thead {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_thead {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <var> tag
         sub start_var {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_var {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
   #-- <wbr> tag
         sub start_wbr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[4];     
       } 
      return $currentstring;
    }
           sub end_wbr {
       my ($target,$token) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
                 $currentstring = $token->[2];    
               } 
      return $currentstring;
    }
 1;  1;
 __END__  __END__
Removed from v.1.50  
changed lines
  Added in v.1.91

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.