version 1.145, 2003/05/02 19:22:20
|
version 1.146, 2003/05/05 14:30:23
|
Line 1774 sub printHelper {
|
Line 1774 sub printHelper {
|
Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); |
Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); |
|
|
my $helper = Apache::lonhelper::helper->new("Printing Wizard"); |
my $helper = Apache::lonhelper::helper->new("Printing Wizard"); |
|
$helper->declareVar('symb'); |
|
$helper->declareVar('postdata'); |
|
|
# This will persistently load in the data we want from the |
# This will persistently load in the data we want from the |
# very first screen. |
# very first screen. |
if (defined($ENV{'form.postdata'})) { |
if ($ENV{'form.postdata'}) { |
$helper->{VARS}->{'postdata'} = $ENV{'form.postdata'}; |
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'}); |
} |
} |
if (defined($ENV{'form.symb'})) { |
if ($ENV{'form.symb'}) { |
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); |
$helper->{VARS}->{'symb'} = $ENV{'form.symb'}; |
} |
} |
if (defined($ENV{'form.url'})) { |
if ($ENV{'form.url'}) { |
$helper->{VARS}->{'url'} = $helper->{VARS}->{'postdata'}; |
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); |
} |
} |
|
|
|
|
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; |
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; |
$helper->{VARS}->{'assignment'} = $sequenceTitle; |
$helper->{VARS}->{'assignment'} = $sequenceTitle; |
|
|
|
# Extract map |
|
my $symb = $helper->{VARS}->{'symb'}; |
|
my ($map, $id, $url) = split(/___/, $symb); |
|
$helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url); |
|
|
if (!$resourceTitle) { # if the resource doesn't have a title, use the filename |
if (!$resourceTitle) { # if the resource doesn't have a title, use the filename |
my $url = $helper->{VARS}->{'postdata'}; |
my $url = $helper->{VARS}->{'postdata'}; |
$resourceTitle = substr($url, rindex($url, '/') + 1); |
$resourceTitle = substr($url, rindex($url, '/') + 1); |
Line 1797 sub printHelper {
|
Line 1805 sub printHelper {
|
|
|
Apache::lonhelper::registerHelperTags(); |
Apache::lonhelper::registerHelperTags(); |
|
|
# Extract map |
my $subdir = &Apache::lonnet::filelocation("", $url); |
my $symb = $helper->{VARS}->{'symb'}; |
|
my ($map, $id, $url) = split(/__/, $symb); |
|
|
|
my $subdir = &Apache::lonnet::filelocation("", $helper->{VARS}->{'postdata'}); |
|
|
|
# "Delete everything after the last slash." |
# "Delete everything after the last slash." |
$subdir =~ s|/[^/]+$||; |
$subdir =~ s|/[^/]+$||; |