loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 />');