r9064@llin: dpavlin | 2005-11-23 01:15:24 +0100

[webpac2] / lib / WebPAC / Output / Estraier.pm

diff --git a/lib/WebPAC/Output/Estraier.pm b/lib/WebPAC/Output/Estraier.pm
index 5581abc..871237f 100644 (file)
--- a/lib/WebPAC/Output/Estraier.pm
+++ b/lib/WebPAC/Output/Estraier.pm
@@ -146,7 +146,7 @@ sub add {
 
        # filter all tags which have type defined
        my @tags = grep {
-               defined( $args->{'ds'}->{$_}->{$type} )
+               ref($args->{'ds'}->{$_}) eq 'HASH' && defined( $args->{'ds'}->{$_}->{$type} )
        } keys %{ $args->{'ds'} };
 
        $log->debug("tags = ", join(",", @tags));