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

[sakharuk]

sakharuk		Thu Aug 12 13:27:13 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Support for Legal paper format. I still have one severe problem with pstops (which final output does not have the whole info).
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.320 loncom/interface/lonprintout.pm:1.321
--- loncom/interface/lonprintout.pm:1.320	Thu Aug 12 02:31:09 2004
+++ loncom/interface/lonprintout.pm	Thu Aug 12 13:27:13 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.320 2004/08/12 06:31:09 albertel Exp $
+# $Id: lonprintout.pm,v 1.321 2004/08/12 17:27:13 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -415,7 +415,35 @@
 		$topmargin = '3.5 in';
 	    }
 	}
-#    } elsif($papersize eq '1') {
+    } elsif($papersize eq '1') {
+	if ($layout eq 'book') {
+	    if ($numberofcolumns == 1) {
+		$textwidth = '7.1 in';      
+		$textheight = '13 in';    
+		$oddoffset = '-0.57 in';
+		$evenoffset = '-0.57 in';
+		$topmargin = '-0.5 in';
+	    } elsif ($numberofcolumns == 2) {
+		$textwidth = '3.66 in';     
+		$textheight = '13 in';    
+		$oddoffset = '-0.57 in';
+		$evenoffset = '-0.57 in';
+		$topmargin = '-0.5 in';
+	    }
+	} elsif ($layout eq 'album') {
+	    if ($numberofcolumns eq '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 = '-0.5 in';
+#		$evenoffset = '-1.5 in';
+#		$topmargin = '3.5 in';
+	    }
+	}
 #    } elsif($papersize eq '2') {
 #    } elsif($papersize eq '3'/) {
     } elsif($papersize eq '6') {