--- loncom/interface/portfolio.pm 2004/06/08 18:34:20 1.1 +++ loncom/interface/portfolio.pm 2004/07/28 19:00:19 1.18 @@ -1,55 +1,278 @@ +# 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; - -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; -# } - +use Apache::lontexconvert; +use Apache::lonfeedback; +use Apache::lonlocal; +# receives a file name and path stub from username/userfiles/portfolio/ +# returns an anchor tag consisting encoding filename and currentpath +sub makeAnchor{ + my ($fileName, $currentPath) = @_; + my $anchor = ''.$fileName.''; + return $anchor; +} -# $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; +# returns html with
separated contents of the directory +# returns a currentFile (bolds the selected file/dir) +sub displayDirectory { + my ($currentPath, $currentFile, @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.'
'; + } + foreach my $line (@dirList) { + #$strip holds directory/file name + #$dom + my ($fileName,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); + if (($fileName ne '.') && ($fileName ne '..')){ + if ($testdir =~ m:^1:){ + # handle directories different from files + if ($fileName eq $currentFile){ #checks to bold the selected file + $displayOut.= ''.(makeAnchor($fileName.'/', $fileName.'/').'
'."\n"); + }else{ + $displayOut.= (makeAnchor($fileName.'/', $fileName.'/').'
'."\n"); + } + }else{ + if ($fileName eq $currentFile){ #checks to bold the selected file + $displayOut.=''.(makeAnchor($fileName, $currentPath).'
'."\n"); + }else{ + $displayOut.=(makeAnchor($fileName, $currentPath).'
'."\n"); + } + } + + } + + } + return $displayOut; } +sub displayActions { + # returns html to offer user appropriate actions depending on selected file/directory + my $displayOut; + my ($currentPath, $currentFile, $isEmpty) = @_; +# $displayOut = 'here are actions for '.$currentFile; + if ($currentFile =~ m:/$:){ + # if the selected file is a directory, these are the options + # offer the chance to delete the directory only if it is empty + if ($isEmpty && ($currentPath ne '/')) { + $displayOut = $displayOut.'
+ + + +
+ +
+
'; + } + if ($currentPath ne '/') { + $displayOut = $displayOut.'
+
+ + + + + +
'; + } + }else{ #action options offered for files + $displayOut = $displayOut.'
'; + $displayOut = $displayOut.' + +
+ +
+
'; + + $displayOut = $displayOut.'
+
+ + + + + +
+
'; + } + $displayOut = $displayOut.'
Add a file to '.$currentPath; + # file upload form + $displayOut = $displayOut.'
'; + $displayOut = $displayOut.''. + ''. + ''. + '
'; + $displayOut = $displayOut.'
+ + +
+ '; + return $displayOut; +} +sub handler { + # this handles file management + my $r = shift; + my $iconpath= $r->dir_config('lonIconsURL') . "/"; + 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 $isEmpty; + my $dirptr=16384; + &Apache::loncommon::no_cache($r); + &Apache::loncommon::content_type($r,'text/html'); + $r->send_http_header; + # Give the LON-CAPA page header + $r->print(''. + &mt('Portfolio Manager'). + "\n". + &Apache::loncommon::bodytag('Portfolio Manager')); + $r->rflush(); + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['selectfile','currentpath', 'currentfile']); + # 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'}) { + # 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') { + $r->print('
trying to delete '.$currentPath.$ENV{'form.selectfile'}.'
'); + $r->print(&Apache::lonnet::removeuserfile($ENV{'user.name'}, $ENV{'user.domain'},'portfolio'.$currentPath.$ENV{'form.selectfile'})); + $currentFile = ''; + } elsif ($ENV{'form.fileaction'} eq 'rename') { + &Apache::lonnet::portfoliomanage($currentPath.$ENV{'form.selectfile'}, 'rename', $currentPath.$ENV{'form.filenewname'} ); + } + } + # we always need $dirList, plus this will return information about the current file + # as well as information about the home server directory structure, specifically + # the path to the users userfiles directory. + # + my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'}, + $ENV{'user.name'}). + '/userfiles/portfolio'.$currentPath; + @dirList = &Apache::lonnet::dirlist($currentPath, $ENV{'user.domain'}, $ENV{'user.name'}, $portfolio_root); + + if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired + $isEmpty = 1; + } else { + $isEmpty = 0; + } + + 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'}); + } 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(''. + ''); + foreach my $line (@dirList) { + #$strip holds directory/file name + #$dom + my ($fileName,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); + if ($dirptr&$testdir){ + $r->print(''); + }else{ + $r->print(''); + } + } +# pink bg +# blue bg +# $r->print(displayDirectory($currentPath, $currentFile, @dirList)); +# $r->print('>
 ActionsNameTitleStatusLast Modified
'); +# $r->print(displayActions($currentPath, $currentFile, $isEmpty)); + $r->print('
'); + $r->print(''); + $r->print("\n\n"); + $r->rflush(); + return OK; +} + 1; __END__