Changeset 25102

Show
Ignore:
Timestamp:
20.02.2012 15:58:01 (8 years ago)
Author:
sjm84
Message:

Fixed a few bugs

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm

    r25097 r25102  
    724724sub dxml_metadata 
    725725{ 
     726    print STDERR "IN dxml_metadata\n"; 
    726727    my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 
    727728    my $metaname = $parser->{'parameters'}->{'metaname'}; 
     
    765766                $parser->{'parameters'}->{'metamode'} = "done"; 
    766767            } 
    767             else if(defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} == $attrHash->{'_content'}) 
     768            elsif(defined $parser->{'parameters'}->{'prevmetavalue'} && $parser->{'parameters'}->{'prevmetavalue'} == $attrHash->{'_content'}) 
    768769            { 
     770                my $metavalue = $parser->{'parameters'}->{'metavalue'}; 
    769771                $attrHash->{'_content'} = $metavalue; 
    770772                $parser->{'parameters'}->{'metamode'} = "done"; 
     
    780782sub dxml_description 
    781783{ 
     784    print STDERR "IN dxml_description\n"; 
    782785    my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 
    783786    my $metamode = $parser->{'parameters'}->{'metamode'}; 
     
    815818sub dxml_start_section 
    816819{ 
     820    print STDERR "IN DXML_START_SECTION\n"; 
    817821    my ($tagname, $attrHash, $contextArray, $parentDataArray, $parser) = @_; 
    818822 
     
    849853    $parser->{'parameters'}->{'curr_section_num'}   = $new_secnum; 
    850854 
    851     ##print STDERR "*** In Section: $new_secnum\n"; 
     855    print STDERR "*** In Section: $new_secnum\n"; 
    852856} 
    853857 
    854858sub edit_xml_file 
    855859{ 
     860    print STDERR "IN EDIT XML FILE\n"; 
    856861    my $self = shift @_; 
    857862    my ($gsdl_cgi, $filename, $start_rules, $rules, $options) = @_; 
     
    895900sub edit_doc_xml 
    896901{ 
     902    print STDERR "IN EDIT DOC XML\n"; 
    897903    my $self = shift @_; 
    898904    my ($gsdl_cgi, $doc_xml_filename, $metaname, $metavalue, $metapos, $metamode, $opt_secnum, $prevmetavalue) = @_; 
     
    925931sub set_archives_metadata_entry 
    926932{ 
     933    print STDERR "IN SET ARCHIVES ENTRY\n"; 
    927934    my $self = shift @_; 
    928935    my ($gsdl_cgi,$archive_dir, $collect_dir,$collect, $infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode,$prevmetavalue) = @_; 
     
    954961sub set_archives_metadata 
    955962{ 
     963    print STDERR "IN SET ARCHIVES\n"; 
    956964    my $self = shift @_; 
    957965 
     
    981989    my $metaname   = $self->{'metaname'}; 
    982990    my $metavalue  = $self->{'metavalue'}; 
    983     my $prevmetavalue = $self->{'prevmetavalue'} 
     991    my $prevmetavalue = $self->{'prevmetavalue'}; 
    984992     
    985993    my $metapos    = $self->{'metapos'};