Changeset 899

Timestamp:

2000-02-02T14:32:33+13:00 (24 years ago)

Author:

sjboddie

Message:

small change to doc data structure to allow for some hacking
in WebPlug

File:

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

trunk/gsdl/perllib/basedoc.pm

@@ -716 +716 @@
 # methods for dealing with associated files
 
+# a file is associated with a document, NOT a section.
+# if section is defined it is noted in the data structure
+# only so that files associated from a particular section
+# may be removed later (using delete_section_assoc_files)
 sub associate_file {
     my $self = shift (@_);
-    my ($real_filename, $assoc_filename, $mime_type) = @_;
+    my ($real_filename, $assoc_filename, $mime_type, $section) = @_;
     $mime_type = &html::guess_mime_type ($real_filename) unless defined $mime_type;
 
@@ -725 +729 @@
 
     push (@{$self->{'associated_files'}}, 
-      [$real_filename, $assoc_filename, $mime_type]);
+      [$real_filename, $assoc_filename, $mime_type, $section]);
 }
 
@@ -734 +738 @@
 
     return $self->{'associated_files'};
+}
+
+sub delete_section_assoc_files {
+    my $self = shift (@_);
+    my ($section) = @_;
+
+    my $i=0;
+    while ($i < scalar (@{$self->{'associated_files'}})) {
+    if (defined $self->{'associated_files'}->[$i]->[3] &&
+        $self->{'associated_files'}->[$i]->[3] eq $section) {
+        splice (@{$self->{'associated_files'}}, $i, 1);
+    } else {
+        $i++;
+    }
+    }
 }