--- loncom/interface/lonprintout.pm 2002/07/01 20:56:20 1.36 +++ loncom/interface/lonprintout.pm 2002/07/22 20:04:16 1.40 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.36 2002/07/01 20:56:20 sakharuk Exp $ +# $Id: lonprintout.pm,v 1.40 2002/07/22 20:04:16 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -58,6 +58,7 @@ sub headerform {
+$ENV{'form.postdata'}

What do you want to print? Make a choice.


ENDHEADER } @@ -70,19 +71,23 @@ sub menu_for_output { Current document (you will print what you see on the screen)
+ENDMENUOUT1 + if (not $ENV{'request.role'}=~m/^au\./) { + $r->print(< All problems from the primary sequence
The whole primary sequence (problems plus all html and xml files)
All problems from the top level sequence

-ENDMENUOUT1 - my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'}); - $subdirtoprint =~ s/\/[^\/]+$//; - if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') { - $r->print(< All problems from current subdirectory (where this particular problem is)
ENDMENUOUT2 -} - $r->print(<print(< All problems from current subdirectory (where this particular problem is)
+ENDMENUOUT4 + } + } + $r->print(<

And what page format do you prefer?

@@ -102,7 +107,7 @@ ENDMENUOUT2 -ENDMENUOUT3 +ENDMENUOUT5 } @@ -130,14 +135,18 @@ ENDPART #-- single document - problem, page, html, xml my %moreenv; $moreenv{'form.grade_target'}='tex'; + if ($ENV{'request.role'}=~m/^au\./) {$ENV{'form.url'}=~s/http:\/\/[^\/]+//;} $moreenv{'request.filename'}=$ENV{'form.url'}; &Apache::lonnet::appenv(%moreenv); my $texversion=&Apache::lonnet::ssi($ENV{'form.url'}); &Apache::lonnet::delenv('form.grade_target'); $result .= $texversion; $result = &additional_cleanup($result); - if ($ENV{'form.url'}=~m/\.page\s*$/) {($result,$number_of_columns) = &page_cleanup($result);} - } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or $choice eq 'Standard LaTeX output for whole primary sequence') { + if ($ENV{'form.url'}=~m/\.page\s*$/) { + ($result,$number_of_columns) = &page_cleanup($result); + } + } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or + $choice eq 'Standard LaTeX output for whole primary sequence') { #-- minimal sequence to which the current document belongs #-- where is the primary sequence containing file? my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'}); @@ -259,9 +268,13 @@ ENDPART $result =~ s/\\documentclass\[letterpaper\]{article}/\\documentclass{article}/; $result =~ s/\\begin{document}/\\textheight 25\.9cm\\oddsidemargin = -0\.57in\\evensidemargin = -0\.57in\\textwidth= 9cm\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}}\\hskip 1\.4in $courseidinfo} \\vskip 5 mm /; $result =~ s/\\includegraphics{/\\includegraphics\[width=9\.0 cm\]{/g; - $result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[9.0cm\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Dept\. of Physics and Astronomy, MSU\\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright MSU GNU\/GPL $1/; - $result =~ s/(\\end{longtable}\s*)(\\newline\\noindent\\makebox\[9\.0cm\]\[b\]{\\hrulefill})/$2$1/g; +# $result =~ s/\\includegraphics{/\\includegraphics\[width=\\textwidth\]{/g; +# $result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[9.0cm\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Dept\. of Physics and Astronomy, MSU\\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright MSU GNU\/GPL $1/; + $result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Dept\. of Physics and Astronomy, MSU\\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright MSU GNU\/GPL $1/; +# $result =~ s/(\\end{longtable}\s*)(\\newline\\noindent\\makebox\[9\.0cm\]\[b\]{\\hrulefill})/$2$1/g; + $result =~ s/(\\end{longtable}\s*)(\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g; $result =~ s/(\\end{longtable}\s*)\\newline/$1/g; + $result =~ s/\$number_of_columns/$number_of_columns/g; } #-- LaTeX corrections my $first_comment = index($result,'