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

version 1.820, 2007/01/03 01:50:10 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 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.820  
changed lines
  Added in v.1.821

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