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

[albertel]

albertel		Mon Jun  7 18:34:18 2004 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  - BUG#2931
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.59 loncom/publisher/lonpubdir.pm:1.60
--- loncom/publisher/lonpubdir.pm:1.59	Wed Jan 28 19:44:43 2004
+++ loncom/publisher/lonpubdir.pm	Mon Jun  7 18:34:12 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.59 2004/01/29 00:44:43 www Exp $
+# $Id: lonpubdir.pm,v 1.60 2004/06/07 22:34:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -312,15 +312,17 @@
     my $status=&mt('Unpublished');
     my $bgcolor='#FFAA99';
     my $title=' ';
+    my $publish_button=&mt('Publish');
     if (-e $resdir.'/'.$filename) {
 	my ($rdev,$rino,$rmode,$rnlink,
 	    $ruid,$rgid,$rrdev,$rsize,
 	    $ratime,$rmtime,$rctime,
 	    $rblksize,$rblocks)=stat($resdir.'/'.$filename);
+	$publish_button=&mt('Re-Publish');
 	if ($rmtime>=$cmtime) {
 	    $status=&mt('Published').'<br />'.
 		&mt(&getCopyRightString($targetdir.'/'.$filename));
-            $bgcolor='#CCFF88';
+	    $bgcolor='#CCFF88';
 	    if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
 		$status=&mt('Obsolete');
                 $bgcolor='#AAAAAA';
@@ -362,7 +364,7 @@
 	      '<td>'.($filename=~/[\#\~]$/?'&nbsp;':
 		      '<img src="'.&Apache::loncommon::icon($filename).'" /></td>').
 	      '<td><a target="_parent" href="/adm/publish?filename=/~'.
-	      $uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.
+	      $uname.$thisdisfn.'/'.$filename.'">'.$publish_button.'</a>'.
 	      '</td>'.
 	      '<td><font face="arial">'.
 	      '<a href="'.$linkdir.'/'.$filename.'" target="_top">'.