--- loncom/interface/portfolio.pm	2004/06/28 16:07:47	1.8
+++ loncom/interface/portfolio.pm	2004/07/27 05:29:00	1.17
@@ -18,12 +18,9 @@
 #
 # /home/httpd/html/adm/gpl.txt
 #
-
-
 # http://www.lon-capa.org/
 #
 
-
 package Apache::portfolio;
 use strict;
 use Apache::Constants qw(:common :http);
@@ -33,117 +30,142 @@ use Apache::lontexconvert;
 use Apache::lonfeedback;
 use Apache::lonlocal;
 
-# 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 {
+# 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 = '<a href="/adm/portfolio?selectfile='.$fileName.'&currentpath='.$currentPath.'">'.$fileName.'</a>';
-#    my $button = '
-#		<form method="POST" action="/adm/portfolio">
-#		<input type="hidden" name="selectfile" value="'.$fileName.'">
-#		<input type="submit" value="'.$fileName.'" name="storeupl">
-#		</form>
-#		';
     return $anchor;
 }
 
 # returns html with <br /> separated contents of the directory
 # returns a <strong>currentFile</strong> (bolds the selected file/dir)
 sub displayDirectory {
-    my ($currentPath, $currentFile, $isDir, @dirList,) = @_;
-    my $displayOut='';	
+    my ($currentPath, $currentFile, @dirList,) = @_;
+    my $displayOut='';  
     my $fileName;
     my $upPath;
-    if ($currentPath ne '/') {
-	$displayOut = 'Listing of '.$currentPath.'<br /><hr />'.
-	    # 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.'<a href="/adm/portfolio?selectfile=updir&currentpath='.$upPath.'">..</a><br />';
+    if ($currentPath ne '/'){
+        $displayOut = 'Listing of '.$currentPath.'<br /><hr />'.
+        # 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.'<a href="/adm/portfolio?selectfile='.$upPath.'&currentpath='.$upPath.'">..</a><br />';
     } else {
-	$displayOut = $displayOut.'at root '.$currentPath.'<br />';
+        # $displayOut = $displayOut.'at root '.$currentPath.'<br />';
     }
-    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.'<strong>'.(&makeAnchor($fileName, $currentPath.$fileName).'</strong><br />');
-		} else {
-		    $displayOut = $displayOut.(&makeAnchor($fileName, $currentPath.$fileName).'<br />');
-		}
-	    } else {
-		if ($fileName eq $currentFile) {
-		    #checks to bold the selected file
-		    $displayOut = $displayOut.'<strong>'.(&makeAnchor($fileName, $currentPath).'</strong><br />');
-		} else {
-		    $displayOut = $displayOut.(&makeAnchor($fileName, $currentPath).'<br />');
-		}
-	    }
-	}
+    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,$path,$debug)=split(/\&/,$line,18); 
+    	$path =~ m:/:;
+    	my $dirDepth = @-;
+        if (($fileName ne '.') && ($fileName ne '..')){
+          	for (my $i = 0; $i <= $dirDepth; $i += 1){
+    	        $displayOut.='<blockquote>';
+    	    }
+            if ($testdir =~ m:^1:){
+                # handle directories different from files
+                if ($fileName eq $currentFile){ #checks to bold the selected file
+                    $displayOut.= $debug.'<strong>'.(makeAnchor($fileName.'/', $path.$fileName.'/').'</strong><br />'."\n");
+                }else{
+                    $displayOut.= $debug.(makeAnchor($fileName.'/', $path.$fileName.'/').'<br />'."\n");
+                }
+            }else{
+                if ($fileName eq $currentFile){ #checks to bold the selected file
+                    $displayOut.=$debug.'<strong>'.(makeAnchor($fileName, $currentPath).'</strong><br />'."\n");
+                }else{
+                    $displayOut.=$debug.(makeAnchor($fileName, $currentPath).'<br />'."\n");
+                }
+            }
+        	for (my $i = 0; $i <= $dirDepth; $i += 1){
+        	    $displayOut.='</blockquote>';
+    	    }
+            
+        }
+    	
     }
-    #$displayOut = $displayOut.
     return $displayOut;
 }
