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

sakharuk lon-capa-cvs@mail.lon-capa.org
Thu, 15 May 2003 20:07:23 -0000


sakharuk		Thu May 15 16:07:23 2003 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  The name of the printed sequence is restored in the final output. I had some problems with understanding how helpers variables work on the different steps.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.177 loncom/interface/lonprintout.pm:1.178
--- loncom/interface/lonprintout.pm:1.177	Thu May 15 15:11:26 2003
+++ loncom/interface/lonprintout.pm	Thu May 15 16:07:23 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.177 2003/05/15 19:11:26 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.178 2003/05/15 20:07:23 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -842,6 +842,7 @@
     $helper->declareVar('postdata');    
     $helper->declareVar('filename');
     $helper->declareVar('construction');
+    $helper->declareVar('assignment');
     
     # This will persistently load in the data we want from the
     # very first screen.
@@ -871,7 +872,7 @@
     }
     
     my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
-    $helper->{VARS}->{'assignment'} = $sequenceTitle;
+    if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
 
     
     # Extract map
@@ -903,7 +904,6 @@
     if (not $helper->{VARS}->{'construction'}) {
 	$subdir='/home/httpd/html/res/'.$subdir;
     }
-
 
     # What can be printed is a very dynamic decision based on
     # lots of factors. So we need to dynamically build this list.