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

Diff for /loncom/xml/londefdef.pm between versions 1.118 and 1.121

version 1.118, 2003/02/19 14:30:10 version 1.121, 2003/03/18 07:26:49
Line 54  use Apache::lonmeta(); Line 54  use Apache::lonmeta();
   
 BEGIN {  BEGIN {
   
     &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','tthoption','u','ul','var','wbr'));      &Apache::lonxml::register('Apache::londefdef',('a','abbr','acronym','accessrule','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','tthoption','u','ul','var','wbr'));
   
 }  }
   
Line 123  sub start_tthoption { Line 123  sub start_tthoption {
   &tth::tthoptions($inside);    &tth::tthoptions($inside);
       }        }
   }    }
     return $result;
 }  }
   
 sub end_tthoption {  sub end_tthoption {
Line 324  sub start_html { Line 325  sub start_html {
  }   }
 #-- <meta> tag  #-- <meta> tag
       sub start_meta {        sub start_meta {
     my ($target,$token,$tagstack,$parstack,$parser) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
       my $args='';        my $args='';
Line 336  sub start_html { Line 337  sub start_html {
       }        }
     }      }
             if ($target eq 'meta') {              if ($target eq 'meta') {
  unless ($token->[2]->{'http-equiv'}) {   unless (&Apache::lonxml::get_param
                            ('http-equiv',$parstack,$safeeval,undef,1)) {
     my $name=$token->[2]->{'name'};      my $name=$token->[2]->{'name'};
                     $name=~tr/A-Z/a-z/;                      $name=~tr/A-Z/a-z/;
                     $name=~s/\s/\_/g;                      $name=~s/\s/\_/gs;
                       $name=~s/\W//gs;
                     if ($name) {                      if ($name) {
                        $currentstring='<'.$name.'>'.                         $currentstring='<'.$name.'>'.
                                          $token->[2]->{'content'}.                                           &Apache::lonxml::get_param
                                  ('content',$parstack,$safeeval,undef,1).
               '</'.$name.'>';                '</'.$name.'>';
     }      }
                 }                  }
Line 361  sub start_html { Line 365  sub start_html {
  }    } 
  return $currentstring;   return $currentstring;
       }        }
   # accessrule
         sub start_accessrule {
       my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               my $currentstring = '';
               my $eff=&Apache::lonxml::get_param
    ('effect',$parstack,$safeeval,undef,1);
               my $realm=&Apache::lonxml::get_param
    ('realm',$parstack,$safeeval,undef,1);
               my $cont=&Apache::lonxml::get_param
    ('content',$parstack,$safeeval,undef,1);
               $cont=~s/\s+//g;
               $cont=~s/\W/\;/g;
               if ($target eq 'web') {
         my $args='';
         if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
         if ($args eq '') {
    &Apache::lonxml::get_all_text("/accessrule",$parser);
         } else {
    $currentstring = $token->[4];
         }
       }
               if ($target eq 'meta') {
                  $currentstring='<rule>'.
                                 $eff.':'.$realm.':'.$cont.         
         '</rule>';
       }
      return $currentstring;
    }
         sub end_accessrule {
    my ($target,$token,$tagstack,$parstack,$parser) = @_;
    my $currentstring = '';
    if ($target eq 'web') {
     my $args='';
     if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
     if ($args ne '') {
       $currentstring = $token->[4];
     }
    } 
    return $currentstring;
         }
 #-- <body> tag  #-- <body> tag
         sub start_body {          sub start_body {
             my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;              my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
Line 1673  sub start_table { Line 1717  sub start_table {
   }    }
       } else {        } else {
   #original image file doesn't exist so check the alt attribute    #original image file doesn't exist so check the alt attribute
   my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1);    my $alt = 
                    &Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1);
                     unless ($alt) {
       $alt=&Apache::lonmeta::alttag
                                      ($Apache::lonxml::pwd[-1],$src);
                     }
   
                   if ($alt) {                    if ($alt) {
       $currentstring .= ' '.$alt.' ';        $currentstring .= ' '.$alt.' ';
   } else {    } else {
Line 1683  sub start_table { Line 1733  sub start_table {
     }      }
     return $currentstring;      return $currentstring;
  }   }
   
         sub end_img {          sub end_img {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
Line 1696  sub start_table { Line 1747  sub start_table {
 #-- <applet> tag  #-- <applet> tag
   
         sub start_applet {          sub start_applet {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
               $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=     
                                         $token->[2]->{'code'};      my $code=&Apache::lonxml::get_param
               $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=                                   ('code',$parstack,$safeeval,undef,1);
                                         $token->[2]->{'archive'};              $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$code;
   
       my $archive=&Apache::lonxml::get_param
                                    ('archive',$parstack,$safeeval,undef,1);
               $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$archive;
   
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               if ($ENV{'browser.appletsuppress'} ne 'on') {                if ($ENV{'browser.appletsuppress'} ne 'on') {
                  $currentstring = $token->[4];                   $currentstring = $token->[4];
       } else {        } else {
   my $alttag=$token->[2]->{'alt'};    my $alttag= &Apache::lonxml::get_param
                                  ('alt',$parstack,$safeeval,undef,1);
                   unless ($alttag) {                    unless ($alttag) {
                      $alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'},                       $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],
                                                       $token->[2]->{'code'});                                                        $code);
                   }                    }
                   $currentstring='[APPLET: '.$alttag.']';                    $currentstring='[APPLET: '.$alttag.']';
       }        }
Line 1718  sub start_table { Line 1775  sub start_table {
     }       } 
    return $currentstring;     return $currentstring;
  }   }
   
 sub end_applet {  sub end_applet {
     my ($target,$token) = @_;      my ($target,$token) = @_;
     my $currentstring = '';      my $currentstring = '';
Line 1732  sub end_applet { Line 1790  sub end_applet {
 #-- <embed> tag  #-- <embed> tag
   
 sub start_embed {      sub start_embed {    
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=      my $src=&Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
  $token->[2]->{'src'};      $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
     my $currentstring = '';      my $currentstring = '';
     if ($target eq 'web') {      if ($target eq 'web') {
        if ($ENV{'browser.embedsuppress'} ne 'on') {         if ($ENV{'browser.embedsuppress'} ne 'on') {
           $currentstring = $token->[4];            $currentstring = $token->[4];
        } else {         } else {
   my $alttag=$token->[2]->{'alt'};    my $alttag=&Apache::lonxml::get_param
                                  ('alt',$parstack,$safeeval,undef,1);
           unless ($alttag) {            unless ($alttag) {
              $alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'},               $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],$src);
                                               $token->[2]->{'src'});  
           }            }
           $currentstring='[EMBED: '.$alttag.']';            $currentstring='[EMBED: '.$alttag.']';
       }        }
Line 1752  sub start_embed { Line 1810  sub start_embed {
     }       } 
     return $currentstring;      return $currentstring;
 }  }
   
         sub end_embed {          sub end_embed {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
Line 1766  sub start_embed { Line 1825  sub start_embed {
 #-- <param> tag  #-- <param> tag
   
         sub start_param {          sub start_param {
     my ($target,$token) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     if ($token->[2]->{'name'} eq 'cabbase') {      if (&Apache::lonxml::get_param
                   ('name',$parstack,$safeeval,undef,1)=~/^cabbase$/i) {
                       $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=                        $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
      $token->[2]->{'value'};   &Apache::lonxml::get_param
                                  ('value',$parstack,$safeeval,undef,1);
             }                 }   
             $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=                 $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=   
                                         $token->[2]->{'src'};                                        &Apache::lonxml::get_param
                                  ('src',$parstack,$safeeval,undef,1);
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
Line 1794  sub start_embed { Line 1856  sub start_embed {
 #-- <allow> tag  #-- <allow> tag
 sub start_allow {  sub start_allow {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
     $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=  
  $token->[2]->{'src'};  
     my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);      my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
     $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);      $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
       $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
     &image_replication($src);      &image_replication($src);
     my $result;      my $result;
     if ($target eq 'edit') {      if ($target eq 'edit') {
Removed from v.1.118  
changed lines
  Added in v.1.121

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