--- loncom/interface/lonprintout.pm	2002/09/24 13:52:24	1.75
+++ loncom/interface/lonprintout.pm	2002/10/07 17:58:47	1.76
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.75 2002/09/24 13:52:24 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.76 2002/10/07 17:58:47 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,7 +54,7 @@ use GDBM_File;
 
 
 my %hash;
-
+my $LaTeXwidth = 0;
 
 sub headerform {
     my $r = shift;
@@ -292,6 +292,7 @@ ENDDISHEADER
     }
     $r->print(<<ENDMENUOUT2);
 <br />
+<input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
 <input type="hidden" name="numberofstudents" value="$i">
 <input type="hidden" name="phase" value="three">
 <input type="submit" value="Submit">
@@ -313,6 +314,7 @@ sub additional_print_menu {
 <input type="hidden" name="url" value="$ENV{'form.url'}">
 <input type="hidden" name="choice" value="$ENV{'form.choice'}">
 <input type="hidden" name="layout" value="$ENV{'form.layout'}">
+<input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
 <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">
 <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}">
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
@@ -348,7 +350,14 @@ ENDPART
     my $result = '';
     my $number_of_columns = 1; #used only for pages to determine the width of the cell
     my $selectionmade = '';
+    my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
+    my $LaTeXwidth;
  
+    if ($textwidth=~/(\d+\s*cm)/) {
+	$LaTeXwidth = $1*10;
+    } elsif ($textwidth=~/(\d+\s*mm)/) {
+	$LaTeXwidth = $1;
+    }
     if ($choice eq 'Standard LaTeX output for current document') {
       #-- single document - problem, page, html, xml  
       $selectionmade = 1;
@@ -358,9 +367,10 @@ ENDPART
 	  $ENV{'form.url'}=~s/http:\/\/[^\/]+//;
       }
       $moreenv{'request.filename'}=$ENV{'form.url'};
+      $moreenv{'form.textwidth'}=$LaTeXwidth;
       &Apache::lonnet::appenv(%moreenv);
       my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});
