Changeset 25103

Timestamp:

2012-02-20T15:59:08+13:00 (12 years ago)

Author:

sjm84

Message:

Removed some debug statements

File:

• main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm (modified) (7 diffs)

main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm

@@ -724 +724 @@
 sub dxml_metadata
 {
-    print STDERR "IN dxml_metadata\n";
     my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_;
     my $metaname = $parser->{'parameters'}->{'metaname'};
@@ -782 +781 @@
 sub dxml_description
 {
-    print STDERR "IN dxml_description\n";
     my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_;
     my $metamode = $parser->{'parameters'}->{'metamode'};
@@ -818 +816 @@
 sub dxml_start_section
 {
-    print STDERR "IN DXML_START_SECTION\n";
     my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_;
 
@@ -858 +855 @@
 sub edit_xml_file
 {
-    print STDERR "IN EDIT XML FILE\n";
     my $self = shift @_;
     my ($gsdl_cgi, $filename, $start_rules, $rules, $options) = @_;
@@ -900 +896 @@
 sub edit_doc_xml
 {
-    print STDERR "IN EDIT DOC XML\n";
     my $self = shift @_;
     my ($gsdl_cgi, $doc_xml_filename, $metaname, $metavalue, $metapos, $metamode, $opt_secnum, $prevmetavalue) = @_;
@@ -931 +926 @@
 sub set_archives_metadata_entry
 {
-    print STDERR "IN SET ARCHIVES ENTRY\n";
     my $self = shift @_;
     my ($gsdl_cgi,$archive_dir, $collect_dir,$collect, $infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode,$prevmetavalue) = @_;
@@ -961 +955 @@
 sub set_archives_metadata
 {
-    print STDERR "IN SET ARCHIVES\n";
     my $self = shift @_;