[BACK]Return to searchcat.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / metadata_database

Diff for /loncom/metadata_database/searchcat.pl between versions 1.70 and 1.70.2.3

version 1.70, 2006/12/11 00:32:24 version 1.70.2.3, 2007/01/03 04:01:32
Line 241  foreach my $dom (@domains) { Line 241  foreach my $dom (@domains) {
             my ($group,$url,$fullpath);              my ($group,$url,$fullpath);
             if ($is_course) {              if ($is_course) {
                 ($group, my ($path)) = ($file =~ /^(\w+)(\/.+)$/);                  ($group, my ($path)) = ($file =~ /^(\w+)(\/.+)$/);
                 $fullpath = $pathstart.'/groups/'.$group.'/portfolio/'.$path;                  $fullpath = $pathstart.'/groups/'.$group.'/portfolio'.$path;
                 $url = $urlstart.'/groups/'.$group.'/portfolio'.$path;                  $url = $urlstart.'/groups/'.$group.'/portfolio'.$path;
             } else {              } else {
                 $fullpath = $pathstart.'/portfolio'.$file;                  $fullpath = $pathstart.'/portfolio'.$file;
                 $url .= $urlstart.'/portfolio'.$file;                  $url = $urlstart.'/portfolio'.$file;
             }              }
             if (ref($access{$file}) eq 'HASH') {              if (ref($access{$file}) eq 'HASH') {
                 &process_portfolio_access_data($url,$access{$file});                  &process_portfolio_access_data($url,$access{$file});
Line 330  sub process_portfolio_access_data { Line 330  sub process_portfolio_access_data {
         $acc_data->{keynum} = $key;          $acc_data->{keynum} = $key;
         my ($num,$scope,$end,$start) =          my ($num,$scope,$end,$start) =
                         ($key =~ /^([^:]+):([a-z]+)_(\d*)_?(\d*)$/);                          ($key =~ /^([^:]+):([a-z]+)_(\d*)_?(\d*)$/);
           next if (($scope ne 'public') && ($scope ne 'guest'));
         $acc_data->{scope} = $scope;          $acc_data->{scope} = $scope;
         if ($end != 0) {          if ($end != 0) {
             $acc_data->{end} = &sqltime($end);              $acc_data->{end} = &sqltime($end);
Line 612  sub portfolio_metadata { Line 613  sub portfolio_metadata {
         $metacache{'owner'} = $uname.':'.$dom;          $metacache{'owner'} = $uname.':'.$dom;
         $metacache{'domain'} = $dom;          $metacache{'domain'} = $dom;
         $metacache{'mime'} = $mime;          $metacache{'mime'} = $mime;
         if (defined($group)) {          if ($group ne '') {
             $metacache{'keys'} .= ',courserestricted';              $metacache{'keys'} .= ',courserestricted';
             $metacache{'courserestricted'} = 'course.'.$dom.'_'.$uname;              $metacache{'courserestricted'} = 'course.'.$dom.'_'.$uname;
         }           } 
Removed from v.1.70  
changed lines
  Added in v.1.70.2.3

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