--- loncom/interface/lonprintout.pm 2011/10/21 10:13:57 1.600 +++ loncom/interface/lonprintout.pm 2011/10/26 02:09:42 1.601 @@ -2,7 +2,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.600 2011/10/21 10:13:57 foxr Exp $ +# $Id: lonprintout.pm,v 1.601 2011/10/26 02:09:42 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1929,7 +1929,7 @@ sub print_page_in_course { } else { $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm '; my $URLpath=$urlp; - $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; + #$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; $texversion.=&path_to_problem($URLpath,$LaTeXwidth); } $texversion.='\vskip 1 mm '.$answer.'\end{document}'; @@ -2269,10 +2269,12 @@ 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\/|; @@ -2515,6 +2517,7 @@ ENDPART } else { $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm '; my $URLpath=$cleanURL; +# FIXME: unclear URL path, not sure when this would occur $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; $texversion.=&path_to_problem($URLpath,$LaTeXwidth); } @@ -2550,7 +2553,7 @@ ENDPART && $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);