--- loncom/interface/lonprintout.pm 2002/11/18 14:35:25 1.89 +++ loncom/interface/lonprintout.pm 2002/11/18 15:20:56 1.90 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.89 2002/11/18 14:35:25 sakharuk Exp $ +# $Id: lonprintout.pm,v 1.90 2002/11/18 15:20:56 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -357,7 +357,12 @@ ENDDISHEADER } } $r->print(< +
Number of blank pages to add: +
@@ -389,6 +394,7 @@ sub additional_print_menu { + Define one column layout parameters:
Width:
Height:
@@ -573,7 +579,9 @@ ENDPART my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\pagestyle{myheadings}\\markboth{}{{$courseidinfo - $assignment}}\\begin{document}\\noindent\\textit{\\textbf{$fullname}}\\vskip 3 mm /; } else { - $current_output = '\\vskip 3mm\\clearpage\\strut\\clearpage\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\textit{\textbf{'.$fullname.'}}\hskip 1.4in } \vskip 5 mm '.$current_output; + my $blanspages = ''; + for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';} + $current_output = '\\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 } \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\textit{\textbf{'.$fullname.'}}\hskip 1.4in } \vskip 5 mm '.$current_output; } $result .= $current_output; &Apache::lonnet::delenv('form.counter');