--- loncom/interface/lonprintout.pm 2003/08/25 17:25:05 1.223 +++ loncom/interface/lonprintout.pm 2003/09/02 20:58:31 1.225 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.223 2003/08/25 17:25:05 bowersj2 Exp $ +# $Id: lonprintout.pm,v 1.225 2003/09/02 20:58:31 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -915,6 +915,7 @@ ENDPART if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { if ($selectionmade<10) {$selectionmade*=100;} else {$selectionmade*=10;} } + if ($ENV{'request.role.adv'}) {$selectionmade*=10000;} #-- writing .tex file in prtspool my $temp_file; my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex"; @@ -1195,8 +1196,8 @@ CHOOSE_STUDENTS CHOOSE_FROM_SUBDIR $xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; - return $filename =~ - m/\.(problem|exam|quiz|assess|survey|form|library)$/; + return Apache::lonhelper::files::not_old_version($filename) && + $filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/;