[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.513 and 1.514

version 1.513, 2004/06/21 22:01:39 version 1.514, 2004/06/28 15:59:50
Line 3578  sub revokecustomrole { Line 3578  sub revokecustomrole {
   
 # ------------------------------------------------------------ Portfolio Director Lister  # ------------------------------------------------------------ Portfolio Director Lister
 sub portfoliolist {  sub portfoliolist {
  # returns listing of contents of user's /userfiles/portfolio/ directory  #FIXME us the ls: command instead please
  #   #FIXME uhome should never be an argument to any lonnet functions
  my ($udom, $uname, $uhome);      # returns listing of contents of user's /userfiles/portfolio/ directory
  $uname=$ENV{'user.name'};      # 
         $udom=$ENV{'user.domain'};      my ($udom,$uname,$uhome);
         $uhome=$ENV{'user.home'};      $uname=$ENV{'user.name'};
  my $listing = reply('portls:'.$uname.':'.$udom, $uhome);      $udom=$ENV{'user.domain'};
  return $listing;      $uhome=$ENV{'user.home'};
       my $listing = &reply('portls:'.$uname.':'.$udom, $uhome);
       return $listing;
 }  }
   
 sub portfoliomanage {  sub portfoliomanage {
  # handles deleting and renaming files in user's userfiles/portfolio/ directory  
  #   #FIXME please user the existing remove userfile function instead and
  my ($filename, $fileaction, $filenewname) = @_;  #add a userfilerename functions.
  my ($udom, $uname, $uhome);  #FIXME uhome should never be an argument to any lonnet functions
  $uname=$ENV{'user.name'};  
         $udom=$ENV{'user.domain'};      # handles deleting and renaming files in user's userfiles/portfolio/ directory
         $uhome=$ENV{'user.home'};      # 
  my $listing = reply('portfoliomanage:'.$uname.':'.$udom.':'.$filename.':'.$fileaction.':'.$filenewname, $uhome);      my ($filename, $fileaction, $filenewname) = @_;
  return $listing;      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;
 }  }
   
   
Removed from v.1.513  
changed lines
  Added in v.1.514

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>