--- loncom/interface/lonprintout.pm 2006/03/15 16:17:53 1.430 +++ loncom/interface/lonprintout.pm 2006/03/21 18:43:49 1.432 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.430 2006/03/15 16:17:53 albertel Exp $ +# $Id: lonprintout.pm,v 1.432 2006/03/21 18:43:49 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1023,10 +1023,12 @@ sub output_data { my %parmhash = %$rparmhash; my $resources_printed = ''; my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Preparing Printout'); + my $headtag = &Apache::loncommon::headtag('Preparing Printout'); + my $end_headtag = &Apache::loncommon::endheadtag(); + my $bodytag = &Apache::loncommon::bodytag('Preparing Printout'); $r->print(< +$headtag -LON-CAPA output for printing - +$end_headtag $bodytag

Please stand by while processing your print request, this may take some time ... @@ -1770,12 +1771,12 @@ ENDPART "cgi.$identifier.coursedom" => $cdom, "cgi.$identifier.resources" => $resources_printed); -$r->print(<print(< Continue - - +$end_page FINALEND } @@ -2301,8 +2302,16 @@ CHOOSE_STUDENTS if ($code =~ /^[A-Z]+$/) { # Alpha code $choice = &letters_to_num($code); } - $code_selection .= ' '.$code."\n"; + push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]); } + $code_selection .= +' + + push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}}); + + '.$/; + + open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab'); my $codechoice=''; foreach my $line () { @@ -2357,6 +2366,12 @@ CHOOSE_STUDENTS

+ Choose single code from list + + + $code_selection + +
Reprint a set of saved CODEs: @@ -2463,6 +2478,12 @@ CHOOSE_STUDENTS1
+ Choose single code from list + + + $code_selection + +
Reprint a set of saved CODEs: