--- trunk/lib/WebPAC/Parser.pm	2006/09/25 12:51:47	701
+++ trunk/lib/WebPAC/Parser.pm	2006/09/25 13:08:17	702
@@ -229,13 +229,12 @@
 			$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 );