loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.275, 2004/02/09 20:41:36	version 1.276, 2004/02/13 21:13:21
Line 1186 ENDPART	Line 1186 ENDPART
}	}
}	}

	my $URLback=''; #link to original document
	if ($helper->{'VARS'}->{'construction'} ne '1') {
	#prints published resource
	$URLback=$helper->{'VARS'}->{'postdata'};
	} else {
	#prints resource from the construction space
	$URLback='/'.$helper->{'VARS'}->{'filename'};
	if ($URLback=~/([^?]+)/) {$URLback=$1;}
	}

my $identifier = time.'_'.int(rand(1000));	my $identifier = time.'_'.int(rand(1000));
&Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename,	&Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename,
Line 1196 ENDPART	Line 1205 ENDPART
'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},	'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
'cgi.'.$identifier.'role' => $ENV{'request.role.adv'},	'cgi.'.$identifier.'role' => $ENV{'request.role.adv'},
'cgi.'.$identifier.'numberoffiles' => $#print_array,	'cgi.'.$identifier.'numberoffiles' => $#print_array,
'cgi.'.$identifier.'studentnames' => $student_names,);	'cgi.'.$identifier.'studentnames' => $student_names,
	'cgi.'.$identifier.'backref' => $URLback,);


$r->print(<<FINALEND);	$r->print(<<FINALEND);
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier">	<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier">
</body>	</body>