Changeset 2662 for trunk/gsdl/perllib/plugins/EMAILPlug.pm

Timestamp:

2001-07-20T16:48:23+12:00 (23 years ago)

Author:

jrm21

Message:

oops, that's a bit stupid (of me) - changed:

if (defined($fromnameneta)) {

to:

if (defined($fromnamemeta)) {

Maybe we need more letters in the English alphabet?

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -174 +174 @@
     $doc_obj->add_utf8_metadata ($cursection, "FromAddr", $fromaddrmeta);
 
-    if (defined($fromnameneta)) {
+    if (defined($fromnamemeta)) {
     $fromnamemeta =~ s/\"//g;
     $fromnamemeta =~ s/(.*) /$1/;  # Remove trailing space