Changeset 1846

Timestamp:

2001-01-22T11:46:42+13:00 (23 years ago)

Author:

sjboddie

Message:

Removed a call to a function that I removed in my previous changes - oops

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -586 +586 @@
     }
 
-     if($self->{'date_extract'}) {
-     my $thissection = $doc_obj->get_top_section();
-     while (defined $thissection) {
-         
-         my $text = $doc_obj->get_text($thissection);
-         &DateExtract::get_date_metadata($text, $doc_obj, 
-                         $thissection, 
-                         $self->{'no_biblio'}, 
-                         $self->{'max_year'}, 
-                         $self->{'max_century'});
-         $thissection = $doc_obj->get_next_section ($thissection);
-         }
-     }
-
-    if ($self->{'extract_language'}) {
+    if($self->{'date_extract'}) {
     my $thissection = $doc_obj->get_top_section();
     while (defined $thissection) {
+        
         my $text = $doc_obj->get_text($thissection);
-        $self->extract_language (\$text, $doc_obj, $thissection) if $text =~ /./;
+        &DateExtract::get_date_metadata($text, $doc_obj, 
+                        $thissection, 
+                        $self->{'no_biblio'}, 
+                        $self->{'max_year'}, 
+                        $self->{'max_century'});
         $thissection = $doc_obj->get_next_section ($thissection);
     }
     }
-
 }