[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.822 and 1.823

version 1.822, 2007/01/11 21:09:10 version 1.823, 2007/01/12 22:14:28
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);      my $url = "/uploaded/$docudom/$docuname/$fname";
             if ($fname =~ /^groups\/(\w+)\/portfolio(\/.+)$/) {              my ($file,$group) = (&parse_portfolio_url($url))[3,4];
                 $group = $1;  
                 $file = $2;  
             } elsif ($fname =~ /^portfolio(\/.+)$/) {  
                 $file = $1;  
             }  
             my $sqlresult =               my $sqlresult = 
                 &update_portfolio_table($docuname,$docudom,$group.$file,                  &update_portfolio_table($docuname,$docudom,$file,
                                         'portfolio_metadata',$group,                                          'portfolio_metadata',$group,
                                         'delete');                                          'delete');
         }          }
Line 1734  sub renameuserfile { Line 1729  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);      my $url = "/uploaded/$docudom/$docuname/$old";
             if ($old =~ /^groups\/(\w+)\/portfolio(\/.+)$/) {              my ($file,$group) = (&parse_portfolio_url($url))[3,4];
                 $group = $1;  
                 $file = $2;  
             } elsif ($old =~ /^portfolio(\/.+)$/) {  
                 $file = $1;  
             }  
             my $sqlresult =               my $sqlresult = 
                 &update_portfolio_table($docuname,$docudom,$group.$file,                  &update_portfolio_table($docuname,$docudom,$file,
                                         'portfolio_metadata',$group,                                          'portfolio_metadata',$group,
                                         'delete');                                          'delete');
         }          }
Line 3559  sub parse_portfolio_url { Line 3549  sub parse_portfolio_url {
   
     my ($type,$udom,$unum,$group,$file_name);      my ($type,$udom,$unum,$group,$file_name);
           
     if ($url =~  m-^/*uploaded/($match_domain)/($match_username)/portfolio(/.+)$-) {      if ($url =~  m-^/*(?:uploaded|editupload)/($match_domain)/($match_username)/portfolio(/.+)$-) {
  $type = 1;   $type = 1;
         $udom = $1;          $udom = $1;
         $unum = $2;          $unum = $2;
         $file_name = $3;          $file_name = $3;
     } elsif ($url =~ m-^/*uploaded/($match_domain)/($match_courseid)/groups/([^/]+)/portfolio/(.+)$-) {      } elsif ($url =~ m-^/*(?:uploaded|editupload)/($match_domain)/($match_courseid)/groups/([^/]+)/portfolio/(.+)$-) {
  $type = 2;   $type = 2;
         $udom = $1;          $udom = $1;
         $unum = $2;          $unum = $2;
Removed from v.1.822  
changed lines
  Added in v.1.823

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