loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.223, 2003/08/25 17:25:05	version 1.225, 2003/09/02 20:58:31
Line 915 ENDPART	Line 915 ENDPART
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {	if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
if ($selectionmade<10) {$selectionmade=100;} else {$selectionmade=10;}	if ($selectionmade<10) {$selectionmade=100;} else {$selectionmade=10;}
}	}
	if ($ENV{'request.role.adv'}) {$selectionmade*=10000;}
#-- writing .tex file in prtspool	#-- writing .tex file in prtspool
my $temp_file;	my $temp_file;
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";	my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
Line 1195 CHOOSE_STUDENTS	Line 1196 CHOOSE_STUDENTS
CHOOSE_FROM_SUBDIR	CHOOSE_FROM_SUBDIR

$xmlfrag .= <<'CHOOSE_FROM_SUBDIR';	$xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
<filefilter>return $filename =~	<filefilter>return Apache::lonhelper::files::not_old_version($filename) &&
m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/;	$filename =~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/;
</filefilter>	</filefilter>
</files>	</files>
</state>	</state>