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

Sat, 30 Aug 2003 02:33:26 -0000

albertel		Fri Aug 29 22:33:26 2003 EDT

  Modified files:              
    /loncom/homework	structuretags.pm 
  Log:
  - some bugs are more stupid than others,
  - anyhoo, <html><body><problem></problem></body></html> should work now
  
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.206 loncom/homework/structuretags.pm:1.207

--- loncom/homework/structuretags.pm:1.206	Thu Aug 14 10:25:54 2003
+++ loncom/homework/structuretags.pm	Fri Aug 29 22:33:25 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.206 2003/08/14 14:25:54 sakharuk Exp $
+# $Id: structuretags.pm,v 1.207 2003/08/30 02:33:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -72,7 +72,7 @@
 sub page_start {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my %found;
-    foreach my $taginside ($tagstack) {
+    foreach my $taginside (@$tagstack) {
 	foreach my $taglookedfor ('html','body','form') {
 	    if ($taginside =~ /^$taglookedfor$/i) {$found{$taglookedfor} = 1;}
 	}



