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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 01 Feb 2005 21:06:49 -0000


albertel		Tue Feb  1 16:06:49 2005 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - undo some debugging changes
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.240 loncom/homework/grades.pm:1.241
--- loncom/homework/grades.pm:1.240	Tue Feb  1 16:03:13 2005
+++ loncom/homework/grades.pm	Tue Feb  1 16:06:48 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.240 2005/02/01 21:03:13 albertel Exp $
+# $Id: grades.pm,v 1.241 2005/02/01 21:06:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3063,13 +3063,12 @@
     my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); },
 					       1,0,1);
     for my $sequence ($navmap->getById('0.0'), @sequences) {
-#	if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {
-	Apache->request->print($sequence->map_pc()."<br />");
+	if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {
 	    my $title = $minder.'.'.$sequence->compTitle();
 	    push @titles, $title; # minder in case two titles are identical
 	    $symbx{$title} = $sequence->symb();
 	    $minder++;
-#	}
+	}
     }
     return \@titles,\%symbx;
 }