Changeset 25102


Ignore:
Timestamp:
02/20/12 15:58:01 (9 years ago)
Author:
sjm84
Message:

Fixed a few bugs

File:
1 edited

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'};
Note: See TracChangeset for help on using the changeset viewer.