Changeset 139 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-02-03T14:43:31+13:00 (25 years ago)

Author:

sjboddie

Message:

Got building stuff to handle subcollections and language subcollections

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (6 diffs)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -83 +83 @@
 sub process {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
     my $method = $self->{'mode'};
 
-    $self->$method($doc_obj);
+    $self->$method(@_);
 }
 
 sub infodb {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
+    my ($doc_obj, $filename) = @_;
     my $handle = $self->{'output_handle'};
 
@@ -142 +141 @@
     $mapped_section =~ s/\.+$//;
 
-    my ($parent, $classification, $creator, $OID);
+    my ($parent, $classification, $creator);
     
     $classification = $self->get_classifications($doc_obj, $section, $mapped_section)
@@ -157 +156 @@
     } else {
         $creator = $doc_obj->get_metadata_element($section, "Creator");
-        $OID = $doc_obj->get_OID();
-        # this is a hack at getting OID to look like the directory path - I'm sure there's 
-        # a better way to do it but it's late... Stefan
-        my @OIDchars = split //, $OID;
-        $OID = "";
-        my $count = 0;
-        foreach $i (@OIDchars) {
-        if ($count == 7) {
-            $OID .= "$i/";
-            $count = 0;
-        } else {
-            $OID .= $i;
-            $count ++;
-        }
-        }
-        $OID =~ s/\/$//;
-        $OID .= ".dir";
+
+        # need filename so we know what directory to look in for associated files
+        $filename =~ s/^\/?(.*?\.dir).*$/$1/ if (defined $filename);
     }
 
@@ -187 +172 @@
         } else {
         $self->write_to_gdbm($handle, $mapped_section, $title, $creator, $source, $date, $jobnumber, undef,
-                     $self->{'num_sections'}, $parent, $classification, $OID);
+                     $self->{'num_sections'}, $parent, $classification, $filename);
         }
     } else {
@@ -215 +200 @@
         $self->write_to_gdbm ($handle, $mapped_section, $title, $creator, $source,
                       $date, $jobnumber, $contains, $self->{'num_sections'},
-                      $parent, $classification, $OID);
+                      $parent, $classification, $filename);
 
         if ($doc_obj->get_text_length($section) > 0) {
@@ -222 +207 @@
             $self->write_to_gdbm ($handle, $intromapsection, "<i>(introductory text)</i>", $creator,
                       $source, $date, $jobnumber, undef, $self->{'num_sections'},
-                      $mapped_section, $classification, $OID);
+                      $mapped_section, $classification, $filename);
         }
         }