loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.512, 2004/06/18 20:35:18
+version 1.513, 2004/06/21 22:01:39
  Line 3585  sub portfoliolist {
          $udom=$ENV{'user.domain'};
          $uhome=$ENV{'user.home'};
  	my $listing = reply('portls:'.$uname.':'.$udom, $uhome);
- 	return '<strong>'.$listing.'</strong><br />';
+ 	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;
  }