+ $number ||= '';
+ my $sequence = SL::PrefixedNumber->new(number => $number);
+
+ do {
+ $number = $sequence->get_next;
+ } while ($numbers_in_use{$number});
+
+ if ($self->save) {
+ if ($self->business_id && $business_number) {
+ do_query($form, $self->dbh, qq|UPDATE business SET customernumberinit = ? WHERE id = ?|, $number, $self->business_id);
+ } else {
+ do_query($form, $self->dbh, qq|UPDATE defaults SET $filters{numberfield} = ?|, $number);
+ }
+ }
+
+ 1;
+ }) or do { die SL::DB->client->error };