loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.219 and 1.221

version 1.219, 2003/08/19 15:57:14	version 1.221, 2003/08/20 18:34:14
Line 816 ENDPART	Line 816 ENDPART
}	}
my $courseidinfo = &get_course();	my $courseidinfo = &get_course();
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }	if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
	my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
if ($current_output=~/\\documentclass/) {	if ($current_output=~/\\documentclass/) {
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$helper->{VARS}->{'assignment'}}}\\vskip 3 mm /;	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}}\\vskip 3 mm /;
} else {	} else {
my $blanspages = '';	my $blanspages = '';
for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}	for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$helper->{VARS}->{'assignment'}.'}}} \vskip -5 mm '.$current_output;	$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}}} \vskip -5 mm '.$current_output;
}	}
$result .= $current_output;	$result .= $current_output;
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
Line 1251 CHOOSE_FROM_SUBDIR	Line 1251 CHOOSE_FROM_SUBDIR
['Print with Table of Contents', 'yes'] ];	['Print with Table of Contents', 'yes'] ];
Apache::lonhelper::dropdown->new();	Apache::lonhelper::dropdown->new();

$paramHash = Apache::lonhelper::getParamHash();	if (not $helper->{VARS}->{'construction'}) {
$paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td> </td><td>";	$paramHash = Apache::lonhelper::getParamHash();
Apache::lonhelper::message->new();	$paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td> </td><td>";
$paramHash = Apache::lonhelper::getParamHash();	Apache::lonhelper::message->new();
$paramHash->{'variable'} = 'TABLE_INDEX';	$paramHash = Apache::lonhelper::getParamHash();
$helper->declareVar('TABLE_INDEX');	$paramHash->{'variable'} = 'TABLE_INDEX';
$paramHash->{CHOICES} = [	$helper->declareVar('TABLE_INDEX');
['Print without Index', 'no'],	$paramHash->{CHOICES} = [
['Print with Index', 'yes'] ];	['Print without Index', 'no'],
Apache::lonhelper::dropdown->new();	['Print with Index', 'yes'] ];
	Apache::lonhelper::dropdown->new();
	}

if ($helper->{VARS}->{'construction'}) {	if ($helper->{VARS}->{'construction'}) {
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.219
changed lines
	Added in v.1.221