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

[www]

www		Mon Nov  7 14:36:49 2011 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  Cleanup
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.604 loncom/interface/lonprintout.pm:1.605
--- loncom/interface/lonprintout.pm:1.604	Mon Nov  7 13:41:43 2011
+++ loncom/interface/lonprintout.pm	Mon Nov  7 14:36:49 2011
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.604 2011/11/07 13:41:43 www Exp $
+# $Id: lonprintout.pm,v 1.605 2011/11/07 14:36:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2271,17 +2271,7 @@
 	    # IF sequence, recurse:
 	    
 	    if ($urlp =~ /\.sequence$/) {
-#
-# FIXME: this does not work for co-authors
-		my $sequence_url = $urlp;
-		my $domain       = $env{'user.domain'};	# Constr. space only on local
-		my $user         = $env{'user.name'};
-# FIXME: the substitutions below do not seem to make sense
-
-		$sequence_url    =~ s/^\/res\/$domain/\/home/;
-		$sequence_url    =~ s/^(\/home\/$user)/$1\/public_html/;
-#		$sequence_url    =~ s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
-		$result .= &print_construction_sequence($sequence_url, 
+		$result .= &print_construction_sequence($urlp, 
 							$helper, %form, 
 							$LaTeXwidth);
 	    }
@@ -2555,11 +2545,6 @@
 	    }
         } elsif ($cleanURL!~m|^/adm/|
 		 && $currentURL=~/\.(sequence|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {
-            #printing content of sequence from the construction space	
-
-# FIXME: unclear how this would work
-
-	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
 	    $result .= &print_construction_sequence($currentURL, $helper, %form,
 						    $LaTeXwidth);
 	    $result .= '\end{document}';