-      &Apache::lonnet::delenv('form.grade_target');
+      &Apache::lonnet::delenv('form.grade_target','form.textwidth');
       $result .= $texversion;
       if ($ENV{'form.url'}=~m/\.page\s*$/) {
 	  ($result,$number_of_columns) = &page_cleanup($result);
@@ -384,10 +394,11 @@ ENDPART
  		if ($urlp =~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {
 		    my %moreenv;
 		    $moreenv{'form.grade_target'}='tex';
+		    $moreenv{'form.textwidth'}=$LaTeXwidth;
 		    &Apache::lonnet::appenv(%moreenv);
 		    &Apache::lonnet::logthis("Trying to get $urlp with symb $symb");
 		    my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
-		    &Apache::lonnet::delenv('form.grade_target');
+		    &Apache::lonnet::delenv('form.grade_target','form.textwidth');
 		    if ($flag_latex_header_remove ne 'NO') {
 			$texversion = &latex_header_footer_remove($texversion);
 		    } else {
@@ -434,9 +445,10 @@ ENDPART
             if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) {
 		my %moreenv;
 		$moreenv{'form.grade_target'}='tex';
+		$moreenv{'form.textwidth'}=$LaTeXwidth;
 		&Apache::lonnet::appenv(%moreenv);
 		my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
-		&Apache::lonnet::delenv('form.grade_target');		    
+		&Apache::lonnet::delenv('form.grade_target','form.textwidth');		    
 		if ($flag_latex_header_remove ne 'NO') {
 		    $texversion = &latex_header_footer_remove($texversion);
 		} else {
@@ -508,12 +520,13 @@ ENDPART
 	    if ($urlp=~/\//) {
 		my %moreenv;
 		$moreenv{'form.grade_target'}='tex';
+		$moreenv{'form.textwidth'}=$LaTeXwidth;
 		&Apache::lonnet::appenv(%moreenv);
 		if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) { 
 		    $urlp =~ s/\/home\/([^\/]*)\/public_html/\/~$1/; 
 		}
 		my $texversion=&Apache::lonnet::ssi($urlp);
-		&Apache::lonnet::delenv('form.grade_target');
+		&Apache::lonnet::delenv('form.grade_target','form.textwidth');
 		$texversion =~ s/(\\begin{document})/$1 {\\tiny\\begin{verbatim}$urlp\\end{verbatim}}/;
 		if ($flag_latex_header_remove ne 'NO') {
 		    $texversion = &latex_header_footer_remove($texversion);
@@ -527,105 +540,11 @@ ENDPART
 	$result .= '\end{document}';      	
     }
 #-------------------------------------------------------- corrections for the different page formats
-    my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);
-    if ($papersize=~/Letter/) {
-	if ($layout eq 'CAPA') {
-	    if ($numberofcolumns == 1) {
-		$textwidth = '18 cm';
-		$textheight = '25.9 cm';
-		$oddoffset = '-0.57 in';
-		$evenoffset = '-0.57 in';
-	    } elsif ($numberofcolumns == 2) {
-		$textwidth = '9 cm';
-		$textheight = '25.9 cm';
-		$oddoffset = '-0.57 in';
-		$evenoffset = '-0.57 in';
-	    }
-	} elsif ($layout eq 'CBI') {
-	    if ($numberofcolumns == 1) {
-		$textwidth = '8.8 in';
-		$textheight = '6.8 in';
-		$oddoffset = '-40 pt';
-		$evenoffset = '-60 pt';
-	    } elsif ($numberofcolumns == 2) {
-		$textwidth = '4.4 in';
-		$textheight = '6.8 in';
-		$oddoffset = '-40 pt';
-		$evenoffset = '-60 pt';
-	    }
-	}
-#    } elsif($papersize=~/Legal/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/Ledger/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/Executive/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/A4/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/A3/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/A2/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/A5/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#    } elsif($papersize=~/A6/) {
-#	$textwidth = ;
-#        $textheight = ;
-#        $offset = ;
-#                                           <option selected> Letter [8 1/2x11 in] </option>
-#                                            <option> Legal [8 1/2x14 in] </option>
-#                                            <option> Ledger/Tabloid [11x17 in] </option>
-#                                            <option> Executive [7 1/2x10 in] </option>
-#                                            <option> A2 [420x594 mm] </option>
-#                                            <option> A3 [297x420 mm] </option>
-#                                            <option> A4 [210x297 mm] </option>
-#                                            <option> A5 [148x210 mm] </option>
-#                                            <option> A6 [105x148 mm] </option>
-#
-    }
-
-    if ($layout eq 'CBI' and $numberofcolumns eq '1') {
-	$result =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{-40pt}\\setlength{\\evensidemargin}{-60pt}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{4\.4in}\\setlength{\\textheight}{6\.8in}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt} \\begin{document}/;
-	$result =~ s/\$number_of_columns/$number_of_columns/g;
-        $laystyle = 'album';
-    } elsif ($layout eq 'CBI' and $numberofcolumns eq '2') {
-	$result =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{-40pt}\\setlength{\\evensidemargin}{-60pt}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{4\.4in}\\setlength{\\textheight}{6\.8in}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt} \\begin{document}/;
-	$result =~ s/\$number_of_columns/$number_of_columns/g;
+    $result = &page_format_transformation($papersize,$layout,$numberofcolumns,$choice,$result);
+    if ($layout eq 'CBI') {
         $laystyle = 'album';
-    } elsif ($layout eq 'CAPA') {
-        my $courseidinfo = $ENV{'request.role'};
-        $_ = $courseidinfo;
-        m/.*\/(.*)/;
-        $courseidinfo = $ENV{'course.physnet_'.$1.'.description'};
-	$result =~ s/\\documentclass\[letterpaper\]{article}/\\documentclass{article}/;
-	if ($choice ne 'All class print') { 
-	    $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 /;
-        } else {	
-	    $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}  \\vskip 5 mm /;
-	}
-	$result =~ s/\\includegraphics{/\\includegraphics\[width=9\.0 cm\]{/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 \\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright Michigan State University Board of Trustees $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;
     }
+    $result = &latex_corrections($number_of_columns,$result);
     #changes page's parameters for the one column output 
     if ($ENV{'form.numberofcolumns'} == 1) {
 	$result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/;
@@ -633,26 +552,6 @@ ENDPART
 	$result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/;
 	$result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/;
     }
-#-- LaTeX corrections     
-    my $first_comment = index($result,'<!--',0);
-    while ($first_comment != -1) {
-	my $end_comment = index($result,'-->',$first_comment);
-	substr($result,$first_comment,$end_comment-$first_comment+3) = '';
-	$first_comment = index($result,'<!--',$first_comment);
-    }
-    $result =~ s/^\s+$//gm; #remove empty lines
-    $result =~ s/(\s)+/$1/g; #removes more than one empty space
-    $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
-    $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
-    $result =~ s/{\\par }\s*\\\\/\\\\/gm;
-	$result =~ s/\\\\\s+\[/ \[/g;
-    $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
-    #conversion of html characters to LaTeX equivalents
-    if ($result =~ m/&(\w+|#\d+);/) {
-	$result = &character_chart($result);
-    }
-    $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
-    $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
 #-- writing .tex file in prtspool 
     my $temp_file;
     my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
@@ -781,7 +680,7 @@ sub character_chart {
     $result =~ s/&#0?32;/ /g;
     $result =~ s/&#0?33;/!/g;
     $result =~ s/&#0?34;/"/g;
-    $result =~ s/&quot;/"/g; 
+    $result =~ s/&quot;/"/g;   #"
     $result =~ s/&#0?35;/\\#/g;
 #    $result =~ s/&#0?36;/\\\$/g;
     $result =~ s/&#0?37;/\\%/g; 
@@ -963,82 +862,82 @@ sub character_chart {
 #    $result =~ s/&frac12;//g;
 #    $result =~ s/&#190;//g;
 #    $result =~ s/&frac34;//g;
-    $result =~ s/&#191;/?`/g;
-    $result =~ s/&iquest;/?`/g; 
-    $result =~ s/&#192;/\\`{A}/g;
-    $result =~ s/&Agrave;/\\`{A}/g; 
+    $result =~ s/&#191;/?`/g;   
+    $result =~ s/&iquest;/?`/g;      #`
+    $result =~ s/&#192;/\\`{A}/g; 
+    $result =~ s/&Agrave;/\\`{A}/g;  #` 
     $result =~ s/&#193;/\\'{A}/g; 
-    $result =~ s/&Aacute;/\\'{A}/g; 
+    $result =~ s/&Aacute;/\\'{A}/g;  #'
     $result =~ s/&#194;/\\^{A}/g;
     $result =~ s/&Acirc;/\\^{A}/g;
     $result =~ s/&#195;/\\~{A}/g;
     $result =~ s/&Atilde;/\\~{A}/g;
     $result =~ s/&#196;/\\"{A}/g; 
-    $result =~ s/&Auml;/\\"{A}/g; 
+    $result =~ s/&Auml;/\\"{A}/g;    #"
     $result =~ s/&#197;/{\\AA}/g;
     $result =~ s/&Aring;/{\\AA}/g;
     $result =~ s/&#198;/{\\AE}/g;
     $result =~ s/&AElig;/{\\AE}/g;
 #    $result =~ s/&#199;//g;
 #    $result =~ s/&Ccedil;//g;
-    $result =~ s/&#200;/\\`{E}/g;
-    $result =~ s/&Egrave;/\\`{E}/g;
-    $result =~ s/&#201;/\\'{E}/g;
-    $result =~ s/&Eacute;/\\'{E}/g;
+    $result =~ s/&#200;/\\`{E}/g;  
+    $result =~ s/&Egrave;/\\`{E}/g;  #`
+    $result =~ s/&#201;/\\'{E}/g;    #'
+    $result =~ s/&Eacute;/\\'{E}/g;  #'
     $result =~ s/&#202;/\\^{E}/g;
     $result =~ s/&Ecirc;/\\^{E}/g;
     $result =~ s/&#203;/\\`{E}/g;
-    $result =~ s/&Euml;/\\`{E}/g;
+    $result =~ s/&Euml;/\\`{E}/g;    #`
     $result =~ s/&#204;/\\`{I}/g;
-    $result =~ s/&Igrave;/\\`{I}/g; 
-    $result =~ s/&#205;/\\'{I}/g; 
-    $result =~ s/&Iacute;/\\'{I}/g; 
+    $result =~ s/&Igrave;/\\`{I}/g;  #`
+    $result =~ s/&#205;/\\'{I}/g;    
+    $result =~ s/&Iacute;/\\'{I}/g;  #'
     $result =~ s/&#206;/\\^{I}/g;
     $result =~ s/&Icirc;/\\^{I}/g;
-    $result =~ s/&#207;/\\"{I}/g; 
-    $result =~ s/&Iuml;/\\"{I}/g; 
+    $result =~ s/&#207;/\\"{I}/g;    
+    $result =~ s/&Iuml;/\\"{I}/g;    #"
 #    $result =~ s/&#208;//g;
 #    $result =~ s/&ETH;//g;
     $result =~ s/&#209;/\\~{N}/g;
     $result =~ s/&Ntilde;/\\~{N}/g;
     $result =~ s/&#210;/\\`{O}/g;
-    $result =~ s/&Ograve;/\\`{O}/g; 
+    $result =~ s/&Ograve;/\\`{O}/g;  #`
     $result =~ s/&#211;/\\'{O}/g;
-    $result =~ s/&Oacute;/\\'{O}/g; 
+    $result =~ s/&Oacute;/\\'{O}/g;  #'
     $result =~ s/&#212;/\\^{O}/g;
     $result =~ s/&Ocirc;/\\^{O}/g;
     $result =~ s/&#213;/\\~{O}/g;
     $result =~ s/&Otilde;/\\~{O}/g;
-    $result =~ s/&#214;/\\"{O}/g;
-    $result =~ s/&Ouml;/\\"{O}/g; 
+    $result =~ s/&#214;/\\"{O}/g;    
+    $result =~ s/&Ouml;/\\"{O}/g;    #"
     $result =~ s/&#215;/\$\\times\$/g;
     $result =~ s/&times;/\$\\times\$/g;
     $result =~ s/&#216;/{\\O}/g;
     $result =~ s/&Oslash;/{\\O}/g;
-    $result =~ s/&#217;/\\`{U}/g;
-    $result =~ s/&Ugrave;/\\`{U}/g;
-    $result =~ s/&#218;/\\'{U}/g;
-    $result =~ s/&Uacute;/\\'{U}/g;
+    $result =~ s/&#217;/\\`{U}/g;    
+    $result =~ s/&Ugrave;/\\`{U}/g;  #`
+    $result =~ s/&#218;/\\'{U}/g;    #'
+    $result =~ s/&Uacute;/\\'{U}/g;  #'
     $result =~ s/&#219;/\\^{U}/g;
     $result =~ s/&Ucirc;/\\^{U}/g;
-    $result =~ s/&#220;/\\"{U}/g;
-    $result =~ s/&Uuml;/\\"{U}/g;
+    $result =~ s/&#220;/\\"{U}/g;    #"
+    $result =~ s/&Uuml;/\\"{U}/g;    #"
     $result =~ s/&#221;/\\'{Y}/g;
-    $result =~ s/&Yacute;/\\'{Y}/g;
+    $result =~ s/&Yacute;/\\'{Y}/g;  #'
 #    $result =~ s/&#222;//g;
 #    $result =~ s/&THORN;//g;
 #    $result =~ s/&#223;//g;
 #    $result =~ s/&szlig;//g;
     $result =~ s/&#224;/\\`{a}/g;
-    $result =~ s/&agrave;/\\`{a}/g;
+    $result =~ s/&agrave;/\\`{a}/g;  #`
     $result =~ s/&#225;/\\'{a}/g;
-    $result =~ s/&aacute;/\\'{a}/g;
+    $result =~ s/&aacute;/\\'{a}/g;  #'
     $result =~ s/&#226;/\\^{a}/g;
     $result =~ s/&acirc;/\\^{a}/g;
     $result =~ s/&#227;/\\~{a}/g;
     $result =~ s/&atilde;/\\~{a}/g;
     $result =~ s/&#228;/\\"{a}/g;
-    $result =~ s/&auml;/\\"{a}/g;
+    $result =~ s/&auml;/\\"{a}/g;    #"
     $result =~ s/&#229;/{\\aa}/g;
     $result =~ s/&aring;/{\\aa}/g;
     $result =~ s/&#230;/{\\ae}/g;
@@ -1046,59 +945,140 @@ sub character_chart {
 #    $result =~ s/&#231;//g;
 #    $result =~ s/&ccedil;//g;
     $result =~ s/&#232;/\\`{e}/g;
-    $result =~ s/&egrave;/\\`{e}/g;
+    $result =~ s/&egrave;/\\`{e}/g;  #`
     $result =~ s/&#233;/\\'{e}/g;
-    $result =~ s/&eacute;/\\'{e}/g;
+    $result =~ s/&eacute;/\\'{e}/g;  #'
     $result =~ s/&#234;/\\^{e}/g;
     $result =~ s/&ecirc;/\\^{e}/g;
     $result =~ s/&#235;/\\"{e}/g;
-    $result =~ s/&euml;/\\"{e}/g;
+    $result =~ s/&euml;/\\"{e}/g;    #"
     $result =~ s/&#236;/\\`{i}/g;
-    $result =~ s/&igrave;/\\`{i}/g;
+    $result =~ s/&igrave;/\\`{i}/g;  #`
     $result =~ s/&#237;/\\'{i}/g;
-    $result =~ s/&iacute;/\\'{i}/g;
+    $result =~ s/&iacute;/\\'{i}/g;  #'
     $result =~ s/&#238;/\\^{i}/g;
     $result =~ s/&icirc;/\\^{i}/g;
     $result =~ s/&#239;/\\"{i}/g;
-    $result =~ s/&iuml;/\\"{i}/g;
+    $result =~ s/&iuml;/\\"{i}/g;    #"
 #    $result =~ s/&#240;//g;
 #    $result =~ s/&eth;//g;
     $result =~ s/&#241;/\\~{n}/g;
     $result =~ s/&ntilde;/\\~{n}/g;
     $result =~ s/&#242;/\\`{o}/g;
-    $result =~ s/&ograve;/\\`{o}/g;
+    $result =~ s/&ograve;/\\`{o}/g;  #`
     $result =~ s/&#243;/\\'{o}/g;
-    $result =~ s/&oacute;/\\'{o}/g;
+    $result =~ s/&oacute;/\\'{o}/g;  #'
     $result =~ s/&#244;/\\^{o}/g;
     $result =~ s/&ocirc;/\\^{o}/g;
     $result =~ s/&#245;/\\~{o}/g;
     $result =~ s/&otilde;/\\~{o}/g;
     $result =~ s/&#246;/\\"{o}/g;
-    $result =~ s/&ouml;/\\"{o}/g;
+    $result =~ s/&ouml;/\\"{o}/g;    #"
     $result =~ s/&#247;/\$\\div\$/g;
     $result =~ s/&divide;/\$\\div\$/g;
     $result =~ s/&#248;/{\\o}/g;
     $result =~ s/&oslash;/{\\o}/g;
     $result =~ s/&#249;/\\`{u}/g; 
-    $result =~ s/&ugrave;/\\`{u}/g;
+    $result =~ s/&ugrave;/\\`{u}/g;  #` 
     $result =~ s/&#250;/\\'{u}/g;
-    $result =~ s/&uacute;/\\'{u}/g;
+    $result =~ s/&uacute;/\\'{u}/g;  #'
     $result =~ s/&#251;/\\^{u}/g;
     $result =~ s/&ucirc;/\\^{u}/g;
     $result =~ s/&#252;/\\"{u}/g;
-    $result =~ s/&uuml;/\\"{u}/g;
+    $result =~ s/&uuml;/\\"{u}/g;    #"
     $result =~ s/&#253;/\\'{y}/g;
-    $result =~ s/&yacute;/\\'{y}/g;
+    $result =~ s/&yacute;/\\'{y}/g;  #'
 #    $result =~ s/&#254;//g;
 #    $result =~ s/&thorn;//g;
     $result =~ s/&#255;/\\"{y}/g;
-    $result =~ s/&yuml;/\\"{y}/g;    
+    $result =~ s/&yuml;/\\"{y}/g;    #"
     $result =~ s/&#952;/\$\\theta\$/g; #converts theta from html into tex
     return $result;
 }
 
 
-#'"`
+    sub page_format {
+	my ($papersize,$layout,$numberofcolumns) = @_; 
+	my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);
+	if ($papersize=~/Letter/) {
+	    if ($layout eq 'CAPA') {
+		if ($numberofcolumns == 1) {
+		    $textwidth = '18 cm';
+		    $textheight = '25.9 cm';
+		    $oddoffset = '-0.57 in';
+		    $evenoffset = '-0.57 in';
+		} elsif ($numberofcolumns == 2) {
+		    $textwidth = '9 cm';
+		    $textheight = '25.9 cm';
+		    $oddoffset = '-0.57 in';
+		    $evenoffset = '-0.57 in';
+		}
+	    } elsif ($layout eq 'CBI') {
+		if ($numberofcolumns eq '1') {
+		    $textwidth = '8.8 in';
+		    $textheight = '6.8 in';
+		    $oddoffset = '-40 pt';
+		    $evenoffset = '-60 pt';
+		} elsif ($numberofcolumns == 2) {
+		    $textwidth = '4.2 in';
+		    $textheight = '6.8 in';
+		    $oddoffset = '-40 pt';
+		    $evenoffset = '-60 pt';
+		}
+	    }
+#    } elsif($papersize=~/Legal/) {
+#    } elsif($papersize=~/Ledger/) {
+#    } elsif($papersize=~/Executive/) {
+    } elsif($papersize=~/A4/) {
+	    if ($layout eq 'CAPA') {
+		if ($numberofcolumns == 1) {
+		    $textwidth = '18 cm';
+		    $textheight = '28 cm';
+		    $oddoffset = '-0.57 in';
+		    $evenoffset = '-0.57 in';
+		} elsif ($numberofcolumns == 2) {
+		    $textwidth = '9 cm';
+		    $textheight = '2 cm';
+		    $oddoffset = '-0.57 in';
+		    $evenoffset = '-0.57 in';
+		}
+	    } elsif ($layout eq 'CBI') {
+		if ($numberofcolumns eq '1') {
+		    $textwidth = '8.5 in';
+		    $textheight = '7.7 in';
+		    $oddoffset = '-40 pt';
+		    $evenoffset = '-60 pt';
+		} elsif ($numberofcolumns == 2) {
+		    $textwidth = '3.9 in';
+		    $textheight = '7.7 in';
+		    $oddoffset = '-40 pt';
+		    $evenoffset = '-60 pt';
+		}
+	    }
+#    } elsif($papersize=~/A3/) {
+#    } elsif($papersize=~/A2/) {
+#    } elsif($papersize=~/A5/) {
+#    } elsif($papersize=~/A6/) {
+	}
+	return $textwidth,$textheight,$oddoffset,$evenoffset;
+    }
+
+
+sub page_format_transformation {
+	my ($papersize,$layout,$numberofcolumns,$choice,$text) = @_; 
+	my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
+	my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+	if ($layout eq 'CBI') {
+	    $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill  $courseidinfo} \\vskip 5 mm /;
+	} elsif ($layout eq 'CAPA') {
+ 	    if ($choice ne 'All class print') { 
+		$text =~ 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}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill  $courseidinfo} \\vskip 5 mm /;
+	    } else {
+		$text =~ s/\\begin{document}/\\setlength{\\textheight}{$textheight}\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\textheight}{$textheight}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}  \\vskip 5 mm /;
+	    }
+	}
+	return $text;
+}
 
 
 sub page_cleanup {
@@ -1135,6 +1115,40 @@ sub details_for_menu {
 }
 
 
+sub latex_corrections {
+
+    my ($number_of_columns,$result) = @_;
+
+    $result =~ s/\\includegraphics{/\\includegraphics\[\\minipagewidth\]{/g;
+    $result =~ s/\$number_of_columns/$number_of_columns/g;
+    $result =~ s/(\\end{document})/\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny \\makebox\[1.5cm\]\[b\]{\\hfill}LON-CAPA\\copyright Michigan State University Board of Trustees $1/;
+    $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;
+#-- LaTeX corrections     
+    my $first_comment = index($result,'<!--',0);
+    while ($first_comment != -1) {
+	my $end_comment = index($result,'-->',$first_comment);
+	substr($result,$first_comment,$end_comment-$first_comment+3) = '';
+	$first_comment = index($result,'<!--',$first_comment);
+    }
+    $result =~ s/^\s+$//gm; #remove empty lines
+    $result =~ s/(\s)+/$1/g; #removes more than one empty space
+    $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
+    $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
+    $result =~ s/{\\par }\s*\\\\/\\\\/gm;
+	$result =~ s/\\\\\s+\[/ \[/g;
+    $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
+    #conversion of html characters to LaTeX equivalents
+    if ($result =~ m/&(\w+|#\d+);/) {
+	$result = &character_chart($result);
+    }
+    $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
+    $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
+
+    return $result;
+}
+
+
 sub handler {
 
     my $r = shift;