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

sakharuk lon-capa-cvs@mail.lon-capa.org
Mon, 30 Sep 2002 18:32:45 -0000


sakharuk		Mon Sep 30 14:32:45 2002 EDT

  Modified files:              
    /loncom/homework/caparesponse	caparesponse.pm 
  Log:
   Corrections - I've made a stupid error.
  
  
Index: loncom/homework/caparesponse/caparesponse.pm
diff -u loncom/homework/caparesponse/caparesponse.pm:1.60 loncom/homework/caparesponse/caparesponse.pm:1.61
--- loncom/homework/caparesponse/caparesponse.pm:1.60	Mon Sep 30 14:08:09 2002
+++ loncom/homework/caparesponse/caparesponse.pm	Mon Sep 30 14:32:45 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # caparesponse definition
 #
-# $Id: caparesponse.pm,v 1.60 2002/09/30 18:08:09 sakharuk Exp $
+# $Id: caparesponse.pm,v 1.61 2002/09/30 18:32:45 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -225,7 +225,7 @@
         if ($target eq 'web') {
 	    $result.= '<table border="1"><tr>';
 	    for ($ind=0;$ind<$number_of_bubbles;$ind++) {
-		if (undef @formats) {
+		if ($formats[0] ne '') {
 		    my $ans = sprintf('%.'.$formats[0],$bubbles_values[$ind]);
 		    $result.='<td>'.$alphabet[$ind].': '.$ans.'</td>';
 		} else {
@@ -260,7 +260,7 @@
 		}
 		$result.='}\hline';
 		for ($ind=$cou;$ind<$cou+$table_range[$j];$ind++) {
-		    if (undef @formats) {
+		    if ($formats[0] ne '') {
 			my $ans = sprintf('%.'.$formats[0],$bubbles_values[$ind]);
 			$result.=' '.$alphabet[$ind].': & '.$ans.' ';
 		    } else {