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

Diff for /loncom/xml/londefdef.pm between versions 1.65 and 1.67

version 1.65, 2002/06/20 17:49:37 version 1.67, 2002/07/01 19:58:25
Line 1485  EDITBUTTON Line 1485  EDITBUTTON
   $file=~s/(\.gif|\.jpg)$/\.eps/i;    $file=~s/(\.gif|\.jpg)$/\.eps/i;
       if (-e $newsrc) {        if (-e $newsrc) {
   if ($path) {    if ($path) {
       $currentstring .= '\graphicspath{{'.$path.'}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';        $currentstring .= '\noindent\graphicspath{{'.$path.'}}\fbox{\includegraphics'.$width_param.'{'.$file.'}}';
   }    }
       } else {        } else {
   my $temp_file;    my $temp_file;
Line 1697  sub start_embed { Line 1697  sub start_embed {
     }      }
            return $currentstring;             return $currentstring;
  }   }
 #-- <bubble symbol="">  
         sub start_bubble {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
             my $currentstring = '';  
     my $sign = &Apache::lonxml::get_param('symbol',$parstack,$safeeval);  
             if ($target eq 'web') {  
  $currentstring .= '<td><b>'.$sign.')</b>';  
     } elsif ($target eq 'tex') {  
  $currentstring .= '{\small\mbox{'.$sign.')\hskip 1mm ';  
     }  
            return $currentstring;  
  }  
         sub end_bubble {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
  $currentstring .= '</td>';  
     } elsif ($target eq 'tex') {  
  $currentstring .= '}} &';  
     }  
            return $currentstring;  
  }  
 #-- <bubbles>  
         sub start_bubbles {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
  $currentstring .= '<table border=1>';  
     } elsif ($target eq 'tex') {  
  my $howmuch = &Apache::lonxml::get_param('num',$parstack,$safeeval);  
  $currentstring .= '\noindent\fbox{\begin{tabular}{' ;  
  for (my $id=0;$id<$howmuch;$id++) {$currentstring .= 'l ';}  
  $currentstring .= '}';  
     }  
            return $currentstring;  
  }  
         sub end_bubbles {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
  $currentstring .= '</table>';  
     } elsif ($target eq 'tex') {  
  $currentstring .= '\end{tabular}}\vskip 5mm';  
     }  
            return $currentstring;  
  }  
 #-- <bubbleline>  
         sub start_bubbleline {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
  $currentstring .= '<tr>';  
     } elsif ($target eq 'tex') {  
  &Apache::lonxml::startredirection();  
     }  
            return $currentstring;  
  }  
         sub end_bubbleline {  
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;  
             my $currentstring = '';  
             if ($target eq 'web') {  
  $currentstring .= '</tr>';  
     } elsif ($target eq 'tex') {  
  my $data = &Apache::lonxml::endredirection();  
  $data =~ s/&\s*$//;  
  $currentstring .= $data.'\\\\ ';  
     }  
            return $currentstring;  
  }  
 1;  1;
 __END__  __END__
Removed from v.1.65  
changed lines
  Added in v.1.67

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