[LON-CAPA-cvs] cvs: loncom /interface/statistics lonproblemanalysis.pm

matthew lon-capa-cvs@mail.lon-capa.org
Fri, 16 Jan 2004 15:35:04 -0000


matthew		Fri Jan 16 10:35:04 2004 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  Removed debugging information.
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.54 loncom/interface/statistics/lonproblemanalysis.pm:1.55
--- loncom/interface/statistics/lonproblemanalysis.pm:1.54	Fri Jan 16 10:33:40 2004
+++ loncom/interface/statistics/lonproblemanalysis.pm	Fri Jan 16 10:35:04 2004
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.54 2004/01/16 15:33:40 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.55 2004/01/16 15:35:04 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1562,10 +1562,7 @@
 #########################################################
 sub get_problem_symb {
     my $problemstring = shift();
-    &Apache::lonnet::logthis('problemstring = '.$problemstring);
     my ($symb,$partid,$respid,$resptype) = split(':',$problemstring);
-    &Apache::lonnet::logthis("\n".
-                             join("   ---   \n",split(':',$problemstring)));
     return ({ symb   => $symb,
               part   => $partid,
               respid => $respid,
@@ -1586,9 +1583,6 @@
 
 sub get_prev_curr_next {
     my ($target) = @_;
-    while(my($k,$v) = each(%$target)) {
-        &Apache::lonnet::logthis($k.' = '.$v);
-    }
     #
     # Build an array with the data we need to search through
     my @Resource;
@@ -1613,16 +1607,11 @@
         }
     }
     #
-    &Apache::lonnet::logthis('size of @Resource = '.scalar(@Resource));
     #
     # Get the index of the current situation
     my $curr_idx;
     for ($curr_idx=0;$curr_idx<$#Resource;$curr_idx++) {
         my $curr_item = $Resource[$curr_idx];
-        &Apache::lonnet::logthis('-----------------------------------');
-        while(my($k,$v) = each(%$curr_item)) {
-            &Apache::lonnet::logthis($k.' = '.$v);
-        }
         last if ($curr_item->{'symb'} eq $target->{'symb'} &&
                  $curr_item->{'part'} eq $target->{'part'} &&
                  $curr_item->{'respid'} eq $target->{'respid'} &&
@@ -1634,7 +1623,6 @@
         $curr_item->{'respid'}   ne $target->{'respid'} ||
         $curr_item->{'resptype'} ne $target->{'resptype'}){
         # bogus symb - return nothing
-        &Apache::lonnet::logthis('bailing out');
         return (undef,undef,undef);
     }
     #
@@ -1667,12 +1655,7 @@
 
 sub get_target_from_id {
     my ($id) = @_;
-    &Apache::lonnet::logthis('id = '.$id);
     my ($symb,$part,$respid,$resptype) = split(':',$id);
-    &Apache::lonnet::logthis('get_target_from_id:symb='.$symb);
-    &Apache::lonnet::logthis('get_target_from_id:symb='.$part);
-    &Apache::lonnet::logthis('get_target_from_id:symb='.$respid);
-    &Apache::lonnet::logthis('get_target_from_id:symb='.$resptype);
     return ({ symb    =>&Apache::lonnet::unescape($symb),
              part     =>&Apache::lonnet::unescape($part),
              respid   =>&Apache::lonnet::unescape($respid),