--- loncom/interface/lonprintout.pm 2017/01/30 19:47:54 1.627.2.20 +++ loncom/interface/lonprintout.pm 2018/04/29 16:21:07 1.627.2.22 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.627.2.20 2017/01/30 19:47:54 raeburn Exp $ +# $Id: lonprintout.pm,v 1.627.2.22 2018/04/29 16:21:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -890,7 +890,7 @@ sub include_pdf { my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; $file =~ s{(.*)/res/}{$londocroot/res/}; - open(FILE,">>$Apache::lonnet::perlvar{'lonPrtDir'}/$env{'user.name'}_$env{'user.domain'}_printout.dat"); + open(FILE,">>","$Apache::lonnet::perlvar{'lonPrtDir'}/$env{'user.name'}_$env{'user.domain'}_printout.dat"); print FILE ("$file\n"); close (FILE); @@ -3458,7 +3458,9 @@ ENDPART if ($env{'request.enc'}) { $url = &Apache::lonenc::encrypted($url); } - $URLback = $url.($url =~ /\?/) ? '&':'?'.'symb='.$helper->{VARS}{'symb'}; + if ($url ne '') { + $URLback = $url.(($url =~ /\?/) ? '&':'?').'symb='.$helper->{VARS}{'symb'}; + } } # # Final adjustment of the font size: