--- loncom/interface/loncommon.pm	2010/03/18 17:25:52	1.960
+++ loncom/interface/loncommon.pm	2010/03/22 13:24:16	1.961
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.960 2010/03/18 17:25:52 bisitz Exp $
+# $Id: loncommon.pm,v 1.961 2010/03/22 13:24:16 onken Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6931,15 +6931,26 @@ sub simple_error_page {
 
 {
     my @row_count;
+
+    sub start_data_table_count {
+        unshift(@row_count, 0);
+        return;
+    }
+
+    sub end_data_table_count {
+        shift(@row_count);
+        return;
+    }
+
     sub start_data_table {
 	my ($add_class) = @_;
 	my $css_class = (join(' ','LC_data_table',$add_class));
-	unshift(@row_count,0);
+	&start_data_table_count();
 	return '<table class="'.$css_class.'">'."\n";
     }
 
     sub end_data_table {
-	shift(@row_count);
+	&end_data_table_count();
 	return '</table>'."\n";;
     }