--- loncom/interface/lonprintout.pm 2006/04/06 22:32:07 1.435
+++ loncom/interface/lonprintout.pm 2006/04/14 19:42:19 1.436
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.435 2006/04/06 22:32:07 foxr Exp $
+# $Id: lonprintout.pm,v 1.436 2006/04/14 19:42:19 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2293,12 +2293,13 @@ CHOOSE_STUDENTS
}
push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
}
- $code_selection .=
-'
-
- push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
-
- '.$/;
+ if (%codes_to_print) {
+ $code_selection .='
+
+ push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
+
+ '.$/;
+ }
open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');