[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm

[www]

www		Fri Oct 21 18:04:51 2011 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  Bug #1320: Oops, debug code
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.127 loncom/publisher/lonpubdir.pm:1.128
--- loncom/publisher/lonpubdir.pm:1.127	Fri Oct 21 17:51:23 2011
+++ loncom/publisher/lonpubdir.pm	Fri Oct 21 18:04:51 2011
@@ -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 @@
 # ----------------------------------------------------------- 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.