Changeset 25102
- Timestamp:
- 2012-02-20T15:58:01+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm
r25097 r25102 724 724 sub dxml_metadata 725 725 { 726 print STDERR "IN dxml_metadata\n"; 726 727 my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 727 728 my $metaname = $parser->{'parameters'}->{'metaname'}; … … 765 766 $parser->{'parameters'}->{'metamode'} = "done"; 766 767 } 767 els eif(defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} == $attrHash->{'_content'})768 elsif(defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} == $attrHash->{'_content'}) 768 769 { 770 my $metavalue = $parser->{'parameters'}->{'metavalue'}; 769 771 $attrHash->{'_content'} = $metavalue; 770 772 $parser->{'parameters'}->{'metamode'} = "done"; … … 780 782 sub dxml_description 781 783 { 784 print STDERR "IN dxml_description\n"; 782 785 my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 783 786 my $metamode = $parser->{'parameters'}->{'metamode'}; … … 815 818 sub dxml_start_section 816 819 { 820 print STDERR "IN DXML_START_SECTION\n"; 817 821 my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 818 822 … … 849 853 $parser->{'parameters'}->{'curr_section_num'} = $new_secnum; 850 854 851 ##print STDERR "*** In Section: $new_secnum\n";855 print STDERR "*** In Section: $new_secnum\n"; 852 856 } 853 857 854 858 sub edit_xml_file 855 859 { 860 print STDERR "IN EDIT XML FILE\n"; 856 861 my $self = shift @_; 857 862 my ($gsdl_cgi, $filename, $start_rules, $rules, $options) = @_; … … 895 900 sub edit_doc_xml 896 901 { 902 print STDERR "IN EDIT DOC XML\n"; 897 903 my $self = shift @_; 898 904 my ($gsdl_cgi, $doc_xml_filename, $metaname, $metavalue, $metapos, $metamode, $opt_secnum, $prevmetavalue) = @_; … … 925 931 sub set_archives_metadata_entry 926 932 { 933 print STDERR "IN SET ARCHIVES ENTRY\n"; 927 934 my $self = shift @_; 928 935 my ($gsdl_cgi,$archive_dir, $collect_dir,$collect, $infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode,$prevmetavalue) = @_; … … 954 961 sub set_archives_metadata 955 962 { 963 print STDERR "IN SET ARCHIVES\n"; 956 964 my $self = shift @_; 957 965 … … 981 989 my $metaname = $self->{'metaname'}; 982 990 my $metavalue = $self->{'metavalue'}; 983 my $prevmetavalue = $self->{'prevmetavalue'} 991 my $prevmetavalue = $self->{'prevmetavalue'}; 984 992 985 993 my $metapos = $self->{'metapos'};
Note:
See TracChangeset
for help on using the changeset viewer.