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

foxr foxr@source.lon-capa.org
Tue, 30 Mar 2010 10:48:43 -0000


foxr		Tue Mar 30 10:48:43 2010 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  BZ 6240 - quote special characters in regexp generating papersize special
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.572 loncom/interface/lonprintout.pm:1.573
--- loncom/interface/lonprintout.pm:1.572	Sun Feb 28 22:38:45 2010
+++ loncom/interface/lonprintout.pm	Tue Mar 30 10:48:42 2010
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.572 2010/02/28 22:38:45 raeburn Exp $
+# $Id: lonprintout.pm,v 1.573 2010/03/30 10:48:42 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1309,7 +1309,7 @@
 	    $text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1}  \\vskip 5 mm\n /;
 	}
 	if ($papersize eq 'a4') {
-	    $text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/;
+	    $text =~ s/(\\begin{document})/$1\\\\special\{papersize=210mm,297mm\}/;
 	}
     }
     if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}