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

Diff for /loncom/xml/londefdef.pm between versions 1.16 and 1.18

version 1.16, 2001/01/12 20:38:05 version 1.18, 2001/01/17 17:41:48
Line 237  sub BEGIN { Line 237  sub BEGIN {
       sub start_meta {        sub start_meta {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
     &Apache::lonxml::debug("In meta");  
             if ($target eq 'web') {              if ($target eq 'web') {
       &Apache::lonxml::debug("In meta2");  
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     }      }
             if ($target eq 'meta') {              if ($target eq 'meta') {
       &Apache::lonxml::debug("In meta3");  
  unless ($token->[2]->{'http-equiv'}) {   unless ($token->[2]->{'http-equiv'}) {
     my $name=$token->[2]->{'name'};      my $name=$token->[2]->{'name'};
                     $name=~tr/A-Z/a-z/;                      $name=~tr/A-Z/a-z/;
Line 255  sub BEGIN { Line 252  sub BEGIN {
     }      }
                 }                  }
     }      }
     &Apache::lonxml::debug("send back $currentstring");  
    return $currentstring;     return $currentstring;
  }   }
         sub end_meta {          sub end_meta {
Line 295  sub BEGIN { Line 291  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 305  sub BEGIN { Line 303  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 315  sub BEGIN { Line 315  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 326  sub BEGIN { Line 328  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 336  sub BEGIN { Line 340  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 348  sub BEGIN { Line 354  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 490  sub BEGIN { Line 498  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 501  sub BEGIN { Line 511  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 511  sub BEGIN { Line 523  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 522  sub BEGIN { Line 536  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 532  sub BEGIN { Line 548  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 543  sub BEGIN { Line 561  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 553  sub BEGIN { Line 573  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 564  sub BEGIN { Line 586  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 574  sub BEGIN { Line 598  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 585  sub BEGIN { Line 611  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 595  sub BEGIN { Line 623  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 606  sub BEGIN { Line 636  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 638  sub BEGIN { Line 670  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 648  sub BEGIN { Line 682  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 658  sub BEGIN { Line 694  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 669  sub BEGIN { Line 707  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 680  sub BEGIN { Line 720  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 689  sub BEGIN { Line 731  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 701  sub BEGIN { Line 745  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 720  sub BEGIN { Line 766  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 730  sub BEGIN { Line 778  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 741  sub BEGIN { Line 791  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 751  sub BEGIN { Line 803  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;
  }   }
Removed from v.1.16  
changed lines
  Added in v.1.18

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