--- trunk/lib/WebPAC/Output/CouchDB.pm 2009/05/28 09:58:18 1197 +++ trunk/lib/WebPAC/Output/CouchDB.pm 2009/05/28 10:15:20 1198 @@ -60,7 +60,7 @@ =cut -sub add { +sub add_row { my $self = shift; my ( $id, $ds ) = @_;