[LON-CAPA-cvs] cvs: loncom /homework optionresponse.pm

[albertel]

albertel		Fri Jul 30 14:45:49 2004 EDT

  Modified files:              
    /loncom/homework	optionresponse.pm 
  Log:
  - sigh fixes bug with pulishing <or> that use <drawoptionlist />
  
  
Index: loncom/homework/optionresponse.pm
diff -u loncom/homework/optionresponse.pm:1.116 loncom/homework/optionresponse.pm:1.117
--- loncom/homework/optionresponse.pm:1.116	Thu Jul 29 15:40:23 2004
+++ loncom/homework/optionresponse.pm	Fri Jul 30 14:45:49 2004
@@ -1,7 +1,7 @@
 # LearningOnline Network with CAPA
 # option list style responses
 #
-# $Id: optionresponse.pm,v 1.116 2004/07/29 19:40:23 albertel Exp $
+# $Id: optionresponse.pm,v 1.117 2004/07/30 18:45:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -649,12 +649,16 @@
 
 sub start_drawoptionlist {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-    return $token->[4];
+    if ($target ne 'meta') {
+	return $token->[4];
+    }
 }
 
 sub end_drawoptionlist {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-    return $token->[2];
+    if ($target ne 'meta') {
+	return $token->[2];
+    }
 }
 
 sub insert_foil {