--- loncom/publisher/lonpubdir.pm 2011/10/21 17:51:23 1.127 +++ loncom/publisher/lonpubdir.pm 2011/10/21 18:04:51 1.128 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.127 2011/10/21 17:51:23 www Exp $ +# $Id: lonpubdir.pm,v 1.128 2011/10/21 18:04:51 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,19 +60,16 @@ sub handler { # ----------------------------------------------------------- Start page output my $fn=$r->filename; + $fn=~s/\/$//; my $thisdisfn=$fn; my $docroot=$r->dir_config('lonDocRoot'); # Apache londocument root. $thisdisfn=~s/^\Q$docroot\E\/priv//; -&Apache::lonnet::logthis("Thisdisfn: $thisdisfn"); - my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory my $targetdir='/res'.$thisdisfn; # Publication target directory. my $linkdir='/priv'.$thisdisfn; # Full URL name of constr space. -&Apache::lonnet::logthis("Values: $resdir $targetdir $linkdir"); - my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); &startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.