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

Diff for /loncom/xml/londefdef.pm between versions 1.97 and 1.100

version 1.97, 2002/11/06 16:50:11 version 1.100, 2002/11/09 22:05:33
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 1543  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);
  &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 file exist do following:
               if (-e $src) {                          if (-e $src) {          
Line 1715  sub start_embed { Line 1725  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);
     &image_replication($src);      &image_replication($src);
     return '';      my $result;
  }      if ($target eq 'edit') {
         sub end_allow {   $result .=&Apache::edit::tag_start($target,$token);
    return '';   $result .=&Apache::edit::text_arg('File Spec:','src',$token,70);
  }   $result .=&Apache::edit::end_row();#.&Apache::edit::start_spanning_row();
       } elsif ($target eq 'modified') {
    my $constructtag=&Apache::edit::get_new_args($token,$parstack,
        $safeeval,'src');
    if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
       }
       return $result;
   }
   
   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) = @_;
Removed from v.1.97  
changed lines
  Added in v.1.100

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