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

[foxr]

foxr		Mon Nov 28 17:37:41 2005 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  If Data::Dumper is not included, then probably should
  also comment out debug_dump_table which depends on it.
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.296 loncom/xml/londefdef.pm:1.297
--- loncom/xml/londefdef.pm:1.296	Mon Nov 28 16:58:24 2005
+++ loncom/xml/londefdef.pm	Mon Nov 28 17:37:41 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.296 2005/11/28 21:58:24 albertel Exp $
+# $Id: londefdef.pm,v 1.297 2005/11/28 22:37:41 foxr Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -61,16 +61,16 @@
 #   Need this 'cause evidently when given an array, Data::Dumper only seems
 #   to dump element 0.
 #
-sub debug_dump_table {
-    my $lastrow = $#Apache::londefdef::table;
-    &Apache::lonnet::logthis("Dumping table:  Last row index: $lastrow");
-    my $row;
-    for ($row =0; $row <= $lastrow; $row++ ) {
-	my $text = Dumper($Apache::londefdef::table[$row]);
-	&Apache::lonnet::logthis("table [ $row ]".$text);
-
-    }
-}
+#sub debug_dump_table {
+#    my $lastrow = $#Apache::londefdef::table;
+#    &Apache::lonnet::logthis("Dumping table:  Last row index: $lastrow");
+#    my $row;
+#    for ($row =0; $row <= $lastrow; $row++ ) {
+#	my $text = Dumper($Apache::londefdef::table[$row]);
+#	&Apache::lonnet::logthis("table [ $row ]".$text);
+#
+#    }
+#}
 
 sub initialize_londefdef {
     $Apache::londefdef::TD_redirection=0;