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

[www]

www		Mon Nov  7 16:00:17 2011 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Bug #6525 Printing of sequences in Construction Space
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.605 loncom/interface/lonprintout.pm:1.606
--- loncom/interface/lonprintout.pm:1.605	Mon Nov  7 14:36:49 2011
+++ loncom/interface/lonprintout.pm	Mon Nov  7 16:00:17 2011
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.605 2011/11/07 14:36:49 www Exp $
+# $Id: lonprintout.pm,v 1.606 2011/11/07 16:00:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2200,18 +2200,19 @@
 sub print_construction_sequence {
     my ($currentURL, $helper, %form, $LaTeXwidth) = @_;
 
-
     my $result;
     my $rndseed=time;
     if ($helper->{'VARS'}->{'curseed'}) {
 	$rndseed=$helper->{'VARS'}->{'curseed'};
     }
-    my $errtext=&LONCAPA::map::mapread($currentURL);
+    my $errtext=&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$currentURL));
+
     # 
     #  These make this all support recursing for subsequences.
     #
     my @order    = @LONCAPA::map::order;
     my @resources = @LONCAPA::map::resources; 
+
     for (my $member=0;$member<=$#order;$member++) {
 	$resources[$order[$member]]=~/^([^:]*):([^:]*):/;
 	my $urlp=$2;
@@ -2328,7 +2329,6 @@
 
 sub output_data {
     my ($r,$helper,$rparmhash) = @_;
-
     my %parmhash = %$rparmhash;
     $ssi_error = 0;		# This will be set nonzero by failing ssi's.
     $resources_printed = '';