Changeset 8913

Timestamp:

2005-01-20T10:10:54+13:00 (19 years ago)

Author:

chi

Message:

program layout change

File:

• trunk/gsdl/perllib/plugins/DSpacePlug.pm (modified) (8 diffs)

trunk/gsdl/perllib/plugins/DSpacePlug.pm

@@ -90 +90 @@
 my $primary_doc_lookup = { 'text/html' => '(?i)\.(gif|jpe?g|jpe|jpg|png|css)$' };
 
-my ($self);
+# Important variation to regular plugin structure.  Need to declare
+# $self as global variable to file so XMLParser callback routines
+# can access the content of the object. 
+my ($self); 
+
 sub new {
     my $class = shift (@_);
@@ -119 +123 @@
                         });
     $self->{'parser'} = $parser;
-
     $self->{'extra_blocks'} = {};
 
     return bless $self, $class;
 }
-
 
 sub get_default_process_exp {
@@ -254 +256 @@
     # return 0 if $self->{'block_exp'} ne "" && $filename =~ /$self->{'block_exp'}/;
     
-    #my $block_files = $self->{'img_blocks'}->{$filename};
-
     if ($filename !~ /dublin_core\.xml$/ || !-f $filename) {
     return undef;
@@ -276 +276 @@
     my ($doc_file_mimes, $assoc_file_mimes) = $self->read_content($dir, $only_first_doc, $first_inorder_ext, 
                                   $first_inorder_mime, $mimetype_list);
+
     my $file_re = $self->filemime_list_to_re($doc_file_mimes);
 
@@ -305 +306 @@
     if (defined $pd_lookup) {
         my $filter_re = $pd_lookup;
-
         @$assoc_file_mimes = grep { $_->{'file'} !~ m/$filter_re/ }  @$assoc_file_mimes;
     }
@@ -314 +314 @@
 
     }
-
+    
     $extrametadata->{$file_re} = $self->{'saved_metadata'};
 
@@ -369 +369 @@
     if ($element eq "dublin_core") {
     $self->{'saved_metadata'} = {};
-    }
-    elsif ($element eq "dcvalue") {
+    } elsif ($element eq "dcvalue") {
     my $metaname = $_{'element'};
     my $qualifier = $_{'qualifier'};
     if ($metaname ne "description") {
         $metaname .= "^$qualifier" if ($qualifier ne "none");
-
         $self->{'metaname'} = "dc.\u$metaname";
     }
@@ -387 +385 @@
     $self->{'metaname'} = "";
     }
-
 }