fixing return value for "merge"
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 12 Dec 2005 17:14:50 +0000 (17:14 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 12 Dec 2005 17:14:50 +0000 (17:14 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2348 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm

index d19a096..6844878 100644 (file)
@@ -189,7 +189,8 @@ sub merge {
        @objs = $self->search_where($search) unless (ref $self);
 
        if (@objs == 1) {
-               return $objs[0]->update($arg);
+               $objs[0]->update($arg);
+               return $objs[0];
        } elsif (@objs == 0) {
                return $self->create({%$search,%$arg});
        } else {