Changeset 900 for trunk/gsdl/perllib/plugins/HTMLPlug.pm

Timestamp:

2000-02-03T10:06:40+13:00 (24 years ago)

Author:

sjboddie

Message:

tweaked the way associated files are handled at build time - some
individual plugins may still need catching up.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -71 +71 @@
     print STDERR "   -w3mir                 Set if w3mir was used to generate input file structure.\n";
     print STDERR "                          w3mir \n";
+    print STDERR "   -rename_assoc_files    Renames files associated with documents (e.g. images). Also\n";
+    print STDERR "                          creates much shallower directory structure (useful when creating\n";
+    print STDERR "                          collections to go on cd-rom).\n\n";
 }
 
@@ -84 +87 @@
              q^no_metadata^, \$self->{'no_metadata'},
              q^metadata_fields/.*/Title^, \$self->{'metadata_fields'},
-             q^w3mir^, \$self->{'w3mir'})) {
+             q^w3mir^, \$self->{'w3mir'},
+             q^rename_assoc_files^, \$self->{'rename_assoc_files'})) {
     &print_usage();
     die "\n";
@@ -243 +247 @@
     $filename = &util::filename_cat ($base_dir, $filename);
     my ($ext) = $filename =~ /(\.[^\.]*)$/;
-    if (defined $self->{'aux_files'}->{$href}) {
-    $newname = $self->{'aux_files'}->{$href}->{'dir_num'} . "/" .
-        $self->{'aux_files'}->{$href}->{'file_num'} . $ext;
+    if ($self->{'rename_assoc_files'}) {
+    if (defined $self->{'aux_files'}->{$href}) {
+        $newname = $self->{'aux_files'}->{$href}->{'dir_num'} . "/" .
+        $self->{'aux_files'}->{$href}->{'file_num'} . $ext;
+    } else {
+        $newname = $self->{'dir_num'} . "/" . $self->{'file_num'} . $ext;
+        $self->inc_filecount ();
+    }
+    $doc_obj->associate_file($filename, $newname, undef, $section);
+    return "_httpcollimg_/$newname";
+
     } else {
-    $newname = $self->{'dir_num'} . "/" . $self->{'file_num'} . $ext;
-    $self->inc_filecount ();
-    }
-    $doc_obj->associate_file($filename, $newname, undef, $section);
-    return "_httpcollimg_/$newname";
+    ($newname) = $filename =~ /([^\/\\]*)$/;
+    $doc_obj->associate_file($filename, $newname, undef, $section);
+    return "_httpcollimg_/_thisOID_/$newname";
+    }
 }