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

Diff for /loncom/xml/londefdef.pm between versions 1.20 and 1.31

version 1.20, 2001/02/01 19:10:11 version 1.31, 2001/07/03 20:58:27
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,02/01/01 Gerd Kortemeyer  # 11/6,11/30,02/01/01,5/4 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','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'));      &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','frameset'));
   
 }  }
   
 #===================================================================== 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,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
  my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);    my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); 
Line 60  sub BEGIN { Line 58  sub BEGIN {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = &Apache::lonxml::xmlbegin().
                                  &Apache::lonxml::fontsettings();     
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 68  sub BEGIN { Line 67  sub BEGIN {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[2];       $currentstring = &Apache::lonxml::xmlend();
             }               } 
    return $currentstring;     return $currentstring;
  }   }
Line 85  sub BEGIN { Line 84  sub BEGIN {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[2];                    $currentstring = &Apache::lonxml::registerurl().
                                  $token->[2];    
             }               } 
    return $currentstring;     return $currentstring;
  }   }
Line 219  sub BEGIN { Line 219  sub BEGIN {
  }   }
 #-------------------------------------------------------------------------- <meta> tag  #-------------------------------------------------------------------------- <meta> tag
       sub start_meta {        sub start_meta {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$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 238  sub BEGIN { Line 244  sub BEGIN {
     }      }
    return $currentstring;     return $currentstring;
  }   }
         sub end_meta {        sub end_meta {
     my ($target,$token) = @_;   my ($target,$token,$tagstack,$parstack,$parser) = @_;
             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];             if (!$Apache::lonxml::registered) {
     } elsif ($target eq 'tex') {   $currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';
         }
         $token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents();
         $token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents();
   
         $currentstring .= '<'.$token->[1];
         map {
    $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
         } keys %{$token->[2]};
         $currentstring.='>';
              } elsif ($target eq 'tex') {
               $currentstring = " \\begin{document} ";                  $currentstring = " \\begin{document} ";  
     }       } 
    return $currentstring;     return $currentstring;
Line 941  sub BEGIN { Line 961  sub BEGIN {
            return $currentstring;             return $currentstring;
  }   }
         sub end_a {          sub end_a {
     my ($target,$token,$stackref) = @_;      my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
Line 959  sub BEGIN { Line 979  sub BEGIN {
  }   }
 #---------------------------------------------------------------------------- <li> tag  #---------------------------------------------------------------------------- <li> tag
         sub start_li {          sub start_li {
     my ($target,$token,$stackref) = @_;      my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
Line 1333  sub BEGIN { Line 1353  sub BEGIN {
    return '';     return '';
  }   }
   
   # ------------------------------------------------------------------------- Frames
    sub start_frameset {
     my ($target,$token) = @_;
     my $currentstring = '';
     if ($target eq 'web') { 
       if (!$Apache::lonxml::registered) {
         $currentstring.='<head>'.&Apache::lonxml::registerurl().'</head>';
       }
       $currentstring .= $token->[4];
     }
     return $currentstring;
    }
           sub end_frameset {
     my ($target,$token) = @_;
     my $currentstring = '';
     if ($target eq 'web') {
       $currentstring = $token->[2];
     }
     return $currentstring;
    }
 1;  1;
 __END__  __END__
Removed from v.1.20  
changed lines
  Added in v.1.31

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