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

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

version 1.114, 2003/02/14 20:57:09 version 1.121, 2003/03/18 07:26:49
Line 44 Line 44
   
 package Apache::londefdef;   package Apache::londefdef; 
   
 use Apache::lonnet;  use Apache::lonnet();
 use strict;  use strict;
 use Apache::lonxml;  use Apache::lonxml();
 use Apache::File();  use Apache::File();
 use Image::Magick;  use Image::Magick;
 use Apache::lonmenu;  use Apache::lonmenu();
   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 122  sub start_tthoption { Line 123  sub start_tthoption {
   &tth::tthoptions($inside);    &tth::tthoptions($inside);
       }        }
   }    }
     return $result;
 }  }
   
 sub end_tthoption {  sub end_tthoption {
Line 323  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 335  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 360  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 400  sub start_html { Line 445  sub start_html {
  </form>   </form>
 EDITBUTTON  EDITBUTTON
               } else {                } else {
  $currentstring.=&Apache::lonmenu::menubuttons(undef,$target);   $currentstring.=&Apache::lonmenu::menubuttons(undef,$target,1);
               }                }
            } elsif ($target eq 'tex') {             } elsif ($target eq 'tex') {
               $currentstring = '\begin{document}';                  $currentstring = '\begin{document}';  
Line 1598  sub start_table { Line 1643  sub start_table {
     my $scaling = .3;      my $scaling = .3;
   
     if ($target eq 'web') {      if ($target eq 'web') {
               $currentstring = $token->[4];                if ($ENV{'browser.imagesuppress'} ne 'on') {
                    $currentstring = $token->[4];
         } else {
     my $alttag= &Apache::lonxml::get_param
                                  ('alt',$parstack,$safeeval,undef,1);
                     unless ($alttag) {
       $alttag=&Apache::lonmeta::alttag
                                      ($Apache::lonxml::pwd[-1],$src);
                     }
                     $currentstring='[IMAGE: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       &image_replication($src);        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
       $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);       &image_replication($src);
   
               #if original gif/jpg/png file exist do following:                #if original gif/jpg/png file exist do following:
               if (-e $src) {                          if (-e $src) {          
                   #defines the default size of image                    #defines the default size of image
Line 1661  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 1671  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 1684  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') {
               $currentstring = $token->[4];                if ($ENV{'browser.appletsuppress'} ne 'on') {
                    $currentstring = $token->[4];
         } else {
     my $alttag= &Apache::lonxml::get_param
                                  ('alt',$parstack,$safeeval,undef,1);
                     unless ($alttag) {
                        $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],
                                                         $code);
                     }
                     $currentstring='[APPLET: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " \\begin{figure} ";                $currentstring = " \\begin{figure} ";
     }       } 
    return $currentstring;     return $currentstring;
  }   }
   
 sub end_applet {  sub end_applet {
     my ($target,$token) = @_;      my ($target,$token) = @_;
     my $currentstring = '';      my $currentstring = '';
Line 1711  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') {
  $currentstring = $token->[4];         if ($ENV{'browser.embedsuppress'} ne 'on') {
             $currentstring = $token->[4];
          } else {
     my $alttag=&Apache::lonxml::get_param
                                  ('alt',$parstack,$safeeval,undef,1);
             unless ($alttag) {
                $alttag=&Apache::lonmeta::alttag($Apache::lonxml::pwd[-1],$src);
             }
             $currentstring='[EMBED: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring = " \\begin{figure} ";     $currentstring = " \\begin{figure} ";  
     }       } 
     return $currentstring;      return $currentstring;
 }  }
   
         sub end_embed {          sub end_embed {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
Line 1736  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 1764  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);
       $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') {
Line 2582  sub end_allow { Line 2674  sub end_allow {
   
 sub image_replication {  sub image_replication {
     my $src = shift;      my $src = shift;
     if (not -e '/home/httpd/html'.$src) {      if (not -e $src) {
  #replicates image itself   #replicates image itself
  &Apache::lonnet::repcopy('/home/httpd/html'.$src);   &Apache::lonnet::repcopy($src);
  #replicates eps or ps    #replicates eps or ps 
  my $newsrc = $src;   my $newsrc = $src;
  $newsrc =~ s/\.(gif|jpg|png)$/.eps/;   $newsrc =~ s/\.(gif|jpg|jpeg|png)$/.eps/i;
  if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {   if (not -e $newsrc) {
     $newsrc =~ s/\.eps$/\.ps/;             if (&Apache::lonnet::repcopy($newsrc) ne 'OK') {
     &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);         $newsrc =~ s/\.eps$/\.ps/;
          &Apache::lonnet::repcopy($newsrc);
      }
  }   }
     }      }
     return '';      return '';
Removed from v.1.114  
changed lines
  Added in v.1.121

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