--- loncom/interface/londocs.pm	2002/07/31 14:56:36	1.4
+++ loncom/interface/londocs.pm	2002/08/01 15:26:23	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.4 2002/07/31 14:56:36 www Exp $
+# $Id: londocs.pm,v 1.6 2002/08/01 15:26:23 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,7 +55,9 @@ sub handler {
 # upload a file
     if (($ENV{'form.uploaddoc.filename'}) && ($allowed)) {
         my $id=time.'_'.$ENV{'user.name'}.'_'.$ENV{'user.domain'};
-	my $url=&Apache::lonnet::userfileupload('uploaddoc');
+# this is for a course, not a user, so set coursedoc flag
+# probably the only place in the system where this should be "1"
+	my $url=&Apache::lonnet::userfileupload('uploaddoc',1);
         if ($url=~/^error\:/) {
         } else {
 	    my $comment=$ENV{'form.comment'};
@@ -90,8 +92,16 @@ ENDDOCUMENT
    foreach (sort keys (%currentdocs)) {
        if ($_=~/(\d+)\_(\w+)\_(\w+)\.url/) {
 	   $r->print('<hr>'.localtime($1).' '.$2.' '.$3.'<blockquote>'.
-		     $currentdocs{$1.'_'.$2.'_'.$3.'.comment'}.
-                     '</blockquote><a href="'.$currentdocs{$_}.'">View</a>');
+		     &Apache::lontexconvert::msgtexconverted(
+                                 $currentdocs{$1.'_'.$2.'_'.$3.'.comment'}
+                     ).
+                     '</blockquote><a href="'.
+               &Apache::lonnet::tokenwrapper($currentdocs{$_}).'">View</a>');
+	   if (($2 eq $ENV{'user.name'}) && ($3 eq $ENV{'user.domain'})
+               && ($allowed)) {
+              $r->print(' <a href="/adm/coursedocs?remove='.
+                        $1.'_'.$2.'_'.$3.'">Remove</a>');
+	   }
        }
    }
 # ----------------------------------------------------------------- Upload form