Changeset 25103
- Timestamp:
- 2012-02-20T15:59:08+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r25102 r25103 724 724 sub dxml_metadata 725 725 { 726 print STDERR "IN dxml_metadata\n";727 726 my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 728 727 my $metaname = $parser->{'parameters'}->{'metaname'}; … … 782 781 sub dxml_description 783 782 { 784 print STDERR "IN dxml_description\n";785 783 my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 786 784 my $metamode = $parser->{'parameters'}->{'metamode'}; … … 818 816 sub dxml_start_section 819 817 { 820 print STDERR "IN DXML_START_SECTION\n";821 818 my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 822 819 … … 858 855 sub edit_xml_file 859 856 { 860 print STDERR "IN EDIT XML FILE\n";861 857 my $self = shift @_; 862 858 my ($gsdl_cgi, $filename, $start_rules, $rules, $options) = @_; … … 900 896 sub edit_doc_xml 901 897 { 902 print STDERR "IN EDIT DOC XML\n";903 898 my $self = shift @_; 904 899 my ($gsdl_cgi, $doc_xml_filename, $metaname, $metavalue, $metapos, $metamode, $opt_secnum, $prevmetavalue) = @_; … … 931 926 sub set_archives_metadata_entry 932 927 { 933 print STDERR "IN SET ARCHIVES ENTRY\n";934 928 my $self = shift @_; 935 929 my ($gsdl_cgi,$archive_dir, $collect_dir,$collect, $infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode,$prevmetavalue) = @_; … … 961 955 sub set_archives_metadata 962 956 { 963 print STDERR "IN SET ARCHIVES\n";964 957 my $self = shift @_; 965 958
Note:
See TracChangeset
for help on using the changeset viewer.