Changeset 36373 for main/trunk/greenstone2/perllib/extrametautil.pm

Timestamp:

2022-08-16T19:45:27+12:00 (21 months ago)

Author:

kjdon

Message:

now I have removed commented out code from last commit

File:

• main/trunk/greenstone2/perllib/extrametautil.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/extrametautil.pm

@@ -100 +100 @@
 }
 
-#----------------------------------------------
-#### unused below here
-
-# Unused. Added for symmetry
-sub addmetadata_UNUSED {
-    my ($extrametadata, $filename_re_for_metadata, $value) = @_;    
-    my $metanames = $extrametadata->{$filename_re_for_metadata};
-    push(@$metanames, $value);
-}
-
-# Unused. Added for symmetry
-sub addmetafile_UNUSED {
-    my ($extrametafile, $filename_re_for_metadata, $file) = @_; 
-    my $metafiles = $extrametafile->{$filename_re_for_metadata};
-    push(@$metafiles, $file);
-}
-
-sub addmetadata_for_named_metaname_OLD { # e.g. push(@{$extrametadata->{$filename_re_for_metadata}->{$field_name}}, $value);
-    my ($extrametadata, $filename_re_for_metadata, $field_name, $value) = @_;
-    my $metaname_vals = $extrametadata->{$filename_re_for_metadata}->{$field_name};
-    push(@$metaname_vals, $value); 
-}
-
-# Unused. Added for symmetry
-sub addmetafile_for_named_file_UNUSED { 
-    my ($extrametafile, $filename_re_for_metadata, $file, $filename_full_path) = @_;
-    my $metafile_vals = $extrametafile->{$filename_re_for_metadata}->{$file};
-    push(@$metafile_vals, $filename_full_path); 
-}
-
-
-#**************** In future, may be useful to expand this utility file 
-#**************** by having remove methods to mirror the add methods
-
-
-#******************* GET methods
-
-
-sub getmetadata_for_named_metaname_OLD {
-    my ($extrametadata, $filename_re_for_metadata, $field_name) = @_;
-    return $extrametadata->{$filename_re_for_metadata}->{$field_name}; # e.g. $extrametadata->{$filename_re_for_metadata}->{$field_name}
-}
-
-# Unused. Added for symmetry
-sub getmetafile_for_named_file_UNUSED {
-    my ($extrametafile, $filename_re_for_metadata, $file) = @_;
-    return $extrametafile->{$filename_re_for_metadata}->{$file};
-}
-
-
-
-#******************* SET methods
-
-# set an individual name-value pair in the metadata hash for a particular file
-sub setmetadata_for_named_metaname_OLD {
-    my ($extrametadata, $filename_re_for_metadata, $field_name, $value) = @_;
-    $extrametadata->{$filename_re_for_metadata}->{$field_name} = $value;
-}
-sub setmetafile_UNUSED { # e.g. $extrametafile{$filename_re_for_metadata} = $file;
-    my ($extrametafile, $filename_re_for_metadata, $file, $filename_full_path) = @_;
-    $extrametafile->{$filename_re_for_metadata} = $file; 
-}
-
-sub setmetafile_for_named_file_OLD {
-    my ($extrametafile, $filename_re_for_metadata, $file, $filename_full_path) = @_;
-    $extrametafile->{$filename_re_for_metadata}->{$file} = $filename_full_path;
-}
-
-# Unused. Added for symmetry
-sub setmetadata_for_named_pos_UNUSED {
-    my ($extrametadata, $filename_re_for_metadata, $metaname, $index, $value) = @_;
-    $extrametadata->{$filename_re_for_metadata}->{$metaname}->[$index] =  $value;
-}