--- loncom/publisher/lonpubdir.pm 2004/01/29 00:44:43 1.59 +++ loncom/publisher/lonpubdir.pm 2004/06/07 22:34:12 1.60 @@ -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 @@ sub putresource { 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').'
'. &mt(&getCopyRightString($targetdir.'/'.$filename)); - $bgcolor='#CCFF88'; + $bgcolor='#CCFF88'; if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) { $status=&mt('Obsolete'); $bgcolor='#AAAAAA'; @@ -362,7 +364,7 @@ sub putresource { ''.($filename=~/[\#\~]$/?' ': ''). ''.&mt('Publish').''. + $uname.$thisdisfn.'/'.$filename.'">'.$publish_button.''. ''. ''. ''.