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

Diff for /loncom/xml/londefdef.pm between versions 1.64 and 1.65

version 1.64, 2002/05/23 20:19:04 version 1.65, 2002/06/20 17:49:37
Line 52  use Apache::File(); Line 52  use Apache::File();
   
 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','tr','th','td'));      &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','tr','th','td','blankspace','bubble','bubbles','bubbleline'));
   
 }  }
   
Line 122  sub end_m { Line 122  sub end_m {
       $currentstring .= '\documentclass[letterpaper]{article}        $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                                              \newcommand{\keephidden}[1]{}           
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
                                  \usepackage{epsfig}';                                   \usepackage{epsfig}\usepackage{calc}';
     }      }
    return $currentstring;     return $currentstring;
  }   }
Line 840  EDITBUTTON Line 840  EDITBUTTON
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring .= '\\\\';   $currentstring .= '\vskip 0 mm';
     } elsif ($target eq 'latexsource') {      } elsif ($target eq 'latexsource') {
  $currentstring .= '\\';   $currentstring .= '\\';
     }       } 
Line 1679  sub start_embed { Line 1679  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;
    }
   #-- <bubble symbol="">
           sub start_bubble {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
       my $sign = &Apache::lonxml::get_param('symbol',$parstack,$safeeval);
               if ($target eq 'web') {
    $currentstring .= '<td><b>'.$sign.')</b>';
       } elsif ($target eq 'tex') {
    $currentstring .= '{\small\mbox{'.$sign.')\hskip 1mm ';
       }
              return $currentstring;
    }
           sub end_bubble {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring .= '</td>';
       } elsif ($target eq 'tex') {
    $currentstring .= '}} &';
       }
              return $currentstring;
    }
   #-- <bubbles>
           sub start_bubbles {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring .= '<table border=1>';
       } elsif ($target eq 'tex') {
    my $howmuch = &Apache::lonxml::get_param('num',$parstack,$safeeval);
    $currentstring .= '\noindent\fbox{\begin{tabular}{' ;
    for (my $id=0;$id<$howmuch;$id++) {$currentstring .= 'l ';}
    $currentstring .= '}';
       }
              return $currentstring;
    }
           sub end_bubbles {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring .= '</table>';
       } elsif ($target eq 'tex') {
    $currentstring .= '\end{tabular}}\vskip 5mm';
       }
              return $currentstring;
    }
   #-- <bubbleline>
           sub start_bubbleline {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring .= '<tr>';
       } elsif ($target eq 'tex') {
    &Apache::lonxml::startredirection();
       }
              return $currentstring;
    }
           sub end_bubbleline {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               if ($target eq 'web') {
    $currentstring .= '</tr>';
       } elsif ($target eq 'tex') {
    my $data = &Apache::lonxml::endredirection();
    $data =~ s/&\s*$//;
    $currentstring .= $data.'\\\\ ';
       }
              return $currentstring;
    }
 1;  1;
 __END__  __END__
Removed from v.1.64  
changed lines
  Added in v.1.65

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