loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.239, 2003/09/25 18:19:34	version 1.240, 2003/09/25 20:43:31
Line 655 ENDPART	Line 655 ENDPART
$currentURL=$helper->{'VARS'}->{'postdata'};	$currentURL=$helper->{'VARS'}->{'postdata'};
} else {	} else {
#prints resource from the construction space	#prints resource from the construction space
$currentURL=$helper->{'VARS'}->{'filename'};	$currentURL='/'.$helper->{'VARS'}->{'filename'};
$currentURL=~s/\/home\//\/~/;
$currentURL=~s/public_html\///;
if ($currentURL=~/([^?]+)/) {$currentURL=$1;}	if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
}	}
$selectionmade = 1;	$selectionmade = 1;
Line 1162 sub printHelper {	Line 1160 sub printHelper {
my $printChoices = [];	my $printChoices = [];
my $paramHash;	my $paramHash;

if ($resourceTitle && $helper->{VARS}->{'postdata'}) {	if ($resourceTitle) {
push @{$printChoices}, ["<b>$resourceTitle</b> (what you just saw on the screen)", 'current_document', 'PAGESIZE'];	push @{$printChoices}, ["<b>$resourceTitle</b> (what you just saw on the screen)", 'current_document', 'PAGESIZE'];
}	}