--- a/HarvestmetaHandler.pm	Mon Jul 12 17:49:17 2004 +0200
+++ b/HarvestmetaHandler.pm	Tue Jul 13 20:32:49 2004 +0200
@@ -45,14 +45,12 @@
 	push @elements, [$elem, "", $currAttrib];
     }
     # element name is either LocalName or Name
-    my $name = $$el{'LocalName'};
-    $name = $$el{'Name'} unless ($name);
+    my $name = $$el{'LocalName'} or $$el{'Name'};
     #logger('DEBUG', "  name: $name");
     # assemble attributes string
-    $currAttrib ="";
+    $currAttrib = "";
     foreach my $attr (values %{$$el{'Attributes'}}) {
-	my $key = $$attr{'LocalName'};
-	$key = $$attr{'Name'} unless ($key);
+	my $key = $$attr{'LocalName'} or $$attr{'Name'};
 	my $val = $$attr{'Value'};
 	$currAttrib .= "$key=\"$val\" ";
     }
@@ -68,8 +66,7 @@
     # process element end event
     logger('DEBUG', "endelem: $self, $$el{'LocalName'}") if ($debugElem);
     # check element name
-    my $name = $$el{'LocalName'};
-    $name = $$el{'Name'} unless ($name);
+    my $name = $$el{'LocalName'} or $$el{'Name'};
     my $lastag = $currElemPath[$#currElemPath];
     if ($lastag ne $name) {
 	logger('ERROR', "closing tag '$lastag' doesn't match '$name'!");
@@ -94,10 +91,10 @@
 sub characters {
     my ($self, $char) = @_;
     # process character data event
-    logger('DEBUG', "characters: $self, $char") if ($debugElem);
+    logger('DEBUG', "characters: $self, $char") if ($debugElem > 1);
     # add to current content
     $currText .= $$char{'Data'};
-    logger('DEBUG', " Text: $currText") if ($debugCont);
+    logger('DEBUG', " Text: $currText") if ($debugCont > 1);
 }