Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

- adding some FIXMEs and xhtmlizing the HTML

    1: # Copyright Michigan State University Board of Trustees
    2: #
    3: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    4: #
    5: # LON-CAPA is free software; you can redistribute it and/or modify
    6: # it under the terms of the GNU General Public License as published by
    7: # the Free Software Foundation; either version 2 of the License, or 
    8: # (at your option) any later version.
    9: #
   10: # LON-CAPA is distributed in the hope that it will be useful,
   11: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   12: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   13: # GNU General Public License for more details.
   14: #
   15: # You should have received a copy of the GNU General Public License
   16: # along with LON-CAPA; if not, write to the Free Software
   17: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   18: #
   19: # /home/httpd/html/adm/gpl.txt
   20: #
   21: 
   22: 
   23: # http://www.lon-capa.org/
   24: #
   25: 
   26: 
   27: package Apache::portfolio;
   28: use strict;
   29: use Apache::Constants qw(:common :http);
   30: use Apache::loncommon;
   31: use Apache::lonnet;
   32: use Apache::lontexconvert;
   33: use Apache::lonfeedback;
   34: use Apache::lonlocal;
   35: 
   36: # receives a file name assumed to reside in username/userfiles/portfolio/
   37: # returns a form consisting of a single submit button labeled with the filename
   38: sub makeAnchor {
   39:     my ($fileName, $currentPath) = @_;
   40:     my $anchor = '<a href="/adm/portfolio?selectfile='.$fileName.'&currentpath='.$currentPath.'">'.$fileName.'</a>';
   41: #    my $button = '
   42: #		<form method="POST" action="/adm/portfolio">
   43: #		<input type="hidden" name="selectfile" value="'.$fileName.'" />
   44: #		<input type="submit" value="'.$fileName.'" name="storeupl" />
   45: #		</form>
   46: #		';
   47:     return $anchor;
   48: }
   49: 
   50: # returns html with <br /> separated contents of the directory
   51: # returns a <strong>currentFile</strong> (bolds the selected file/dir)
   52: sub displayDirectory {
   53:     my ($currentPath, $currentFile, $isDir, @dirList,) = @_;
   54:     my $displayOut='';	
   55:     my $fileName;
   56:     my $upPath;
   57:     if ($currentPath ne '/') {
   58: 	$displayOut = 'Listing of '.$currentPath.'<br /><hr />'.
   59: 	    # provides the "up one directory level" function
   60: 	    # it means shortening the currentpath to the parent directory
   61: 	    $currentPath =~ m:(^/.*)(/.*/$ ):;
   62: 	if ($1 ne '/') {
   63: 	    $upPath = $1.'/';
   64: 	} else {
   65: 	    $upPath = $1;
   66: 	}
   67: 		
   68: 	$displayOut = $displayOut.'<a href="/adm/portfolio?selectfile=updir&currentpath='.$upPath.'">..</a><br />';
   69:     } else {
   70: 	$displayOut = $displayOut.'at root '.$currentPath.'<br />';
   71:     }
   72:     while ($fileName = shift @dirList) {
   73: 	if (($fileName ne './') && ($fileName ne '../')) {
   74: 	    if ($fileName =~ m:/$:) {
   75: 		# handle directories different from files
   76: 		if ($fileName eq $currentFile) {
   77: 		    #checks to bold the selected file
   78: 		    $displayOut = $displayOut.'<strong>'.(&makeAnchor($fileName, $currentPath.$fileName).'</strong><br />');
   79: 		} else {
   80: 		    $displayOut = $displayOut.(&makeAnchor($fileName, $currentPath.$fileName).'<br />');
   81: 		}
   82: 	    } else {
   83: 		if ($fileName eq $currentFile) {
   84: 		    #checks to bold the selected file
   85: 		    $displayOut = $displayOut.'<strong>'.(&makeAnchor($fileName, $currentPath).'</strong><br />');
   86: 		} else {
   87: 		    $displayOut = $displayOut.(&makeAnchor($fileName, $currentPath).'<br />');
   88: 		}
   89: 	    }
   90: 	}
   91:     }
   92:     #$displayOut = $displayOut.
   93:     return $displayOut;
   94: }
   95: 
   96: # returns html to offer user appropriate actions depending on selected
   97: # file/directory
   98: sub displayActions {
   99:     my $displayOut;
  100:     my ($currentPath, $currentFile, $isDir, $isFile) = @_;
  101: #   $displayOut = 'here are actions for '.$currentFile;
  102:     if ($isDir){
  103: 	$displayOut = 'Directory';
  104:     }
  105:     if ($isFile){
  106: 	$displayOut = 'File';
  107:     }
  108:     
  109:     $displayOut = $displayOut.'<form method="POST">
  110: 			<input type="hidden" name="selectfile" 
  111: 			value="'.$currentFile.'" />
  112: 			<input type="hidden" name="fileaction" value="delete" /> 
  113: 			<center>
  114: 			<input type="submit" 
  115: 			
  116: 			value="Delete '.$currentFile.'" />
  117: 			</center>
  118: 			</form>
  119: 			<hr />
  120: 			<form method="POST">
  121: 			<input type="hidden" name="selectfile" 
  122: 			value="'.$currentFile.'" />
  123: 			<input type="hidden" name="fileaction" value="rename" /> 
  124: 			<input type="input" name="filenewname" value="Type new name here" /> 
  125: 			<input type="submit" 
  126: 			value="Rename '.$currentFile.'" />
  127: 			</form>
  128: 			<hr />';
  129:     $displayOut = $displayOut.'<hr />Add a file to your portfolio';
  130:     # file upload form 
  131:     $displayOut = $displayOut.'<form method="post" enctype="multipart/form-data">';
  132:     $displayOut = $displayOut.'<input name="uploaddoc" type="file" />'.
  133: 	'<input type="hidden" name="currentpath" value="'.$currentPath.'" />'.
  134: 	'<input type="submit" name="storeupl" value="Upload" />'.
  135: 	'</form><hr>';
  136:     $displayOut = $displayOut.'<form method="POST">
  137: 		<input name="subdir" type="text" />
  138: 		<input type="submit" value="Create Subdirectory" />
  139: 		</form>
  140: 			';
  141:     return $displayOut;
  142: }
  143: 
  144: sub handler {
  145:     # this handles file management
  146:     my ($r)=@_;
  147:     my @dirList; # will hold directory listing as array
  148:     my $udir; # returned from home server
  149:     my $currentPath; # path assuming /userfiles/portfolio/ as root
  150:     my $currentFile; # directory or file contained in $pathToRoot.$currentPath
  151:     my $action; # delete, rename, makedirectory, removedirectory,
  152:     my $filenewname; # for rename action (guess what we do with it!)
  153:     my $isFile;
  154:     my $isDir;
  155:     # send header
  156:     # FIXME need to start using
  157:     # &Apache::loncommon::content_type()
  158:     $r->content_type('text/html');
  159:     $r->send_http_header;
  160:     $r->print('<html><head><title>'.
  161:               'Portfolio Management'.
  162:               "</title></head>\n");
  163: 
  164:     # FIXME need to start using
  165:     # &Apache::loncommon::bodytag()
  166:     $r->print('
  167: 	<body bgcolor="dogfood">
  168: 	<blockquote>');
  169:     #grab stuff that was sent
  170:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  171:                                             ['selectfile','currentpath',
  172: 					     'currentfile']);
  173:     $r->print ('<br />CP= '.$ENV{'form.currentpath'}.'<br />');
  174:     # currentPath and currentFile need to be set for the rest of things to happen
  175:     # sometimes, currentFile will be passed by a form field, selectedfile
  176:     # if there is no 'form.selectedfile' then the current directory is 
  177:     # considered as selected 
  178:     if ($ENV{'form.currentpath'}) {
  179: 	$currentPath = $ENV{'form.currentpath'};
  180:     } else {
  181: 	$currentPath = '/';
  182:     }
  183:     if ($ENV{'form.selectfile'}) {
  184: 	$r->print('<br />found selectfile'.$ENV{'form.selectfile'} .'<br />');
  185: 	# have to check if the selected file is a subdirectory
  186: 	if ($ENV{'form.selectfile'} =~ /-\(Dir\)/) {
  187: 	    # $currentPath =~ /\-\(Dir\)/;
  188: 	    $currentPath = $`.'/';
  189: 	    $r->print('<br />'.$currentPath.'<br />');
  190: 	}
  191: 	$currentFile = $ENV{'form.selectfile'};
  192:     } else {
  193: 	$currentFile = '';
  194:     }
  195:     # if we're uploading a file, we need to do it early so it will show in the directory list
  196:     if ($ENV{'form.uploaddoc.filename'}) {
  197: 	$r->print($ENV{'form.storeupl'}.'<br />');
  198: 	$r->print(&Apache::lonnet::userfileupload('uploaddoc','','portfolio'.$currentPath).'<br />');	
  199:     }
  200:     # similarly, we need to delete or rename files before getting directory list
  201:     if ($ENV{'form.selectfile'}) {
  202: 	if ($ENV{'form.fileaction'} eq 'delete') {
  203: 	    &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'delete', undef );
  204: 	    $currentFile = '';
  205: 	} elsif($ENV{'form.fileaction'} eq 'rename') {
  206: 	    &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'rename', $ENV{'form.filenewname'} );
  207: 	    # $r->print('We will rename your file');
  208: 	}
  209:     }
  210:     # we always need $dirList, plus this will return information about the current file
  211:     # as well as information about he home server directory structure, specifically
  212:     # the path to the users userfiles directory.	
  213:     @dirList = split /<br\s\/>/, (&Apache::lonnet::portfoliolist($currentPath, $currentFile));
  214:     # portfoliolist returns isdir, isfile and udir as the final array elements
  215:     # we'll pop them off the bottom of the array, and put them where they belong
  216:     
  217:     # $londcall added to help debug
  218:     my $londcall = pop(@dirList);
  219:     $r->print('<br />udir '.$londcall.'<br />');
  220:     $udir = pop(@dirList);
  221:     $r->print('<br />path returned '.$udir.'<br />');
  222:     $isFile = pop(@dirList);
  223: #   $r->print('<br />isfile '.$isFile.'<br />');
  224:     $isDir = pop(@dirList);
  225: #   $r->print('<br />isdir '.$isDir.'<br />');
  226: #   return OK if $r->header_only;
  227:     # Stuff to maintain proper setting for selected file
  228:     if ($ENV{'form.selectfile'}) {
  229: 	if ($ENV{'form.fileaction'} eq 'delete') {
  230: 	    &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'delete', undef );
  231: 	    $ENV{'portfolio.file'} = 'Selected File Deleted';
  232: 	} elsif($ENV{'form.fileaction'} eq 'rename') {
  233: 	    &Apache::lonnet::portfoliomanage($ENV{'form.selectfile'}, 'rename', $ENV{'form.filenewname'} );
  234: #			$r->print('We will rename your file');
  235: 	} else {
  236: 	    
  237: 	    # Remember user's file selection for later
  238: 	    $ENV{'portfolio.file'} = $ENV{'form.selectfile'};
  239: 	    # offer things user can do with selected file
  240: 	}
  241:     } else {
  242: 	unless ($ENV{'portfolio.file'}) {
  243: 	    $ENV{'portfolio.file'} = 'No File Selected';
  244: 	}
  245:     }
  246:     ##############################
  247:     #
  248:     # Display begins here
  249:     #
  250:     ##############################
  251:     $r->print('<hr /> start ');
  252:     $r->print($udir);
  253:     $r->print('<table border="1"><tr><td>');
  254:     $r->print(&displayDirectory($currentPath, $currentFile, $isDir, @dirList));
  255:     $r->print('</td><td>');
  256:     $r->print(&displayActions($currentPath, $currentFile, $isDir, $isFile));
  257:     $r->print('</td></tr></table>');
  258:     $r->print('<br />end display<br /><hr />');
  259:     $r->print('</blockquote></body>');
  260:     return OK;
  261: }
  262: 
  263: 1;
  264: __END__