Changeset 3168 for trunk/protemix/perllib

Timestamp:

2002-06-23T22:58:30+12:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/protemix/perllib/plugins/ProtemixPlug.pm (modified) (2 diffs)

trunk/protemix/perllib/plugins/ProtemixPlug.pm

@@ -75 +75 @@
     }
 
-    # read in directory and process individual files
     my $dir = File::Basename::dirname($filename);
 
+    # associate article level pdf file
+    my ($pdffile) = $dir =~ /([^\/\\]+)$/;
+    $pdffile = &util::filename_cat($dir, $pdffile);
+    $pdffile .= "-all.pdf";
+    die "$pdffile does not exist" unless -e $pdffile;
+    $doc_obj->associate_file($pdffile, "article.pdf", undef, $topsection);
+    $doc_obj->add_utf8_metadata ($cursection, "pdf",  "article.pdf"); 
+
+    # read in directory and process individual files
     opendir(DIR, $dir) || die;
     my @files = readdir DIR;
@@ -103 +111 @@
         $self->process_section (\$text, '', $thisfile, $doc_obj, $cursection);
 
-        # associate PDF file with doc object
+        # associate PDF page level pdf file
         my $pdffile = $thisfile;
         $pdffile =~ s/\.html?$/\.pdf/;
         die "no PDF file for $thisfile" unless -e $pdffile;
-        $doc_obj->associate_file($pdffile, "doc$count.pdf", undef, $cursection);
-        my $doclink = "<a href=\"_httpcollection_/index/assoc/[parent(Top):archivedir]/doc$count.pdf\">";
-#       $doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink); 
+        $doc_obj->associate_file($pdffile, "page$count.pdf", undef, $cursection);
+        $doc_obj->add_utf8_metadata ($cursection, "pdf",  "page$count.pdf"); 
         $doc_obj->add_utf8_metadata ($cursection, "Title", $count); 
 
         # add any section level metadata we have for this page (set from within the meta.xml file)
-#       if (defined ($self->{'section_metadata'}->{$filesuf})) {
-#       foreach my $key (keys %{$self->{'section_metadata'}->{$filesuf}}) {
-#           $doc_obj->add_utf8_metadata ($cursection, $key, $self->{'section_metadata'}->{$filesuf}->{$key});
-#       }
-#       }
+        if (defined ($self->{'section_metadata'}->{$filesuf})) {
+        foreach my $key (keys %{$self->{'section_metadata'}->{$filesuf}}) {
+            $doc_obj->add_utf8_metadata ($cursection, $key, $self->{'section_metadata'}->{$filesuf}->{$key});
+        }
+        }
 
         $count ++;