|
version 1.4, 2002/07/31 14:56:36
|
version 1.6, 2002/08/01 15:26:23
|
|
Line 55 sub handler {
|
Line 55 sub handler {
|
| # upload a file |
# upload a file |
| if (($ENV{'form.uploaddoc.filename'}) && ($allowed)) { |
if (($ENV{'form.uploaddoc.filename'}) && ($allowed)) { |
| my $id=time.'_'.$ENV{'user.name'}.'_'.$ENV{'user.domain'}; |
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\:/) { |
if ($url=~/^error\:/) { |
| } else { |
} else { |
| my $comment=$ENV{'form.comment'}; |
my $comment=$ENV{'form.comment'}; |
|
Line 90 ENDDOCUMENT
|
Line 92 ENDDOCUMENT
|
| foreach (sort keys (%currentdocs)) { |
foreach (sort keys (%currentdocs)) { |
| if ($_=~/(\d+)\_(\w+)\_(\w+)\.url/) { |
if ($_=~/(\d+)\_(\w+)\_(\w+)\.url/) { |
| $r->print('<hr>'.localtime($1).' '.$2.' '.$3.'<blockquote>'. |
$r->print('<hr>'.localtime($1).' '.$2.' '.$3.'<blockquote>'. |
| $currentdocs{$1.'_'.$2.'_'.$3.'.comment'}. |
&Apache::lontexconvert::msgtexconverted( |
| '</blockquote><a href="'.$currentdocs{$_}.'">View</a>'); |
$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 |
# ----------------------------------------------------------------- Upload form |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface