version 1.127, 2003/03/03 21:53:15
|
version 1.128, 2003/03/06 18:16:04
|
Line 1312 sub printWizard {
|
Line 1312 sub printWizard {
|
$r->rflush(); |
$r->rflush(); |
|
|
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; |
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; |
|
if (!$resourceTitle) { # if the resource doesn't have a title, use the filename |
|
my $url = $ENV{'form.postdata'}; |
|
$resourceTitle = substr($url, rindex($url, '/') + 1); |
|
} |
|
|
my $wizard = Apache::lonwizard->new("Printing Wizard", $ENV{QUERY_STRING}); |
my $wizard = Apache::lonwizard->new("Printing Wizard", $ENV{QUERY_STRING}); |
# PRINT_TYPE: What the user wants to print (current docs, |
# PRINT_TYPE: What the user wants to print (current docs, |