Changeset 2614 for trunk/niupepa

Timestamp:

2001-06-29T16:30:26+12:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

Location:

trunk/niupepa/perllib

Files:

• niupepabuildproc.pm (added)
• plugins/AbstractPlug.pm (modified) (1 diff)
• plugins/NPPlug.pm (modified) (8 diffs)

trunk/niupepa/perllib/plugins/AbstractPlug.pm

@@ -23 +23 @@
 #
 ###########################################################################
+
+
+#***************
+
+# don't bother using this anymore - simply split up abstracts manually with
+# the help of the format_abstract.pl script
+
+#***************
+
 
 # AbstractPlug processes the abstracts created for the Niupepa collection

trunk/niupepa/perllib/plugins/NPPlug.pm

@@ -199 +199 @@
     my $topsection = $doc_obj->get_top_section();
     $self->associate_cover_images ($doc_obj, $dir, $issuekey);
-    $doc_obj->set_metadata_element ($topsection, 'Title', $self->get_title_string($file));
-    $doc_obj->set_metadata_element ($topsection, 'abstract', $abstract) if defined $abstract;
+    $doc_obj->set_utf8_metadata_element ($topsection, 'Title', $self->get_title_string($file));
+    $doc_obj->set_utf8_metadata_element ($topsection, 'abstract', $abstract) if defined $abstract;
     $self->set_main_metadata ($doc_obj, $dir);
 
@@ -209 +209 @@
     chomp $line;
     if ($line =~ /^<([^>]*)>(.*?)\s*$/) {
-        $doc_obj->set_metadata_element ($topsection, $1, $2);
+        $doc_obj->set_utf8_metadata_element ($topsection, $1, $2);
         $meta->{$1} = $2;
     } else {
@@ -215 +215 @@
         $line =~ s/^\s+//;
         $line =~ s/\s+$//;
-        my ($pagenum) = $line =~ /(\d+)$/;
-        $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);
+        my ($pagenum) = $line =~ /([^_]*)$/;
+#       $doc_obj->create_named_section($pagenum); <-- can't do this anymore as pagenum may 
+#                                                     be something like "cover"
+        my $cursection = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
+
+#       $doc_obj->set_utf8_metadata_element($pagenum, 'Title', $pagenum);
+        $doc_obj->set_utf8_metadata_element($cursection, 'Title', $pagenum);
+#       $self->process_text ($dir, $line, $doc_obj, $pagenum);
+        $self->process_text ($dir, $line, $doc_obj, $cursection);
+#       $self->process_images ($dir, $line, $doc_obj, $pagenum);
+        $self->process_images ($dir, $line, $doc_obj, $cursection);
     }
     }
@@ -236 +242 @@
     if (-e "$filename.gif") {
     $self->{'num_image_pages'} ++;
-    $doc_obj->set_metadata_element ($cursection, "hasimg", "1");
-    $doc_obj->set_metadata_element ($cursection, "Source", $page);
+    $doc_obj->set_utf8_metadata_element ($cursection, "hasimg", "1");
+    $doc_obj->set_utf8_metadata_element ($cursection, "Source", $page);
     $doc_obj->associate_file("$filename.gif", "$page.gif", "image/gif");    
     } elsif ($self->{'create_log'}) {
-    $doc_obj->set_metadata_element ($cursection, "hasimg", "0");
+    $doc_obj->set_utf8_metadata_element ($cursection, "hasimg", "0");
     print LOGFILE "no fullsize image file for $page\n";
     }
 
     if (-e "${filename}_p.gif") {
-    $doc_obj->set_metadata_element ($cursection, "hasprevimg", "1");
-    $doc_obj->set_metadata_element ($cursection, "Source", $page);
+    $doc_obj->set_utf8_metadata_element ($cursection, "hasprevimg", "1");
+    $doc_obj->set_utf8_metadata_element ($cursection, "Source", $page);
     $doc_obj->associate_file("${filename}_p.gif", "${page}_p.gif", "image/gif");    
     } elsif ($self->{'create_log'}) {
-    $doc_obj->set_metadata_element ($cursection, "hasprevimg", "0");
+    $doc_obj->set_utf8_metadata_element ($cursection, "hasprevimg", "0");
     print LOGFILE "no preview image file for $page\n";
     }
@@ -268 +274 @@
     if (defined $text) {
     $self->{'num_text_pages'} ++;
-    $doc_obj->add_text ($cursection, $text);
+    $doc_obj->add_utf8_text ($cursection, $text);
     } elsif ($self->{'create_log'}) {
     print LOGFILE "no txt or htm file for $page\n";
@@ -284 +290 @@
     my $cursection = $doc_obj->get_top_section();
     $self->associate_cover_images ($doc_obj, $dir, $issuekey);
-    $doc_obj->set_metadata_element ($cursection, 'Title', $self->get_title_string($file));
+    $doc_obj->set_utf8_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;
-    $doc_obj->set_metadata_element ($cursection, "doctype", "Description");
-    $doc_obj->add_text ($cursection, $text);
+    map { $doc_obj->set_utf8_metadata_element ($cursection, $_, $meta->{$_}); } keys %$meta;
+    $doc_obj->set_utf8_metadata_element ($cursection, "doctype", "Description");
+    $doc_obj->add_utf8_text ($cursection, $text);
     $file =~ s/\.abstract//i;
     $doc_obj->set_OID ($file . "abstract");
@@ -313 +319 @@
     my $cursection = $doc_obj->get_top_section();
     $self->associate_cover_images ($doc_obj, $dir, $issuekey);
-    $doc_obj->set_metadata_element ($cursection, 'Title', "_commentary_");
+    $doc_obj->set_utf8_metadata_element ($cursection, 'Title', "_commentary_");
     $self->set_main_metadata ($doc_obj, $dir);
-    $doc_obj->set_metadata_element ($cursection, "doctype", "Commentary");
-    $doc_obj->add_text ($cursection, $text);
+    $doc_obj->set_utf8_metadata_element ($cursection, "doctype", "Commentary");
+    $doc_obj->add_utf8_text ($cursection, $text);
     $doc_obj->set_OID ($issuekey . "commentary");
     $processor->process ($doc_obj);
@@ -352 +358 @@
         # note we're using set_metadata_element (not add_metadata_element)
         # this will override any previously set metadata of the same name
-        $doc_obj->set_metadata_element ($cursection, $1, $2);
+        $doc_obj->set_utf8_metadata_element ($cursection, $1, $2);
     } elsif ($self->{'verbosity'}) {
         print STDERR "NPPlug: Badly formatted line in $metafile\n";