--- loncom/publisher/lonpubdir.pm	2004/07/02 09:41:07	1.62
+++ loncom/publisher/lonpubdir.pm	2004/08/20 16:29:15	1.63
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.62 2004/07/02 09:41:07 albertel Exp $
+# $Id: lonpubdir.pm,v 1.63 2004/08/20 16:29:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -318,6 +318,10 @@ sub putresource {
     my $bgcolor='#FFAA99';
     my $title=' ';
     my $publish_button=&mt('Publish');
+    my $action_buttons=
+        '<br /><a target="_top" href="/adm/cfile?action=delete&filename=/~'.
+	$uname.'/'.$thisdisfn.'/'.$filename.'">'.
+	&mt('Delete').'</a>';
     if (-e $resdir.'/'.$filename) {
 	my ($rdev,$rino,$rmode,$rnlink,
 	    $ruid,$rgid,$rrdev,$rsize,
@@ -332,6 +336,8 @@ sub putresource {
 	    if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
 		$status=&mt('Obsolete');
                 $bgcolor='#AAAAAA';
+	    } else {
+		$action_buttons='';
 	    }
 	    $title='<a href="/res/'.$targetdir.'/'.$filename.
 		'.meta" target=cat>'.
@@ -341,6 +347,7 @@ sub putresource {
 		&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
 		&mt(&getSourceRightString($targetdir.'/'.$filename));
             $bgcolor='#FFFF77';
+	    $action_buttons='';
 	    $title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target=cat>'.
 		&getTitleString($targetdir.'/'.$filename).'</a>';
 	    if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
@@ -372,6 +379,7 @@ sub putresource {
 		      '<img src="'.&Apache::loncommon::icon($filename).'" /></td>').
 	      '<td><a target="_parent" href="/adm/publish?filename=/~'.
 	      $uname.$thisdisfn.'/'.$filename.'">'.$publish_button.'</a>'.
+	      $action_buttons.
 	      '</td>'.
 	      '<td><font face="arial">'.
 	      '<a href="'.$linkdir.'/'.$filename.'" target="_top">'.