[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.66

version 1.65, 2002/06/20 17:49:37 version 1.66, 2002/06/20 18:25:01
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.66

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