[LON-CAPA-cvs] cvs: loncom /homework default_homework.lcpm /xml lonxml.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 11 Dec 2006 00:42:48 -0000


albertel		Sun Dec 10 19:42:48 2006 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
    /loncom/homework	default_homework.lcpm 
  Log:
  - disable some debuggin routines
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.429 loncom/xml/lonxml.pm:1.430
--- loncom/xml/lonxml.pm:1.429	Thu Nov 30 03:53:35 2006
+++ loncom/xml/lonxml.pm	Sun Dec 10 19:42:47 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.429 2006/11/30 08:53:35 albertel Exp $
+# $Id: lonxml.pm,v 1.430 2006/12/11 00:42:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -780,8 +780,8 @@
   $safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS');
   $safehole->wrap(\&Apache::inputtags::finalizeawards,$safeeval,'&LONCAPA_INTERNAL_FINALIZEAWARDS');
   $safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange');
-  use Data::Dumper;
-  $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper');
+#  use Data::Dumper;
+#  $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper');
 #need to inspect this class of ops
 # $safeeval->deny(":base_orig");
   $safeeval->permit("require");
Index: loncom/homework/default_homework.lcpm
diff -u loncom/homework/default_homework.lcpm:1.120 loncom/homework/default_homework.lcpm:1.121
--- loncom/homework/default_homework.lcpm:1.120	Fri Nov 10 12:45:52 2006
+++ loncom/homework/default_homework.lcpm	Sun Dec 10 19:42:48 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 #
-# $Id: default_homework.lcpm,v 1.120 2006/11/10 17:45:52 albertel Exp $
+# $Id: default_homework.lcpm,v 1.121 2006/12/11 00:42:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -293,10 +293,10 @@
 
 sub caparesponse_check_list {
     my $responses=$LONCAPA::CAPAresponse_args{'response'};
-    &LONCAPA_INTERNAL_DEBUG(" answer is ".
-			    &LONCAPA_INTERNAL_Dumper($LONCAPA::CAPAresponse_answer).":\n");
-    &LONCAPA_INTERNAL_DEBUG(" respons is ".
-			    &LONCAPA_INTERNAL_Dumper($responses).":\n");
+#    &LONCAPA_INTERNAL_DEBUG(" answer is ".
+#			    &LONCAPA_INTERNAL_Dumper($LONCAPA::CAPAresponse_answer).":\n");
+#    &LONCAPA_INTERNAL_DEBUG(" respons is ".
+#			    &LONCAPA_INTERNAL_Dumper($responses).":\n");
     &LONCAPA_INTERNAL_DEBUG("args ".join(':',%LONCAPA::CAPAresponse_args));
     my $type = $LONCAPA::CAPAresponse_args{'type'};
     &LONCAPA_INTERNAL_DEBUG("Got type :$type:\n");
@@ -324,8 +324,8 @@
 	    $responses->[$which]=[$responses->[$which]];
 	}
     }
-    &LONCAPA_INTERNAL_DEBUG(" parsed response is ".
-			    &LONCAPA_INTERNAL_Dumper($responses).":\n");
+#    &LONCAPA_INTERNAL_DEBUG(" parsed response is ".
+#			    &LONCAPA_INTERNAL_Dumper($responses).":\n");
     foreach my $which (0..($num_input_lines-1)) {
 	my $answer_size = 
 	    scalar(@{$LONCAPA::CAPAresponse_answer->{'answers'}[$which]});
@@ -365,7 +365,7 @@
     }
 
 
-    &LONCAPA_INTERNAL_DEBUG(&LONCAPA_INTERNAL_Dumper($responses));
+#    &LONCAPA_INTERNAL_DEBUG(&LONCAPA_INTERNAL_Dumper($responses));
     my %memoized;
     if ($LONCAPA::CAPAresponse_answer->{'type'}  eq 'ordered') {
 	for (my $i=0; $i<scalar(@$responses);$i++) {