[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

sakharuk lon-capa-cvs@mail.lon-capa.org
Thu, 15 May 2003 20:24:53 -0000


sakharuk		Thu May 15 16:24:53 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Corrected the length of the line after header by removing repeted declaration of the fancystyle package. Additional adjustment is needed.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.179 loncom/interface/lonprintout.pm:1.180
--- loncom/interface/lonprintout.pm:1.179	Thu May 15 16:11:47 2003
+++ loncom/interface/lonprintout.pm	Thu May 15 16:24:53 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.179 2003/05/15 20:11:47 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.180 2003/05/15 20:24:53 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -667,7 +667,7 @@
 	    }
 	    my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
 	    if ($current_output=~/\\documentclass/) {
-		$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\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{$helper->{VARS}->{'assignment'}}}\\vskip 3 mm /;
 	    } else {
 		my $blanspages = '';
 		for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}