Changeset 10254 for trunk/gsdl/perllib/plugins/FavouritesPlug.pm

Timestamp:

2005-07-19T16:27:51+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:

• trunk/gsdl/perllib/plugins/FavouritesPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/FavouritesPlug.pm

@@ -32 +32 @@
 use BasPlug;
 use parsargv;
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
@@ -78 +80 @@
     my $outhandle = $self->{'outhandle'};
 
+    my $section = $doc_obj->get_top_section();
     print STDERR "<Processing n='$file' p='FavouritesPlug'>\n" if ($gli);
     print $outhandle "FavouritesPlug: processing $file\n" if $self->{'verbosity'} > 1;
@@ -87 +90 @@
     my $title = $file;
     $title =~ s/.url$//i;
-    $doc_obj->add_utf8_metadata($cursection, "Title", $title);
+    $doc_obj->add_utf8_metadata($section, "Title", $title);
 
     # get the URL from the file
     my ($url) = ($$textref =~ m/^URL=(http.+)/mg);
-    $doc_obj->add_metadata($cursection, "URL", $url);
+    $doc_obj->add_metadata($section, "URL", $url);
 
     # Add srclink metadata for an automatic link to the webpage
@@ -103 +106 @@
     $$textref =~ s/\]/<\/strong><p>/g;
     $$textref =~ s/^Modified=(.+)$/<strong>Modified<\/strong>$1<p>/g;
-    $doc_obj->add_utf8_text($cursection, "$$textref");
+    $doc_obj->add_utf8_text($section, "$$textref");
 
-    $doc_obj->add_metadata($cursection, "FileFormat", "Favourite");
+    $doc_obj->add_metadata($section, "FileFormat", "Favourite");
     return 1;
 }