[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.818 and 1.821

version 1.818, 2007/01/02 12:53:58 version 1.821, 2007/01/03 02:00:38
Line 1701  sub removeuserfile { Line 1701  sub removeuserfile {
         if (($fname !~ /\.meta$/) && (&is_portfolio_file($fname))) {          if (($fname !~ /\.meta$/) && (&is_portfolio_file($fname))) {
             my $metafile = $fname.'.meta';              my $metafile = $fname.'.meta';
             my $metaresult = &removeuserfile($docuname,$docudom,$metafile);               my $metaresult = &removeuserfile($docuname,$docudom,$metafile); 
               my ($group,$file);
               if ($fname =~ /^groups\/(\w+)\/portfolio(\/.+)$/) {
                   $group = $1;
                   $file = $2;
               } elsif ($fname =~ /^portfolio(\/.+)$/) {
                   $file = $1;
               }
               my $sqlresult = 
                   &update_portfolio_table($docuname,$docudom,$group.$file,
                                           'portfolio_metadata',$group,
                                           'delete');
         }          }
     }      }
     return $result;      return $result;
Line 1723  sub renameuserfile { Line 1734  sub renameuserfile {
             my $newmeta = $new.'.meta';              my $newmeta = $new.'.meta';
             my $metaresult =               my $metaresult = 
                 &renameuserfile($docuname,$docudom,$oldmeta,$newmeta);                  &renameuserfile($docuname,$docudom,$oldmeta,$newmeta);
               my ($group,$file);
               if ($old =~ /^groups\/(\w+)\/portfolio(\/.+)$/) {
                   $group = $1;
                   $file = $2;
               } elsif ($old =~ /^portfolio(\/.+)$/) {
                   $file = $1;
               }
               my $sqlresult = 
                   &update_portfolio_table($docuname,$docudom,$group.$file,
                                           'portfolio_metadata',$group,
                                           'delete');
         }          }
     }      }
     return $result;      return $result;
Line 3544  sub is_portfolio_url { Line 3566  sub is_portfolio_url {
   
 sub is_portfolio_file {  sub is_portfolio_file {
     my ($file) = @_;      my ($file) = @_;
     if (($file =~ /^portfolio/) || ($file =~ /^groups\/\w\/portfolio/)) {      if (($file =~ /^portfolio/) || ($file =~ /^groups\/\w+\/portfolio/)) {
         return 1;          return 1;
     }      }
     return;      return;
Line 3556  sub is_portfolio_file { Line 3578  sub is_portfolio_file {
 sub customaccess {  sub customaccess {
     my ($priv,$uri)=@_;      my ($priv,$uri)=@_;
     my ($urole,$urealm)=split(/\./,$env{'request.role'},2);      my ($urole,$urealm)=split(/\./,$env{'request.role'},2);
     my ($udom,$ucrs,$usec)=split(/\//,$urealm);      my (undef,$udom,$ucrs,$usec)=split(/\//,$urealm);
     $udom = &LONCAPA::clean_domain($udom);      $udom = &LONCAPA::clean_domain($udom);
     $ucrs = &LONCAPA::clean_username($ucrs);      $ucrs = &LONCAPA::clean_username($ucrs);
     my $access=0;      my $access=0;
Line 4099  sub log_query { Line 4121  sub log_query {
 # -------------------------- Update MySQL table for portfolio file  # -------------------------- Update MySQL table for portfolio file
   
 sub update_portfolio_table {  sub update_portfolio_table {
     my ($uname,$udom,$file_name,$query,$group) = @_;      my ($uname,$udom,$file_name,$query,$group,$action) = @_;
     my $homeserver = &homeserver($uname,$udom);      my $homeserver = &homeserver($uname,$udom);
     my $queryid=      my $queryid=
         &reply("querysend:".$query.':'.&escape($uname.':'.$udom).':'.          &reply("querysend:".$query.':'.&escape($uname.':'.$udom.':'.$group).
               &escape($file_name).':'.&escape($group),$homeserver);                 ':'.&escape($file_name).':'.$action,$homeserver);
     my $reply = &get_query_reply($queryid);      my $reply = &get_query_reply($queryid);
     return $reply;      return $reply;
 }  }
Removed from v.1.818  
changed lines
  Added in v.1.821

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