[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 {