loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.186, 2003/05/28 20:27:40	version 1.187, 2003/05/28 21:25:33
Line 502 sub latex_corrections {	Line 502 sub latex_corrections {
sub output_data {	sub output_data {
my ($r,$helper,$rparmhash) = @_;	my ($r,$helper,$rparmhash) = @_;
my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
	my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
$r->print(<<ENDPART);	$r->print(<<ENDPART);
<html>	<html>
<head>	<head>
<title>LON-CAPA output for printing</title>	<title>LON-CAPA output for printing</title>
</head>	</head>
<body bgcolor="FFFFFF">	$bodytag
<hr>	Please stand by while processing your print request, this may take some time ...
ENDPART	ENDPART

my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};	my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
Line 931 sub printHelper {	Line 932 sub printHelper {
push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE'];	push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE'];
}	}

$r->print($helper->{VARS}->{'postdata'});	# $r->print($helper->{VARS}->{'postdata'});

# If we're in a sequence...	# If we're in a sequence...
if ($helper->{'VARS'}->{'construction'} ne '1') {	if ($helper->{'VARS'}->{'construction'} ne '1') {