- Timestamp:
- 2017-04-20T20:31:54+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/modmetadataaction.pm
r31602 r31617 32 32 # and how variables declared with 'our' are used there. 33 33 34 # http://stackoverflow.com/questions/3998619/what-is-the-role-of-the-begin-block-in-perl35 # http://www.perlmonks.org/?node_id=881761 - splitting module into multiple files36 # http://www.perlmonks.org/?node_id=524456 - merging hashes37 38 34 package metadataaction; 39 35 … … 46 42 47 43 use JSON; 48 49 50 BEGIN {51 print STDERR "In ModMeta\n";52 }53 44 54 45 … … 134 125 'optional-args' => [ ] } 135 126 }; 136 137 print STDERR "\nMODMETA_TABLE: " .join(",", keys $metadataaction::modmeta_action_table) ."\n";138 127 139 128 … … 2670 2659 2671 2660 # not returning 1; here since this file is conditionally included by metadataction.pm 2661 # and not otherwise meant to be used on its own 2662
Note:
See TracChangeset
for help on using the changeset viewer.