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

[albertel]

albertel		Tue Mar 23 14:36:51 2004 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - maybe this one is right.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.285 loncom/interface/lonprintout.pm:1.286
--- loncom/interface/lonprintout.pm:1.285	Tue Mar 23 11:17:48 2004
+++ loncom/interface/lonprintout.pm	Tue Mar 23 14:36:51 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.285 2004/03/23 16:17:48 albertel Exp $
+# $Id: lonprintout.pm,v 1.286 2004/03/23 19:36:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -663,12 +663,13 @@
 
 sub get_textwidth {
     my ($helper,$LaTeXwidth)=@_;
+    my $textwidth=$LaTeXwidth;
     if ($helper->{'VARS'}->{'pagesize.width'}=~/\d+/ &&
 	$helper->{'VARS'}->{'pagesize.widthunit'}=~/\w+/) {
-	$moreenv{'textwidth'}=&recalcto_mm($helper->{'VARS'}->{'pagesize.width'}.' '.$helper->{'VARS'}->{'pagesize.widthunit'});
-    } else {
-	$moreenv{'textwidth'}=$LaTeXwidth;
+	$textwidth=&recalcto_mm($helper->{'VARS'}->{'pagesize.width'}.' '.
+				$helper->{'VARS'}->{'pagesize.widthunit'});
     }
+    return $textwidth;
 }
 
 sub output_data {