[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.5 and 1.6

version 1.5, 2004/04/12 21:11:45 version 1.6, 2004/04/14 18:29:31
Line 372  sub lookup_metadata { Line 372  sub lookup_metadata {
   
 =item delete_metadata()  =item delete_metadata()
   
   Not implemented yet
   
 =cut  =cut
   
Line 383  sub delete_metadata {} Line 383  sub delete_metadata {}
 ######################################################################  ######################################################################
 ######################################################################  ######################################################################
   
   =pod
   
   =item metdata_col_to_hash
   
   Input: Array of metadata columns
   
   Return: Hash with the metadata columns as keys and the array elements
   passed in as values
   
   =cut
   
   ######################################################################
   ######################################################################
   sub metadata_col_to_hash {
       my @cols=@_;
       my %hash=();
       for (my $i=0; $i<=$#Metadata_Table_Description;$i++) {
           $hash{$Metadata_Table_Description[$i]->{'name'}}=$cols[$i];
       }
       return %hash;
   }
   
 ######################################################################  ######################################################################
 ######################################################################  ######################################################################
Line 560  sub process_dynamic_metadata { Line 581  sub process_dynamic_metadata {
     return %data;      return %data;
 }  }
   
   
 ######################################################################  ######################################################################
 ######################################################################  ######################################################################
 ##  ##
Line 580  sub escape { Line 602  sub escape {
 }  }
   
   
   
   
 1;  1;
   
 __END__;  __END__;
Removed from v.1.5  
changed lines
  Added in v.1.6

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