[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[albertel]

albertel		Fri Nov  7 13:05:33 2003 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - remove some debug
  - small cleanup form the response_type rework
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.148 loncom/homework/grades.pm:1.149
--- loncom/homework/grades.pm:1.148	Fri Nov  7 03:56:52 2003
+++ loncom/homework/grades.pm	Fri Nov  7 13:05:33 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.148 2003/11/07 08:56:52 albertel Exp $
+# $Id: grades.pm,v 1.149 2003/11/07 18:05:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -189,8 +189,7 @@
 				       ('grade_courseid' => 
 					        $ENV{'request.course.id'}),
 				       ('grade_username' => $uname));
-    (my $debug,$subresult)=split(/_HASH_REF__/,$subresult,2);
-    Apache->request->print($debug);
+    (undef,$subresult)=split(/_HASH_REF__/,$subresult,2);
     my %analyze=&Apache::lonnet::str2hash($subresult);
     return ($analyze{"$partid.$respid.shown"});
 }
@@ -1621,7 +1620,7 @@
 				     '<br /><br />'.$similar."\n"
 				     if ($ENV{'form.lastSub'} eq 'lastonly' || 
 					 ($ENV{'form.lastSub'} eq 'hdgrade' && 
-					  $$handgrade{$part} =~ /:yes$/));
+					  $$handgrade{$part} eq 'yes'));
 			    }
 			}
 		    }