Changeset 1554 for trunk/niupepa/perllib/plugins/NPPlug.pm

Timestamp:

2000-09-20T14:54:05+12:00 (24 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/niupepa/perllib/plugins/NPPlug.pm (modified) (4 diffs)

trunk/niupepa/perllib/plugins/NPPlug.pm

@@ -198 +198 @@
     my $doc_obj = new doc ($file, "indexed_doc");
     my $topsection = $doc_obj->get_top_section();
-    my $cursection = $topsection;
     $self->associate_cover_images ($doc_obj, $dir, $issuekey);
     $doc_obj->set_metadata_element ($topsection, 'Title', $self->get_title_string($file));
@@ -216 +215 @@
         $line =~ s/^\s+//;
         $line =~ s/\s+$//;
-        $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
         my ($pagenum) = $line =~ /(\d+)$/;
-        $doc_obj->set_metadata_element($cursection, 'Title', $pagenum);
-        $self->process_text ($dir, $line, $doc_obj, $cursection);
-        $self->process_images ($dir, $line, $doc_obj, $cursection);
+        $doc_obj->create_named_section($pagenum);
+        $doc_obj->set_metadata_element($pagenum, 'Title', $pagenum);
+        $self->process_text ($dir, $line, $doc_obj, $pagenum);
+        $self->process_images ($dir, $line, $doc_obj, $pagenum);
     }
     }
@@ -289 +288 @@
     my $cursection = $doc_obj->get_top_section();
     $self->associate_cover_images ($doc_obj, $dir, $issuekey);
-    $doc_obj->set_metadata_element ($cursection, 'Title', "_abstract_ " . 
-                    $self->get_title_string($file));
+    $doc_obj->set_metadata_element ($cursection, 'Title', $self->get_title_string($file));
     $self->set_main_metadata ($doc_obj, $dir);
     map { $doc_obj->set_metadata_element ($cursection, $_, $meta->{$_}); } keys %$meta;
@@ -416 +414 @@
     $title .= "_vol_ $vol" if defined $vol && $vol =~ /\w/;
     if (defined $num && $num =~ /\w/) {
-    $title .= ": " if defined $vol && $vol =~ /\w/;
+    $title .= ", " if defined $vol && $vol =~ /\w/;
     $title .= "_num_ $num";
     }