loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.511, 2004/06/17 18:31:25
+version 1.513, 2004/06/21 22:01:39
  Line 3575  sub revokecustomrole {
             $deleteflag);
  }
+ # ------------------------------------------------------------ Portfolio Director Lister
+ sub portfoliolist {
+ 	# returns listing of contents of user's /userfiles/portfolio/ directory
+ 	#
+ 	my ($udom, $uname, $uhome);
+ 	$uname=$ENV{'user.name'};
+         $udom=$ENV{'user.domain'};
+         $uhome=$ENV{'user.home'};
+ 	my $listing = reply('portls:'.$uname.':'.$udom, $uhome);
+ 	return $listing;
+ }
+ sub portfoliomanage {
+ 	# handles deleting and renaming files in user's userfiles/portfolio/ directory
+ 	#
+ 	my ($filename, $fileaction, $filenewname) = @_;
+ 	my ($udom, $uname, $uhome);
+ 	$uname=$ENV{'user.name'};
+         $udom=$ENV{'user.domain'};
+         $uhome=$ENV{'user.home'};
+ 	my $listing = reply('portfoliomanage:'.$uname.':'.$udom.':'.$filename.':'.$fileaction.':'.$filenewname, $uhome);
+ 	return $listing;
+ }
  # ------------------------------------------------------------ Directory lister
  sub dirlist {