Changeset 1846
- Timestamp:
- 2001-01-22T11:46:42+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r1845 r1846 586 586 } 587 587 588 if($self->{'date_extract'}) { 589 my $thissection = $doc_obj->get_top_section(); 590 while (defined $thissection) { 591 592 my $text = $doc_obj->get_text($thissection); 593 &DateExtract::get_date_metadata($text, $doc_obj, 594 $thissection, 595 $self->{'no_biblio'}, 596 $self->{'max_year'}, 597 $self->{'max_century'}); 598 $thissection = $doc_obj->get_next_section ($thissection); 599 } 600 } 601 602 if ($self->{'extract_language'}) { 588 if($self->{'date_extract'}) { 603 589 my $thissection = $doc_obj->get_top_section(); 604 590 while (defined $thissection) { 591 605 592 my $text = $doc_obj->get_text($thissection); 606 $self->extract_language (\$text, $doc_obj, $thissection) if $text =~ /./; 593 &DateExtract::get_date_metadata($text, $doc_obj, 594 $thissection, 595 $self->{'no_biblio'}, 596 $self->{'max_year'}, 597 $self->{'max_century'}); 607 598 $thissection = $doc_obj->get_next_section ($thissection); 608 599 } 609 600 } 610 611 601 } 612 602
Note:
See TracChangeset
for help on using the changeset viewer.