-
-# returns html to offer user appropriate actions depending on selected
-# file/directory
 sub displayActions {
+    # returns html to offer user appropriate actions depending on selected file/directory
     my $displayOut;
-    my ($currentPath, $currentFile, $isDir, $isFile) = @_;
+    my ($currentPath, $currentFile, $isEmpty) = @_;
 #   $displayOut = 'here are actions for '.$currentFile;
-    if ($isDir){
-	$displayOut = 'Directory';
-    }
-    if ($isFile){
-	$displayOut = 'File';
-    }
+    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.'<form method="POST">
+            <input type="hidden" name="selectfile" 
+            value="'.$currentFile.'" />
+            <input type="hidden" name="fileaction" value="delete" /> 
+            <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
+            <center>
+            <input type="submit" 
+            value="Delete '.$currentFile.'" />
+            </center>
+            </form>';
+        } 
+        if ($currentPath ne '/') {
+            $displayOut = $displayOut.'<hr />
+            <form method="POST">
+            <input type="hidden" name="selectfile" 
+            value="'.$currentFile.'" />
+            <input type="hidden" name="fileaction" value="rename" /> 
+            <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
+            <input type="input" name="filenewname" value="Type new name here" /> 
+            <input type="submit" 
+            value="Rename '.$currentFile.'" />
+            </form>';
+        }
+    }else{  #action options offered for files
+        $displayOut = $displayOut.'<form method="POST">';
+        $displayOut = $displayOut.'<input type="hidden" name="selectfile"';
+        $displayOut = $displayOut.'value="'.$currentFile;
+        $displayOut = $displayOut.'" /><input type="hidden" name="fileaction" value="delete" /> 
+        <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
+        <center>
+        <input type="submit"
+        value="Delete '.$currentFile.'" />
+        </center>
+        </form>';
     
-    $displayOut = $displayOut.'<form method="POST">
-			<input type="hidden" name="selectfile" 
-			value="'.$currentFile.'">
-			<input type="hidden" name="fileaction" value="delete"> 
-			<center>
-			<input type="submit" 
-			
-			value="Delete '.$currentFile.'">
-			</center>
-			</form>
-			<hr />
-			<form method="POST">
-			<input type="hidden" name="selectfile" 
-			value="'.$currentFile.'">
-			<input type="hidden" name="fileaction" value="rename"> 
-			<input type="input" name="filenewname" value="Type new name here"> 
-			<input type="submit" 
-			value="Rename '.$currentFile.'">
-			</form>
-			<hr>';
-    $displayOut = $displayOut.'<hr>Add a file to your portfolio';
+        $displayOut = $displayOut.'<hr />
+        <form method="POST">
+        <input type="hidden" name="selectfile" 
+        value="'.$currentFile.'" />
+        <input type="hidden" name="fileaction" value="rename" /> 
+        <input type="hidden" name="currentpath" value="'.$currentPath.'" /> 
+        <input type="input" name="filenewname" value="Type new name here" /> 
+        <input type="submit" 
+        value="Rename '.$currentFile.'" />
+        </form>
+        <hr />';
+    }
+    $displayOut = $displayOut.'<hr />Add a file to '.$currentPath;
     # file upload form 
     $displayOut = $displayOut.'<form method="post" enctype="multipart/form-data">';
-    $displayOut = $displayOut.'<input name="uploaddoc" type="file">'.
-	'<input type="hidden" name="currentpath" value="'.$currentPath.'">'.
-	'<input type="submit" name="storeupl" value="Upload">'.
-	'</form><hr>';
+    $displayOut = $displayOut.'<input name="uploaddoc" type="file" />'.
+        '<input type="hidden" name="currentpath" value="'.$currentPath.'" />'.
+        '<input type="submit" name="storeupl" value="Upload" />'.
+        '</form><hr />';
     $displayOut = $displayOut.'<form method="POST">
-		<input name="subdir" type="text" >
-		<input type="submit" value="Create Subdirectory">
-		</form>
-			';
+        <input name="subdir" type="text" />
+        <input type="submit" value="Create Subdirectory" />
+        </form>
+            ';
     return $displayOut;
 }
-
 sub handler {
     # this handles file management
-    my ($r)=@_;
+    my $r = shift;
     my @dirList; # will hold directory listing as array
     my $udir; # returned from home server
     my $currentPath; # path assuming /userfiles/portfolio/ as root
@@ -151,108 +173,146 @@ sub handler {
     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');
+    my $isEmpty;
+    &Apache::loncommon::no_cache($r);
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
+    # Give the LON-CAPA page header
     $r->print('<html><head><title>'.
-              'Portfolio Management'.
-              "</title></head>\n");
-
-    $r->print('
-	<body bgcolor="dogfood">
-	<blockquote>');
-    #grab stuff that was sent
+              &mt('Portfolio Manager').
+              "</title></head>\n".
+              &Apache::loncommon::bodytag('Portfolio Manager'));
+    $r->rflush();
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-                                            ['selectfile','currentpath',
-					     'currentfile']);
-    $r->print ('<br />CP= '.$ENV{'form.currentpath'}.'<br />');
+                                            ['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'};
+        $currentPath = $ENV{'form.currentpath'};
     } else {
-	$currentPath = '/';
+        $currentPath = '/';
     }
     if ($ENV{'form.selectfile'}) {
-	$r->print('<br />found selectfile'.$ENV{'form.selectfile'} .'<br />');
-	# have to check if the selected file is a subdirectory
-	if ($ENV{'form.selectfile'} =~ /-\(Dir\)/) {
-	    # $currentPath =~ /\-\(Dir\)/;
-	    $currentPath = $`.'/';
-	    $r->print('<br />'.$currentPath.'<br />');
-	}
-	$currentFile = $ENV{'form.selectfile'};
+        # have to check if the selected file is a subdirectory
+        if ($ENV{'form.selectfile'} =~ /-\(Dir\)/){
+            # $currentPath =~ /\-\(Dir\)/;
+            $currentPath = $`.'/';
+            $r->print('<br />'.$currentPath.'<br />');
+        }
+        $currentFile = $ENV{'form.selectfile'};
     } else {
-	$currentFile = '';
+        $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'}.'<br />');
-	$r->print(&Apache::lonnet::userfileupload('uploaddoc','','portfolio'.$currentPath).'<br />');	
+        $r->print($ENV{'form.storeupl'}.'<br />');
+        $r->print(&Apache::lonnet::userfileupload('uploaddoc','','portfolio'.$currentPath).'<br />');  
     }
     # 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');
