Changeset 16012

Timestamp:

2008-06-16T11:15:04+12:00 (16 years ago)

Author:

kjdon

Message:

moved the -first option to AutoExtractMetadata

File:

• gsdl/trunk/perllib/plugins/ReadTextFile.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/ReadTextFile.pm

@@ -70 +70 @@
     'deft' => "en",
     'reqd' => "no" },
-       { 'name' => "first",
-    'desc' => "{ReadTextFile.first}",
-    'type' => "string",
-    'reqd' => "no" },
      { 'name' => "separate_cjk",
     'desc' => "{ReadTextFile.separate_cjk}",
@@ -196 +192 @@
     return (1,$doc_obj);
 }
-
-sub auto_extract_metadata {
-    my $self = shift(@_);
-    my ($doc_obj) = @_;
-
-    if ($self->{'first'}) {
-    my $thissection = $doc_obj->get_top_section();
-    while (defined $thissection) {
-        my $text = $doc_obj->get_text($thissection);
-        $self->extract_first_NNNN_characters (\$text, $doc_obj, $thissection) if $text =~ /./;
-        $thissection = $doc_obj->get_next_section ($thissection);
-    }
-    }
-    $self->SUPER::auto_extract_metadata($doc_obj);
-}  
 
 # uses the multiread package to read in the entire file pointed to
@@ -454 +435 @@
 
 
-# FIRSTNNN: extract the first NNN characters as metadata
-sub extract_first_NNNN_characters {
-    my $self = shift (@_);
-    my ($textref, $doc_obj, $thissection) = @_;
-    
-    foreach my $size (split /,/, $self->{'first'}) {
-    my $tmptext =  $$textref;
-    $tmptext =~ s/^\s+//;
-    $tmptext =~ s/\s+$//;
-    $tmptext =~ s/\s+/ /gs;
-    $tmptext = substr ($tmptext, 0, $size);
-    $tmptext =~ s/\s\S*$/…/;
-    $doc_obj->add_utf8_metadata ($thissection, "First$size", $tmptext);
-    }
-}
-
 # Overridden by exploding plugins (eg. ISISPlug)
 sub clean_up_after_exploding