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

[www]

www		Fri Dec 23 19:07:50 2011 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  Fix detection of modified source file and link to modified metadata diffs
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.140 loncom/publisher/lonpubdir.pm:1.141
--- loncom/publisher/lonpubdir.pm:1.140	Fri Dec 23 17:21:18 2011
+++ loncom/publisher/lonpubdir.pm	Fri Dec 23 19:07:50 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.140 2011/12/23 17:21:18 www Exp $
+# $Id: lonpubdir.pm,v 1.141 2011/12/23 19:07:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -524,7 +524,7 @@
     my $css_class='LC_browser_file';
     my $title=' ';
     my $publish_button=&mt('Publish');
-    my $cstr_dir = $r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.'/'.$thisdisfn.'/';
+    my $cstr_dir = $r->dir_config('lonDocRoot').'/priv'.$thisdisfn;
     my $linkfilename=&HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');
 
     if (-e $resdir.'/'.$filename) {
@@ -598,7 +598,7 @@
 	    $title = &mt('Metadata Modified').'<br />'.$title.
 		'<br />'.
                 &Apache::loncommon::modal_link(
-                    '/adm/diff?filename=/priv/'.$linkfilename.'.meta'.'&versiontwo=priv',
+                    '/adm/diff?filename='.$linkfilename.'.meta'.'&versiontwo=priv',
                     &mt('Metadata Diffs'),600,500);
 	    $title.="\n".'<br />'.
                 &Apache::loncommon::modal_link(