[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.119

version 1.118, 2003/02/19 14:30:10 version 1.119, 2003/02/20 17:07:14
Line 324  sub start_html { Line 324  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 336  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 1673  sub start_table { Line 1676  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 1692  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 1706  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 1734  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 1749  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 1769  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 1784  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 1815  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.119

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