# 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::lonnet;
use Apache::lontexconvert;
use Apache::lonfeedback;
use Apache::lonlocal;
sub makeAnchor{
# receives a file name and path stub from username/userfiles/portfolio/
# returns an anchor tag consisting encoding filename and currentpath
my ($fileName, $currentPath) = @_;
my $anchor = ''.$fileName.'';
return $anchor;
}
sub displayDirectory {
# returns html with
separated contents of the directory
# returns a currentFile (bolds the selected file/dir)
my ($currentPath, $currentFile, $isDir, @dirList,) = @_;
my $displayOut='';
my $fileName;
my $upPath;
if ($currentPath ne '/'){
$displayOut = 'Listing of '.$currentPath.'
'); # $r->content_type('text/html'); # $r->send_http_header; # $r->print(''. # 'Portfolio Management'. # " \n"); # # $r->print (' # #'); #grab stuff that was sent &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['selectfile','currentpath', 'currentfile']); # $r->print (''); return OK; } 1; __END__
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'){ $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'} ); # $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. # $r->print('dir list follows
'.&Apache::lonnet::portfoliolist($currentPath, $currentFile).'
'); my $list = &Apache::lonnet::portfoliolist($currentPath, $currentFile); @dirList = split(/:/,$list); # foreach my $line (@dirlist) { # # #$strip holds directory/file name # #$dom # my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); # $r->print ($strip.' '.$testdir.'
'); # } # @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, contains the command sent to lond # 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; if (@dirList == 2){ # need to know if directory is empty to it can be removed if desired $isEmpty = 1; }else{ $isEmpty = 0; } # $r->print ('
lines left ind dirlist '.@dirList.'
'); # 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 ('
'); $r->print (displayDirectory ($currentPath, $currentFile, $isDir, @dirList)); $r->print (' >'); $r->print (displayActions ($currentPath, $currentFile, $isDir, $isEmpty)); $r->print (' >
end display
'); $r->print ('