[LON-CAPA-cvs] cvs: modules /dirkin portfolio.pm

[albertel]

albertel		Tue Jun  8 14:04:33 2004 EDT

  Modified files:              
    /modules/dirkin	portfolio.pm 
  Log:
  - updating comments and giving some direction
  
  
Index: modules/dirkin/portfolio.pm
diff -u modules/dirkin/portfolio.pm:1.2 modules/dirkin/portfolio.pm:1.3
--- modules/dirkin/portfolio.pm:1.2	Tue Jun  8 13:57:24 2004
+++ modules/dirkin/portfolio.pm	Tue Jun  8 14:04:33 2004
@@ -15,11 +15,11 @@
 	my @userID = split(//,$user);
 	#$r->print(@userID[3]);
 ##set user directory
+#  Please use &Apache::loncommon::propath 
 	my $dir = "/home/httpd/lonUsers/banghart/".@userID[0]."/".@userID[1]."/".@userID[2]."/".$user."/userfiles";
 ##glob user directory
 	my @dir_files = <$dir/* $dir/.*>;
 	my $counter;
-##comment added 6/8/04
 ##cut the directory listing .. & .
 	my $end_val = scalar(@dir_files) - 2;
 ##print heading for list