--- loncom/publisher/loncfile.pm	2001/06/23 18:26:40	1.1
+++ loncom/publisher/loncfile.pm	2001/06/23 18:51:32	1.2
@@ -190,7 +190,18 @@ sub handler {
                '</font></h3>');
   }
 
-
+  if ($ENV{'form.action'} eq 'delete') {
+      $r->print('<h3>Delete</h3>');
+  } elsif ($ENV{'form.action'} eq 'rename') {
+      $r->print('<h3>Rename</h3>');
+  } elsif ($ENV{'form.action'} eq 'newdir') {
+      $r->print('<h3>New Directory</h3>');
+  } elsif ($ENV{'form.action'} eq 'copy') {
+      $r->print('<h3>Copy</h3>');
+  } else {
+     $r->print('<p>Unknown Action</body></html>');
+     return OK;  
+  }
   if ($ENV{'form.phase'} eq 'two') {
 #      &phasetwo($r,$fn,$uname,$udom);
   } else {