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

Diff for /loncom/xml/londefdef.pm between versions 1.15 and 1.26

version 1.15, 2001/01/05 19:20:01 version 1.26, 2001/03/27 17:50:38
Line 2 Line 2
 # Tags Default Definition Module   # Tags Default Definition Module 
 #  #
 # last modified 06/26/00 by Alexander Sakharuk  # last modified 06/26/00 by Alexander Sakharuk
 # 11/6,11/30 Gerd Kortemeyer  # 11/6,11/30,02/01/01 Gerd Kortemeyer
   
 package Apache::londefdef;   package Apache::londefdef; 
   
Line 11  use Apache::lonxml; Line 11  use Apache::lonxml;
   
 sub BEGIN {  sub BEGIN {
   
     &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','applet','select','option','input','textarea','form','meta','title','body','center','b','strong','table','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','tr','td'));      &Apache::lonxml::register('Apache::londefdef',('m','html','head','map','select','option','input','textarea','form','meta','title','body','center','b','strong','table','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','tr','td','allow'));
   
 }  }
   
 #===================================================================== TAG SUBROUTINES  #===================================================================== TAG SUBROUTINES
 #-- <output>  #-- <output>
         sub start_output {  sub start_output {
      my ($target,$token) = @_;    my ($target) = @_;
             $Apache::lonxml::textredirection = 1;     if ($target eq 'meta') { $Apache::lonxml::metamode--; }
             my $result = '';    return '';
             return $result;  }
  }  sub end_output {
         sub end_output {    my ($target) = @_;
      my ($target,$token) = @_;    if ($target eq 'meta') { $Apache::lonxml::metamode++; }
             $Apache::lonxml::textredirection = 0;                 return '';
             my $result = '';  }
             return $result;  
  }  
 #-- <m> tag  #-- <m> tag
         sub start_m {          sub start_m {
     my ($target,$token,$parstack,$parser) = @_;      my ($target,$token,$parstack,$parser) = @_;
Line 106  sub BEGIN { Line 104  sub BEGIN {
             }               } 
    return $currentstring;     return $currentstring;
  }   }
 #------------------------------------------------------------------------ <applet> tag  
       sub start_applet {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[4];       
     }   
    return $currentstring;  
  }  
         sub end_applet {  
     my ($target,$token) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
               $currentstring = $token->[2];      
             }   
    return $currentstring;  
  }  
 #------------------------------------------------------------------------ <select> tag  #------------------------------------------------------------------------ <select> tag
       sub start_select {        sub start_select {
     my ($target,$token) = @_;      my ($target,$token) = @_;
Line 235  sub BEGIN { Line 217  sub BEGIN {
  }   }
 #-------------------------------------------------------------------------- <meta> tag  #-------------------------------------------------------------------------- <meta> tag
       sub start_meta {        sub start_meta {
     my ($target,$token) = @_;      my ($target,$token,$parstack,$parser) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];             my $args='';
         if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
         if ($args eq '') {
    &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);
         } else {
    $currentstring = $token->[4];
         }
     }      }
             if ($target eq 'meta') {              if ($target eq 'meta') {
  unless ($token->[2]->{'http-equiv'}) {   unless ($token->[2]->{'http-equiv'}) {
Line 254  sub BEGIN { Line 242  sub BEGIN {
     }      }
    return $currentstring;     return $currentstring;
  }   }
         sub end_meta {        sub end_meta {
     my ($target,$token) = @_;   my ($target,$token) = @_;
             my $currentstring = '';   my $currentstring = '';
             if ($target eq 'web') {   if ($target eq 'web') {
               $currentstring = $token->[2];        my $args='';
             }     if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
    return $currentstring;    if ($args ne '') {
  }      $currentstring = $token->[4];
     }
    } 
    return $currentstring;
         }
 #-------------------------------------------------------------------------- <body> tag  #-------------------------------------------------------------------------- <body> tag
         sub start_body {          sub start_body {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             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 = " \\begin{document} ";                  $currentstring = " \\begin{document} ";  
     }       } 
Line 291  sub BEGIN { Line 283  sub BEGIN {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " \\begin{center} ";                  $currentstring = " \\begin{center} ";  
       }  elsif ($target eq 'latexsource') {
                 $currentstring = " \\begin{center} ";  
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 301  sub BEGIN { Line 295  sub BEGIN {
               $currentstring = $token->[2];                     $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " \\end{center}";                  $currentstring = " \\end{center}";  
       }  elsif ($target eq 'latexsource') {
                 $currentstring = " \\end{center}";  
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 311  sub BEGIN { Line 307  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " {\\bf ";                  $currentstring = " \\textbf{";  
       }  elsif ($target eq 'latexsource') {
                 $currentstring = " \\textbf{";  
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 322  sub BEGIN { Line 320  sub BEGIN {
               $currentstring = $token->[2];                     $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = "}";                  $currentstring = "}";  
       } elsif ($target eq 'latexsource') {
                 $currentstring = "}";  
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 332  sub BEGIN { Line 332  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " {\\bf ";                  $currentstring = " \\textbf{";  
       } elsif ($target eq 'latexsource') {
                 $currentstring = " \\textbf{";  
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 344  sub BEGIN { Line 346  sub BEGIN {
               $currentstring = $token->[2];                     $currentstring = $token->[2];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = "}";                  $currentstring = "}";  
       }  elsif ($target eq 'latexsource') {
                 $currentstring = "}";  
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 486  sub BEGIN { Line 490  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\it ";   $currentstring .= "\\textit{";
       }  elsif ($target eq 'latexsource') {
    $currentstring .= "\\textit{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 497  sub BEGIN { Line 503  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
       }  elsif ($target eq 'latexsource') {
    $currentstring .= "}";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 507  sub BEGIN { Line 515  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\it ";   $currentstring .= "\\textit{";
       }  elsif ($target eq 'latexsource') {
    $currentstring .= "\\textit{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 518  sub BEGIN { Line 528  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 528  sub BEGIN { Line 540  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\it ";   $currentstring .= "\\textit{";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "\\textit{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 539  sub BEGIN { Line 553  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
     }      }
            return $currentstring;             return $currentstring;
  }   }
Line 549  sub BEGIN { Line 565  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\it ";   $currentstring .= "\\textit{";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "\\textit{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 560  sub BEGIN { Line 578  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 570  sub BEGIN { Line 590  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\tt ";   $currentstring .= "\\texttt{";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "\\texttt{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 581  sub BEGIN { Line 603  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
     }       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
       }
            return $currentstring;             return $currentstring;
  }   }
 #---------------------------------------------------------------------------- <kbd> tag  #---------------------------------------------------------------------------- <kbd> tag
Line 591  sub BEGIN { Line 615  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\tt ";   $currentstring .= "\\texttt";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "\\texttt{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 602  sub BEGIN { Line 628  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 634  sub BEGIN { Line 662  sub BEGIN {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "\\emph{";   $currentstring .= "\\emph{";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "\\emph{";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 644  sub BEGIN { Line 674  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
     }       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
       }  
            return $currentstring;             return $currentstring;
  }   }
 #----------------------------------------------------------------------------- <q> tag  #----------------------------------------------------------------------------- <q> tag
Line 654  sub BEGIN { Line 686  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{ \\emph ";   $currentstring .= "\\emph{";
     }       }  elsif ($target eq 'latexsource') {
    $currentstring .= "\\emph{";
       }
            return $currentstring;             return $currentstring;
  }   }
         sub end_q {          sub end_q {
Line 665  sub BEGIN { Line 699  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "}";   $currentstring .= "}";
     }       } elsif ($target eq 'latexsource') {
    $currentstring .= "}";
       }  
            return $currentstring;             return $currentstring;
  }   }
 #----------------------------------------------------------------------------- <p> tag  #----------------------------------------------------------------------------- <p> tag
Line 676  sub BEGIN { Line 712  sub BEGIN {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{\\par ";   $currentstring .= "{\\par ";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "{\\par ";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 685  sub BEGIN { Line 723  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= " }";          $currentstring .= "}";
               } elsif ($target eq 'latexsource') {
           $currentstring .= "}";
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 697  sub BEGIN { Line 737  sub BEGIN {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "\\\\";   $currentstring .= "\\\\";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "\\\\";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 716  sub BEGIN { Line 758  sub BEGIN {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{\\large ";   $currentstring .= "{\\large ";
     }       } elsif ($target eq 'latexsource') {
    $currentstring .= "{\\large ";
       }  
            return $currentstring;             return $currentstring;
  }   }
         sub end_big {          sub end_big {
Line 726  sub BEGIN { Line 770  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= " }";          $currentstring .= " }";
               } elsif ($target eq 'latexsource') {
           $currentstring .= " }";
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 737  sub BEGIN { Line 783  sub BEGIN {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= "{\\footnotesize ";   $currentstring .= "{\\footnotesize ";
       } elsif ($target eq 'latexsource') {
    $currentstring .= "{\\footnotesize ";
     }       } 
            return $currentstring;             return $currentstring;
  }   }
Line 747  sub BEGIN { Line 795  sub BEGIN {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring .= " }";          $currentstring .= " }";
               } elsif ($target eq 'latexsource') {
           $currentstring .= " }";
             }              }
            return $currentstring;             return $currentstring;
  }   }
Line 1256  sub BEGIN { Line 1306  sub BEGIN {
                       $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=                        $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
      $token->[2]->{'value'};       $token->[2]->{'value'};
             }                 }   
             $Apache::lonxml::extlinks[$Apache::lonxml::extlinks+1]=                 $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=   
                                         $token->[2]->{'src'};                                          $token->[2]->{'src'};
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
Line 1282  sub BEGIN { Line 1332  sub BEGIN {
         sub start_allow {          sub start_allow {
     my ($target,$token) = @_;      my ($target,$token) = @_;
   
             $Apache::lonxml::extlinks[$Apache::lonxml::extlinks+1]=                 $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=   
                                         $token->[2]->{'src'};                                          $token->[2]->{'src'};
   
    return '';     return '';
Removed from v.1.15  
changed lines
  Added in v.1.26

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