--- loncom/interface/portfolio.pm 2004/06/08 18:34:20 1.1 +++ loncom/interface/portfolio.pm 2004/06/21 14:10:05 1.5 @@ -1,55 +1,73 @@ +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# /home/httpd/html/adm/gpl.txt +# + + +# http://www.lon-capa.org/ +# + + package Apache::portfolio; use strict; use Apache::Constants qw(:common :http); -# use Apache::loncommon; +use Apache::loncommon; use Apache::lonnet; -# use Apache::lontexconvert; -# use Apache::lonfeedback; -# use Apache::lonlocal; +use Apache::lontexconvert; +use Apache::lonfeedback; +use Apache::lonlocal; sub handler { - my $r=@_[0]; + my ($r)=@_; $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('
'); - $r->print(''); - $r->print(''); - $r->print('
'); - return OK; -# my $something = "this is something
"; -# my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri); -# Is this even a user? -# if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') { -# $r->print(''. -# &mt('No user information available').''); -# return OK; -# } - +# my $file=&Apache::lonnet::filelocation("",$r->uri); +# my $contents=&Apache::lonnet::getfile($file); +# upload a file if we enter with a filename set + $r->print (' +
'); + + if ($ENV{'form.uploaddoc.filename'}){ + $r->print (&Apache::lonnet::userfileupload('uploaddoc',undef,'portfolio').'
'); + } + $r->print ('
Current contents of your portfolio directory:
'); + $r->print (&Apache::lonnet::portfoliolist($r->uri, $ENV{'user.domain'}, $ENV{'user.name'}, undef )); + $r->print ('
'); +# $r->print ($ENV{'form.uploaddoc.filename'}.'
'); +# $r->print ($ENV{'form.storeupl'}.'
'); +# $r->print ($ENV{'form.saywhat'}.'
'); + $r->print("Upload files to your portfolio
"); + # file upload form + $r->print('
'); + $r->print(''. + + '' + ); + $r->print('
+
+ '); + + return OK; -# $r->print($something); -# $r->print($r); -# $r->print($ENV{'user.name'}); -# $r->print("
should have printed username above
"); -# my $key = ""; -# foreach my $key (sort(keys(%ENV))) { -# $r->print("$key is $ENV{$key}
\n"); -# } -# -# my @envkeys = keys(%ENV); -# my $i = 0; -# for ($i = 0; $i < 30; $i++){ -# $r->print("Key $i is $envkeys[$i]
"); -# } -# return OK; } + 1; __END__