[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.512 and 1.514

version 1.512, 2004/06/18 20:35:18 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 '<strong>'.$listing.'</strong><br />';      $uhome=$ENV{'user.home'};
       my $listing = &reply('portls:'.$uname.':'.$udom, $uhome);
       return $listing;
   }
   
   sub portfoliomanage {
   
   #FIXME please user the existing remove userfile function instead and
   #add a userfilerename functions.
   #FIXME uhome should never be an argument to any lonnet functions
   
       # 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;
 }  }
   
   
Removed from v.1.512  
changed lines
  Added in v.1.514

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