[LON-CAPA-cvs] cvs: modules /albertel course_info.pl

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 17 Jan 2006 21:10:57 -0000


albertel		Tue Jan 17 16:10:57 2006 EDT

  Modified files:              
    /modules/albertel	course_info.pl 
  Log:
  - actually log the total number of tries
  
  
Index: modules/albertel/course_info.pl
diff -u modules/albertel/course_info.pl:1.4 modules/albertel/course_info.pl:1.5
--- modules/albertel/course_info.pl:1.4	Tue Jan 17 16:07:38 2006
+++ modules/albertel/course_info.pl	Tue Jan 17 16:10:55 2006
@@ -103,7 +103,7 @@
 	    $other++;
 	    push(@others,$src);
 	}
-	if ($src =~ /\.problem/) {
+	if ($src =~ /\.(problem|exam|survey)/) {
 	    my ($id) = ($item=~/src_(.*)/);
 	    my ($map_id,$res_id) = split(/\./,$id);
 	    my $symb = &Apache::lonnet::encode_symb($hash->{'map_id_'.$map_id},
@@ -116,7 +116,6 @@
 		my @attempt_keys = grep(/^resource\.[^\.]+\.tries/,
 					(keys(%grades)));
 		foreach my $key (@attempt_keys) {
-		    &log("$key");
 		    $tries+=$grades{$key};
 		}
 	    }
@@ -126,6 +125,7 @@
 	}
     }
     &log("Course has $items items.");
+    &log("Total number of tries on problems $total_tries .");
     &increaselog();
     foreach my $item (keys(%classes)) {
 	if ($types{$item}) {