--- loncom/interface/portfolio.pm 2004/06/08 18:34:20 1.1 +++ loncom/interface/portfolio.pm 2004/06/28 16:07:47 1.8 @@ -1,55 +1,260 @@ +# 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]; - $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; -# } +# receives a file name assumed to reside in username/userfiles/portfolio/ +# returns a form consisting of a single submit button labeled with the filename +sub makeAnchor { + my ($fileName, $currentPath) = @_; + my $anchor = ''.$fileName.''; +# my $button = ' +#
+# +# +#
+# '; + return $anchor; +} +# returns html with
separated contents of the directory +# returns a currentFile (bolds the selected file/dir) +sub displayDirectory { + my ($currentPath, $currentFile, $isDir, @dirList,) = @_; + my $displayOut=''; + my $fileName; + my $upPath; + if ($currentPath ne '/') { + $displayOut = 'Listing of '.$currentPath.'
'. + # provides the "up one directory level" function + # it means shortening the currentpath to the parent directory + $currentPath =~ m:(^/.*)(/.*/$ ):; + if ($1 ne '/') { + $upPath = $1.'/'; + } else { + $upPath = $1; + } + + $displayOut = $displayOut.'..
'; + } else { + $displayOut = $displayOut.'at root '.$currentPath.'
'; + } + while ($fileName = shift @dirList) { + if (($fileName ne './') && ($fileName ne '../')) { + if ($fileName =~ m:/$:) { + # handle directories different from files + if ($fileName eq $currentFile) { + #checks to bold the selected file + $displayOut = $displayOut.''.(&makeAnchor($fileName, $currentPath.$fileName).'
'); + } else { + $displayOut = $displayOut.(&makeAnchor($fileName, $currentPath.$fileName).'
'); + } + } else { + if ($fileName eq $currentFile) { + #checks to bold the selected file + $displayOut = $displayOut.''.(&makeAnchor($fileName, $currentPath).'
'); + } else { + $displayOut = $displayOut.(&makeAnchor($fileName, $currentPath).'
'); + } + } + } + } + #$displayOut = $displayOut. + return $displayOut; +} +# returns html to offer user appropriate actions depending on selected +# file/directory +sub displayActions { + my $displayOut; + my ($currentPath, $currentFile, $isDir, $isFile) = @_; +# $displayOut = 'here are actions for '.$currentFile; + if ($isDir){ + $displayOut = 'Directory'; + } + if ($isFile){ + $displayOut = 'File'; + } + + $displayOut = $displayOut.'
+ + +
+ +
+
+
+
+ + + + +
+
'; + $displayOut = $displayOut.'
Add a file to your portfolio'; + # file upload form + $displayOut = $displayOut.'
'; + $displayOut = $displayOut.''. + ''. + ''. + '
'; + $displayOut = $displayOut.'
+ + +
+ '; + return $displayOut; +} + +sub handler { + # this handles file management + my ($r)=@_; + my @dirList; # will hold directory listing as array + my $udir; # returned from home server + my $currentPath; # path assuming /userfiles/portfolio/ as root + my $currentFile; # directory or file contained in $pathToRoot.$currentPath + my $action; # delete, rename, makedirectory, removedirectory, + my $filenewname; # for rename action (guess what we do with it!) + my $isFile; + my $isDir; + # send header + $r->content_type('text/html'); + $r->send_http_header; + $r->print(''. + 'Portfolio Management'. + "\n"); -# $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; + $r->print(' + +
'); + #grab stuff that was sent + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['selectfile','currentpath', + 'currentfile']); + $r->print ('
CP= '.$ENV{'form.currentpath'}.'
'); + # currentPath and currentFile need to be set for the rest of things to happen + # sometimes, currentFile will be passed by a form field, selectedfile + # if there is no 'form.selectedfile' then the current directory is + # considered as selected + if ($ENV{'form.currentpath'}) { + $currentPath = $ENV{'form.currentpath'}; + } else { + $currentPath = '/'; + } + if ($ENV{'form.selectfile'}) { + $r->print('
found selectfile'.$ENV{'form.selectfile'} .'
'); + # have to check if the selected file is a subdirectory + if ($ENV{'form.selectfile'} =~ /-\(Dir\)/) { + # $currentPath =~ /\-\(Dir\)/; + $currentPath = $`.'/'; + $r->print('
'.$currentPath.'
'); + } + $currentFile = $ENV{'form.selectfile'}; + } else { + $currentFile = ''; + } + # if we're uploading a file, we need to do it early so it will show in the directory list + if ($ENV{'form.uploaddoc.filename'}) { + $r->print($ENV{'form.storeupl'}.'
'); + $r->print(&Apache::lonnet::userfileupload('uploaddoc','','portfolio'.$currentPath).'
'); + } + # similarly, we need to delete or rename files before getting directory list + if ($ENV{'form.selectfile'}) { + if ($ENV{'form.fileaction'} eq 'delete') { + &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'delete', undef ); + $currentFile = ''; + } elsif($ENV{'form.fileaction'} eq 'rename') { + &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'rename', $ENV{'form.filenewname'} ); + # $r->print('We will rename your file'); + } + } + # we always need $dirList, plus this will return information about the current file + # as well as information about he home server directory structure, specifically + # the path to the users userfiles directory. + @dirList = split //, (&Apache::lonnet::portfoliolist($currentPath, $currentFile)); + # portfoliolist returns isdir, isfile and udir as the final array elements + # we'll pop them off the bottom of the array, and put them where they belong + + # $londcall added to help debug + my $londcall = pop(@dirList); + $r->print('
udir '.$londcall.'
'); + $udir = pop(@dirList); + $r->print('
path returned '.$udir.'
'); + $isFile = pop(@dirList); +# $r->print('
isfile '.$isFile.'
'); + $isDir = pop(@dirList); +# $r->print('
isdir '.$isDir.'
'); +# return OK if $r->header_only; + # Stuff to maintain proper setting for selected file + if ($ENV{'form.selectfile'}) { + if ($ENV{'form.fileaction'} eq 'delete') { + &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'delete', undef ); + $ENV{'portfolio.file'} = 'Selected File Deleted'; + } elsif($ENV{'form.fileaction'} eq 'rename') { + &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'rename', $ENV{'form.filenewname'} ); +# $r->print('We will rename your file'); + } else { + + # Remember user's file selection for later + $ENV{'portfolio.file'} = $ENV{'form.selectfile'}; + # offer things user can do with selected file + } + } else { + unless ($ENV{'portfolio.file'}) { + $ENV{'portfolio.file'} = 'No File Selected'; + } + } + ############################## + # + # Display begins here + # + ############################## + $r->print('
start '); + $r->print($udir); + $r->print('>>
'); + $r->print(&displayDirectory($currentPath, $currentFile, $isDir, @dirList)); + $r->print(''); + $r->print(&displayActions($currentPath, $currentFile, $isDir, $isFile)); + $r->print('
'); + $r->print('
end display
'); + $r->print('
'); + return OK; } + 1; __END__