[BACK]Return to lonmetadata.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / metadata_database / LONCAPA

Diff for /loncom/metadata_database/LONCAPA/lonmetadata.pm between versions 1.17 and 1.19

version 1.17, 2007/01/12 21:30:58 version 1.19, 2007/01/19 14:23:46
Line 184  $Portfolio_metadata_table_description = Line 184  $Portfolio_metadata_table_description =
      { name => 'domain',    type=>'TEXT'},       { name => 'domain',    type=>'TEXT'},
      { name => 'groupname',     type=>'TEXT'},       { name => 'groupname',     type=>'TEXT'},
      { name => 'courserestricted', type=>'TEXT'},       { name => 'courserestricted', type=>'TEXT'},
      { name => 'addedfieldnames',  type=>'TEXT'},  
      { name => 'addedfieldvalues', type=>'TEXT'},  
       #--------------------------------------------------        #--------------------------------------------------
      { name => 'dependencies',   type=>'TEXT'},       { name => 'dependencies',   type=>'TEXT'},
      { name => 'modifyinguser',  type=>'TEXT'},       { name => 'modifyinguser',  type=>'TEXT'},
Line 994  sub portfolio_metadata { Line 992  sub portfolio_metadata {
             }              }
         } # End of ($token->[0] eq 'S')          } # End of ($token->[0] eq 'S')
     }      }
     if (keys(%addedfields) > 0) {  
         foreach my $key (sort keys(%addedfields)) {  
             $metacache{'addedfieldnames'} .= $key.',';  
             $metacache{'addedfieldvalues'} .= $addedfields{$key}.'&&&';  
         }  
         $metacache{'addedfieldnames'} =~ s/,$//;  
         $metacache{'addedfieldvalues'} =~ s/\&\&\&$//;  
         if ($metacache{'keys'}) {  
             $metacache{'keys'}.=',addedfieldnames';  
         } else {  
             $metacache{'keys'}='addedfieldnames';  
         }  
         $metacache{'keys'}.=',addedfieldvalues';  
     }  
     return (\%metacache,$metacache{'courserestricted'},\%addedfields);      return (\%metacache,$metacache{'courserestricted'},\%addedfields);
 }  }
   
Line 1127  sub process_portfolio_metadata { Line 1111  sub process_portfolio_metadata {
 ######################################################################  ######################################################################
 ######################################################################  ######################################################################
   
 ## Utilities originally in searchcat.pl.  Moved to be more widely available.  
   
 sub getfile {  sub getfile {
     my $file = shift();      my $file = shift();
     if (! -e $file ) {       if (! -e $file ) { 
Removed from v.1.17  
changed lines
  Added in v.1.19

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