--- loncom/interface/lonprintout.pm 2006/06/30 21:26:53 1.451 +++ loncom/interface/lonprintout.pm 2006/07/03 10:25:07 1.453 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.451 2006/06/30 21:26:53 albertel Exp $ +# $Id: lonprintout.pm,v 1.453 2006/07/03 10:25:07 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -702,8 +702,7 @@ sub get_name { if (!defined($udom)) { $udom=$env{'user.domain'}; } my $plainname=&Apache::loncommon::plainname($uname,$udom); if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; } - # $plainname=&Apache::lonxml::latex_special_symbols($plainname,'header'); - $plainname = &escape_LaTeX($plainname); + $plainname=&Apache::lonxml::latex_special_symbols($plainname,'header'); return $plainname; } @@ -1562,6 +1561,7 @@ ENDPART } my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'}); + &adjust_number_to_print($helper); my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'}; if ($number_per_page eq '0' || $number_per_page eq 'all') { $number_per_page=$num_todo; @@ -2304,7 +2304,7 @@ CHOOSE_STUDENTS } } - my $code_selection = "\n"; + my $code_selection; foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) { my $choice = $code; if ($code =~ /^[A-Z]+$/) { # Alpha code @@ -2316,11 +2316,12 @@ CHOOSE_STUDENTS $code_selection .=' Choose single code from list - + + push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}}); - +
'.$/;