-	}
+    if ($ENV{'form.selectfile'}){
+        if ($ENV{'form.fileaction'} eq 'delete') {
+            $r->print('<br />trying to delete '.$currentPath.$ENV{'form.selectfile'}.'<br />');
+            $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 he home server directory structure, specifically
-    # the path to the users userfiles directory.	
-    @dirList = split /<br\s\/>/, (&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
+    # the path to the users userfiles directory.    
+    # 
+    my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
+						     $ENV{'user.name'}).
+						       '/userfiles/portfolio';
+    my $done = 0;
+    my $subdir = '';
+    my @workinglist; # intermediate array, holds directory listing lines (dirlist), and path information
+    my $readDirectory = 1; # flag for directory
+    my $loopCounter = 0; # needed only for development to prevent run away program (or maybe more?)
+    while (!$done){
+        # Needed while developing. Later, too?
+        $loopCounter += 1;
+        if ($loopCounter > 50) {
+            $r->print('<br />stop runaway');
+            return OK;
+        }
+        # ---
+        if ($readDirectory){ # is true the first time through, then true if dirlist line is a subdir
+            # $r->print('<br />reading '.$portfolio_root.$subdir);
+            my @list = &Apache::lonnet::dirlist($currentPath,  $ENV{'user.domain'}, $ENV{'user.name'}, $portfolio_root.$subdir);
+            $r->print('value in @list = '.@list);
+            for (my $i = 0; $i <= @list; $i++ ){
+                my $line = pop @list;
+                $line = $line.'&'.$subdir.'&'.$loopCounter; # append the subdirectory information and loopcounter for debug
+                my ($fileName,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef,$subpath)=split(/\&/,$line,17); 
+                if (($fileName ne '.') && ($fileName ne '..')){ # we throw away the current and parent directories
+                    $r->print('<br />'.$line); #for debugging
+                    unshift @workinglist, $line; # add the line to the working list array
+                    
+                }else{
+                    $r->print('<br /> parent or current '.$line); #for debugging
+                }
+            }
+        }
+        $r->print('<br />'.@workinglist.' lines in workinglist');
+        my $line = shift @workinglist; #take one off the working list
+        $r->print('<br />'.@workinglist.' lines in workinglist');
+        if ($line eq '') { # if the working list is empty
+            $done = 1;
+        }else{
+            my ($fileName,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef,$subpath,$debug)=split(/\&/,$line,18); 
+            $r->print('<br />'.$fileName.' is '.$testdir);
+            push @dirList, $line; # and put it in the display list
+            if ($testdir =~ m:^1:) { # true if this is a directory
+                # $r->print('<br />added subdir '.$fileName);
+                $subdir = $subpath.'/'.$fileName; 
+                $readDirectory = 1;
+            }else{
+                $readDirectory = 0;
+            }
+        }
+    }
+    #	if item is directory {  get the next level down
+    #		my @list = &Apache::lonnet::dirlist($currentPath,  $ENV{'user.domain'}, $ENV{'user.name'}, $portfolio_root.$);
     
-    # $londcall added to help debug
-    my $londcall = pop(@dirList);
-    $r->print('<br />udir '.$londcall.'<br />');
-    $udir = pop(@dirList);
-    $r->print('<br />path returned '.$udir.'<br />');
-    $isFile = pop(@dirList);
-#   $r->print('<br />isfile '.$isFile.'<br />');
-    $isDir = pop(@dirList);
-#   $r->print('<br />isdir '.$isDir.'<br />');
-#   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
-	}
+    if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired
+        $isEmpty = 1;
     } else {
-	unless ($ENV{'portfolio.file'}) {
-	    $ENV{'portfolio.file'} = 'No File Selected';
-	}
+        $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('<hr /> start ');
-    $r->print($udir);
     $r->print('<table border=1><tr><td>');
-    $r->print(&displayDirectory($currentPath, $currentFile, $isDir, @dirList));
+    $r->print(displayDirectory($currentPath, $currentFile, @dirList));
     $r->print('</td>><td>');
-    $r->print(&displayActions($currentPath, $currentFile, $isDir, $isFile));
+    $r->print(displayActions($currentPath, $currentFile, $isEmpty));
     $r->print('</td>></tr></table>');
-    $r->print('<br />end display<br /><hr />');
-    $r->print('</blockquote></body>');
+    $r->print('</blockquote>');
+    $r->print("</body>\n</html>\n");
+    $r->rflush();
     return OK;
 }