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

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

version 1.113, 2003/02/14 19:35:55 version 1.118, 2003/02/19 14:30:10
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 {
   
Line 155  sub start_html { Line 156  sub start_html {
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  @Apache::londefdef::table = ();   @Apache::londefdef::table = ();
  $currentstring .= '\documentclass[letterpaper]{article}   $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                             \newcommand{\keephidden}[1]{}
                                  \renewcommand{\deg}{$^{\circ}$}                             \renewcommand{\deg}{$^{\circ}$}
                                  \usepackage[dvips]{graphicx}                             \usepackage{textcomp}
                                  \usepackage{epsfig}\usepackage{calc}                             \usepackage[dvips]{graphicx}
                                  \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';                             \usepackage{epsfig}\usepackage{calc}
   \newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}';
     }      }
     return $currentstring;      return $currentstring;
 }  }
Line 399  sub start_html { Line 401  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 1597  sub start_table { Line 1599  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 1690  sub start_table { Line 1703  sub start_table {
                                         $token->[2]->{'archive'};                                          $token->[2]->{'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=$token->[2]->{'alt'};
                     unless ($alttag) {
                        $alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'},
                                                         $token->[2]->{'code'});
                     }
                     $currentstring='[APPLET: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " \\begin{figure} ";                $currentstring = " \\begin{figure} ";
     }       } 
Line 1715  sub start_embed { Line 1737  sub start_embed {
  $token->[2]->{'src'};   $token->[2]->{'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=$token->[2]->{'alt'};
             unless ($alttag) {
                $alttag=&Apache::lonmeta::alttag($ENV{'REQUEST_URI'},
                                                 $token->[2]->{'src'});
             }
             $currentstring='[EMBED: '.$alttag.']';
         }
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $currentstring = " \\begin{figure} ";     $currentstring = " \\begin{figure} ";  
     }       } 
Line 1766  sub start_allow { Line 1797  sub start_allow {
     $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=      $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
  $token->[2]->{'src'};   $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);
     &image_replication($src);      &image_replication($src);
     my $result;      my $result;
     if ($target eq 'edit') {      if ($target eq 'edit') {
Line 2581  sub end_allow { Line 2613  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.113  
changed lines
  Added in v.1.118

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