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

[sakharuk]

sakharuk		Tue Sep 30 15:39:00 2003 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Changes to print True-False htm page fron W.Benenson course. I want to stress that these changes may be not very good (even stupid) but I have to start with something more or less workable. Continuation will follow. 
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.174 loncom/xml/londefdef.pm:1.175
--- loncom/xml/londefdef.pm:1.174	Fri Sep 26 14:59:59 2003
+++ loncom/xml/londefdef.pm	Tue Sep 30 15:39:00 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.174 2003/09/26 18:59:59 sakharuk Exp $
+# $Id: londefdef.pm,v 1.175 2003/09/30 19:39:00 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -2202,7 +2202,11 @@
 	    $currentstring='[APPLET: '.$alttag.']';
 	}
     } elsif ($target eq 'tex') {
-	$currentstring = " \\begin{figure} ";
+	my $code=&Apache::lonxml::get_param('code',$parstack,$safeeval,
+					       undef,1);
+	if ($code=~/TrueFalse\.class/) {
+	    $currentstring.='\begin{center} $\bigcirc$ True \hskip 10 mm  $\bigcirc$ False\end{center}';
+	}
     } 
     return $currentstring;
 }
@@ -2213,7 +2217,6 @@
     if ($target eq 'web') {
 	$currentstring = $token->[2];
     } elsif ($target eq 'tex') {
-	$currentstring = " \\end{figure}";
     } 
     return $currentstring;
 }
@@ -2236,7 +2239,6 @@
 	    $currentstring='[EMBED: '.$alttag.']';
 	}
     } elsif ($target eq 'tex') {
-	$currentstring = " \\begin{figure} ";  
     } 
     return $currentstring;
 }
@@ -2246,8 +2248,7 @@
     my $currentstring = '';
     if ($target eq 'web') {
 	$currentstring = $token->[2];     
-    } elsif ($target eq 'tex') {
-	$currentstring = " \\end{figure}";  
+    } elsif ($target eq 'tex') {  
     } 
     return $currentstring;
 }
@@ -2266,7 +2267,6 @@
     if ($target eq 'web') {
 	$currentstring = $token->[4];     
     } elsif ($target eq 'tex') {
-	$currentstring = " \\begin{figure} ";  
     } 
     return $currentstring;
 }
@@ -2277,7 +2277,6 @@
     if ($target eq 'web') {
 	$currentstring = $token->[2];     
     } elsif ($target eq 'tex') {
-	$currentstring = " \\end{figure}";  
     } 
     return $currentstring;
 }