X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/3d7898cf2bab46c72face3011460d093d8778b32..06e79bf0f4ad9d5499f4435d2158d8a064034a8f:/SL/DB/Helper/Manager.pm diff --git a/SL/DB/Helper/Manager.pm b/SL/DB/Helper/Manager.pm index 8ebc362e2..d456e76b0 100644 --- a/SL/DB/Helper/Manager.pm +++ b/SL/DB/Helper/Manager.pm @@ -18,6 +18,17 @@ sub find_by { return $class->get_all(query => [ @_ ], limit => 1)->[0]; } +sub find_by_or_create { + my $class = shift; + + my $found; + eval { + $found = $class->find_by(@_); + 1; + } or die $@; + return defined $found ? $found : $class->object_class->new; +} + sub get_first { shift->get_all( @_,