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> |