--- loncom/interface/lonprintout.pm 2011/11/07 13:41:43 1.604 +++ loncom/interface/lonprintout.pm 2011/11/07 14:36:49 1.605 @@ -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 @@ sub print_construction_sequence { # 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 @@ ENDPART } } 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}';