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

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 07 Feb 2005 17:07:27 -0000


matthew		Mon Feb  7 12:07:27 2005 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Perl doesn't let you scope specific hash keys.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.356 loncom/interface/lonprintout.pm:1.357
--- loncom/interface/lonprintout.pm:1.356	Mon Feb  7 07:00:13 2005
+++ loncom/interface/lonprintout.pm	Mon Feb  7 12:07:27 2005
@@ -1,7 +1,7 @@
 #  The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.356 2005/02/07 12:00:13 foxr Exp $
+# $Id: lonprintout.pm,v 1.357 2005/02/07 17:07:27 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -830,8 +830,8 @@
     # here.
     #
     my %form;
-    my $form{'grade_target'} = 'tex';
-    my $form{'textwidth'}    = &tget_textwidth($helper, $LaTeXwidth);
+    $form{'grade_target'} = 'tex';
+    $form{'textwidth'}    = &tget_textwidth($helper, $LaTeXwidth);
 
     my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
     my ($result,$selectionmade) = ('','');