package Apache::portfolio;
use strict;
use Apache::Constants qw(:common :http);
# use Apache::loncommon;
use Apache::lonnet;
# use Apache::lontexconvert;
# use Apache::lonfeedback;
# use Apache::lonlocal;
sub handler {
my $r=@_[0];
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
$r->print("the portfolio handler is in use by $ENV{'user.name'} looking for "
.$r->uri."
");
my $file=&Apache::lonnet::filelocation("",$r->uri);
my $contents=&Apache::lonnet::getfile($file);
# $r->print($contents);
$r->print("here's the form
");
$r->print('