version 1.4, 2004/06/19 00:54:21
|
version 1.5, 2004/06/21 14:10:05
|
Line 34 use Apache::lonfeedback;
|
Line 34 use Apache::lonfeedback;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r=@_[0]; |
my ($r)=@_; |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
Line 48 sub handler {
|
Line 48 sub handler {
|
$r->print (&Apache::lonnet::userfileupload('uploaddoc',undef,'portfolio').'<br />'); |
$r->print (&Apache::lonnet::userfileupload('uploaddoc',undef,'portfolio').'<br />'); |
} |
} |
$r->print ('<br />Current contents of your portfolio directory: <br /><hr />'); |
$r->print ('<br />Current contents of your portfolio directory: <br /><hr />'); |
$r->print (&Apache::lonnet::portfoliolist($r->uri, $ENV{'user.domain'}, $ENV{'user.name'}, udef )); |
$r->print (&Apache::lonnet::portfoliolist($r->uri, $ENV{'user.domain'}, $ENV{'user.name'}, undef )); |
$r->print ('<hr />'); |
$r->print ('<hr />'); |
# $r->print ($ENV{'form.uploaddoc.filename'}.'<br />'); |
# $r->print ($ENV{'form.uploaddoc.filename'}.'<br />'); |
# $r->print ($ENV{'form.storeupl'}.'<br />'); |
# $r->print ($ENV{'form.storeupl'}.'<br />'); |