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

Diff for /loncom/xml/londefdef.pm between versions 1.92 and 1.104

version 1.92, 2002/10/08 20:09:17 version 1.104, 2002/11/15 16:51:02
Line 109  sub end_m { Line 109  sub end_m {
   return $currentstring;    return $currentstring;
 }  }
 #-- <html> tag      #-- <html> tag    
       sub start_html {  sub start_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';      my $currentstring = '';
     if ($ENV{'browser.mathml'}) {      if ($ENV{'browser.mathml'}) {
       &tth::ttminit();   &tth::ttminit();
     } else {   if ($ENV{'browser.unicode'}) {
       &tth::tthinit();      &tth::ttmoptions('-L -u1');
     }   } else {
             if ($target eq 'web') {      &tth::ttmoptions('-L -u0');
               $currentstring = &Apache::lonxml::xmlbegin().   }
                                &Apache::lonxml::fontsettings();           } else {
     } elsif ($target eq 'tex') {   &tth::tthinit();
       @Apache::londefdef::table = ();   if ($ENV{'browser.unicode'}) {
       $currentstring .= '\documentclass[letterpaper]{article}      &tth::tthoptions('-L -u1');
    } else {
       &tth::tthoptions('-L -u0');
    }
       }
       if ($target eq 'web') {
    $currentstring = &Apache::lonxml::xmlbegin().
       &Apache::lonxml::fontsettings();     
       } elsif ($target eq 'tex') {
    @Apache::londefdef::table = ();
    $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                                   \newcommand{\keephidden}[1]{}
                                  \renewcommand{\deg}{$^{\circ}$}                                   \renewcommand{\deg}{$^{\circ}$}
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
                                  \usepackage{epsfig}\usepackage{calc}                                   \usepackage{epsfig}\usepackage{calc}
                                  \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';                                   \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';
     }      }
    return $currentstring;      return $currentstring;
  }  }
         sub end_html {          sub end_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
Line 845  EDITBUTTON Line 855  EDITBUTTON
        $currentstring .= $token->[4];         $currentstring .= $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {   if ($$tagstack[-2] ne 'sub' && $$tagstack[-2] ne 'sup') {
     $currentstring .= '\vskip 0 mm';      $currentstring .= '\vskip 0.2 mm';
  }   }
     } elsif ($target eq 'latexsource') {      } elsif ($target eq 'latexsource') {
  $currentstring .= '\\';   $currentstring .= '\\';
Line 1300  sub start_table { Line 1310  sub start_table {
  push @Apache::londefdef::table, $aa;    push @Apache::londefdef::table, $aa; 
  $Apache::londefdef::table[-1]{'row_number'} = -1;   $Apache::londefdef::table[-1]{'row_number'} = -1;
  $Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';   $Apache::londefdef::table[-1]{'output'} = ' \noindent \begin{tabular} ';
  my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval);   my $border = &Apache::lonxml::get_param('border',$parstack,$safeeval,undef,1); 
  unless (defined $border) { $border = 0; }   unless (defined $border) { $border = 0; }
  if ($border) {    if ($border) { 
     $Apache::londefdef::table[-1]{'hinc'} = '\hline ';       $Apache::londefdef::table[-1]{'hinc'} = '\hline '; 
Line 1314  sub start_table { Line 1324  sub start_table {
  my $width;   my $width;
  foreach my $key (keys(%{$token->[2]})) {   foreach my $key (keys(%{$token->[2]})) {
     if ($key =~ /^width$/i) {      if ($key =~ /^width$/i) {
  $width = &Apache::lonxml::get_param($key,$parstack,$safeeval);   $width = &Apache::lonxml::get_param($key,$parstack,$safeeval,undef,1);
     }      }
  }   }
  if (defined($width)) { $Apache::londefdef::table[-1]{'width'}=$width; }   if (defined($width)) { $Apache::londefdef::table[-1]{'width'}=$width; }
Line 1412  sub start_table { Line 1422  sub start_table {
  if ($signature) {   if ($signature) {
     my $NumberEmptyLength = $how_many_columns - $filled_columns;      my $NumberEmptyLength = $how_many_columns - $filled_columns;
     my $SpacePerColumn = '(\textwidth '.$available_space.')/'.$NumberEmptyLength;      my $SpacePerColumn = '(\textwidth '.$available_space.')/'.$NumberEmptyLength;
     $output =~ s/\$SpacePerColumn/$SpacePerColumn/g;      my $shorthand = ($filled_columns+1)*4;
       $output =~ s/\$SpacePerColumn/$SpacePerColumn - $shorthand mm/g;
  }   }
  $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';   $Apache::londefdef::table[-1]{'output'} .= $header_of_table.$output.$Apache::londefdef::table[-1]{'hinc'}.'\end{tabular}\vskip 0 mm ';
  if ($#Apache::londefdef::table > 0) {   if ($#Apache::londefdef::table > 0) {
Line 1438  sub start_table { Line 1449  sub start_table {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  $Apache::londefdef::table[-1]{'row_number'}++;   $Apache::londefdef::table[-1]{'row_number'}++;
  my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);   my $alignchar = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
  if ($alignchar ne '') {   if ($alignchar ne '') {
     push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;      push @ {$Apache::londefdef::table[-1]{'rows'} }, $alignchar;
  } else {   } else {
Line 1468  sub start_table { Line 1479  sub start_table {
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);   my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
  if ($what_to_push eq '') {   if ($what_to_push eq '') {
     $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;      $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
  }   }
Line 1511  sub start_table { Line 1522  sub start_table {
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval),0,1);   my $what_to_push = substr(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1),0,1);
  if ($what_to_push eq '') {   if ($what_to_push eq '') {
     $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;      $what_to_push = substr($Apache::londefdef::table[-1]{'rows'}[0],0,1);;
  }   }
Line 1542  sub start_table { Line 1553  sub start_table {
 #-- <img> tag  #-- <img> tag
         sub start_img {          sub start_img {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=      my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,
                                         $token->[2]->{'src'};   undef,1);
               $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=$src;
             my $currentstring = '';              my $currentstring = '';
     my $width_param = '';      my $width_param = '';
     my $height_param = '';      my $height_param = '';
     my $scaling = .3;      my $scaling = .3;
   
     if ($target eq 'web') {      if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
       my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);        &image_replication($src);
       $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);        $src=&Apache::lonnet::filelocation($Apache::lonxml::pwd[-1],$src);
               #if original gif/jpg 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
   my $image = Image::Magick->new;    my $image = Image::Magick->new;
Line 1563  sub start_table { Line 1575  sub start_table {
   $height_param = $image->Get('height') * $scaling;;    $height_param = $image->Get('height') * $scaling;;
   undef $image;    undef $image;
   #do we have any specified size of the picture?    #do we have any specified size of the picture?
   my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);     my $TeXwidth = &Apache::lonxml::get_param('TeXwidth',$parstack,$safeeval);
   my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);     my $TeXheight = &Apache::lonxml::get_param('TeXheight',$parstack,$safeeval);
   my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval);    my $width = &Apache::lonxml::get_param('width',$parstack,$safeeval,
                                                            undef,1);
   if ($TeXwidth ne '') {      if ($TeXwidth ne '') {  
       if ($TeXwidth=~/(\d+)\s*\%/) {        if ($TeXwidth=~/(\d+)\s*\%/) {
   $width_param = $1*$ENV{'form.textwidth'}/100;    $width_param = $1*$ENV{'form.textwidth'}/100;
Line 1584  sub start_table { Line 1597  sub start_table {
       $path = $1.'/';         $path = $1.'/'; 
   }     } 
   my $newsrc = $src;    my $newsrc = $src;
   $newsrc =~ s/(\.gif|\.jpg)$/\.eps/i;    $newsrc =~ s/\.(gif|jpg|png)$/.eps/i;
   $file=~s/(\.gif|\.jpg)$/\.eps/i;    $file=~s/\.(gif|jpg|png)$/.eps/i;
   #where can we find the picture?    #where can we find the picture?
   if (-e $newsrc) {    if (-e $newsrc) {
                       #eps counterpart for image exist                         #eps counterpart for image exist 
       if ($path) {        if ($path) {
   $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';    $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
       }        }
   } else {    } else {
                       #there is no eps counterpart for image - check for ps one                        #there is no eps counterpart for image - check for ps one
Line 1599  sub start_table { Line 1612  sub start_table {
   #ps counterpart for image exist     #ps counterpart for image exist 
   $file =~ s/\.eps$/\.ps/;    $file =~ s/\.eps$/\.ps/;
   if ($path) {    if ($path) {
       $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';        $currentstring .= '\vskip 1 mm \noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
   }    }
       } else {        } else {
   #there aren't eps or ps - so create eps     #there aren't eps or ps - so create eps 
Line 1607  sub start_table { Line 1620  sub start_table {
   my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";    my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.dat";
   $temp_file = Apache::File->new('>>'.$filename);     $temp_file = Apache::File->new('>>'.$filename); 
   print $temp_file "$src\n";    print $temp_file "$src\n";
   $currentstring .= '\graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';    $currentstring .= '\vskip 1 mm \graphicspath{{/home/httpd/prtspool/}}\fbox{\includegraphics[width='.$width_param.' mm]{'.$file.'}} ';
       }        }
   }    }
       } 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);    my $alt = &Apache::lonxml::get_param('alt',$parstack,$safeeval,undef,1);
                   if ($alt) {                    if ($alt) {
       $currentstring .= ' '.$alt.' ';        $currentstring .= ' '.$alt.' ';
   } else {    } else {
Line 1713  sub start_embed { Line 1726  sub start_embed {
    return $currentstring;     return $currentstring;
  }   }
 #-- <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]=         $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
                                         $token->[2]->{'src'};   $token->[2]->{'src'};
     my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval);      my $src = &Apache::lonxml::get_param('src',$parstack,$safeeval,undef,1);
     if (not -e '/home/httpd/html'.$src) {      &image_replication($src);
             #replicates image itself      my $result;
  &Apache::lonnet::repcopy('/home/httpd/html'.$src);      if ($target eq 'edit') {
         #replicates eps or ps    $result .=&Apache::edit::tag_start($target,$token);
  my $newsrc = $src;   $result .=&Apache::edit::text_arg('File Spec:','src',$token,70);
  $newsrc =~ s/(.gif|.jpg)$/.eps/;   $result .=&Apache::edit::end_row();#.&Apache::edit::start_spanning_row();
   if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {      } elsif ($target eq 'modified') {
     $newsrc =~ s/\.ps$/\.eps/;   my $constructtag=&Apache::edit::get_new_args($token,$parstack,
     &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);       $safeeval,'src');
  }   if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
     }      }
     return '';      return $result;
  }  }
         sub end_allow {  
    return '';  sub end_allow {
  }      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
       if ( $target eq 'edit') { return (&Apache::edit::end_table()); }
       return '';
   }
 #-- Frames  #-- Frames
  sub start_frameset {   sub start_frameset {
   my ($target,$token) = @_;    my ($target,$token) = @_;
Line 1781  sub start_embed { Line 1797  sub start_embed {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
  my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);   my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval,undef,1);
        $currentstring .= '<b>'.$display.'</b>';;         $currentstring .= '<b>'.$display.'</b>';;
     }      }
            return $currentstring;             return $currentstring;
Line 1799  sub start_embed { Line 1815  sub start_embed {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
  my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval);   my $display = &Apache::lonxml::get_param('display',$parstack,$safeeval,undef,1);
        $currentstring .= '<b>'.$display.'</b>';;         $currentstring .= '<b>'.$display.'</b>';;
     }      }
            return $currentstring;             return $currentstring;
Line 1817  sub start_embed { Line 1833  sub start_embed {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'tex') {              if ($target eq 'tex') {
  my $howmuch = &Apache::lonxml::get_param('heigth',$parstack,$safeeval);   my $howmuch = &Apache::lonxml::get_param('heigth',$parstack,$safeeval,undef,1);
  $currentstring .= '\vskip '.$howmuch.' ';   $currentstring .= '\vskip '.$howmuch.' ';
     }      }
            return $currentstring;             return $currentstring;
Line 2527  sub start_embed { Line 2543  sub start_embed {
             }               } 
    return $currentstring;     return $currentstring;
  }   }
   
   sub image_replication {
       my $src = shift;
       if (not -e '/home/httpd/html'.$src) {
    #replicates image itself
    &Apache::lonnet::repcopy('/home/httpd/html'.$src);
    #replicates eps or ps 
    my $newsrc = $src;
    $newsrc =~ s/(.gif|.jpg|.png)$/.eps/;
    if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {
       $newsrc =~ s/\.ps$/\.eps/;
       &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);
    }
       }
       return '';
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.92  
changed lines
  Added in v.1.104

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