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

[albertel]

albertel		Fri Aug 29 22:40:18 2003 EDT

  Modified files:              (Branch: version_1_0_1)
    /loncom/homework	structuretags.pm 
  Log:
  - backport 1.207
  
  
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.200 loncom/homework/structuretags.pm:1.200.2.1
--- loncom/homework/structuretags.pm:1.200	Mon Aug  4 18:40:03 2003
+++ loncom/homework/structuretags.pm	Fri Aug 29 22:40:17 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.200 2003/08/04 22:40:03 albertel Exp $
+# $Id: structuretags.pm,v 1.200.2.1 2003/08/30 02:40:17 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;}
 	}