r998@llin: dpavlin | 2006-09-25 15:06:05 +0200

[webpac2] / lib / WebPAC / Parser.pm

diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm
index d8fc8ea..96ea07b 100644 (file)
--- a/lib/WebPAC/Parser.pm
+++ b/lib/WebPAC/Parser.pm
@@ -229,13 +229,12 @@ sub parse_lookups {
                        $self->{_lookup_create}->{ _q($e[3]) }->{ _q($e[5]) }->{ _q($key) } .= $create;
 
 
-                       if (defined( $self->{depends}->{ $database }->{ $input }->{ _q($e[3]) }->{ _q($e[5]) } )) {
-                               my $dep_key = $self->{depends}->{ $database }->{ $input }->{ _q($e[3]) }->{ _q($e[5]) };
-                               $log->warn("dependency of $database/$input on $e[3]/$e[5] allready recorded as $dep_key, now changed to $key") if ($dep_key ne $key);
+                       if (defined( $self->{depends}->{ $database }->{ $input }->{ _q($e[3]) }->{ _q($e[5]) }->{ $key } )) {
+                               $log->warn("dependency of $database/$input on $e[3]/$e[5] with $key allready recorded");
                        }
 
                        # save this dependency
-                       $self->{depends}->{ $database }->{ $input }->{ _q($e[3]) }->{ _q($e[5]) } .= $key;
+                       $self->{depends}->{ $database }->{ $input }->{ _q($e[3]) }->{ _q($e[5]) }->{$key}++;
 
                        if ($#e < 10) {
                                $e[8]->insert_after( $e[8]->clone );