[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[sakharuk]

sakharuk		Thu Jun 20 14:25:01 2002 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.65 loncom/xml/londefdef.pm:1.66
--- loncom/xml/londefdef.pm:1.65	Thu Jun 20 13:49:37 2002
+++ loncom/xml/londefdef.pm	Thu Jun 20 14:25:01 2002
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.65 2002/06/20 17:49:37 sakharuk Exp $
+# $Id: londefdef.pm,v 1.66 2002/06/20 18:25:01 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1697,74 +1697,6 @@
 	    }
            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;
 __END__