SL/DB/Manager/ReconciliationLink.pm

   1 # This file has been auto-generated only because it didn't exist.
   2 # Feel free to modify it at will; it will not be overwritten automatically.
   3
   4 package SL::DB::Manager::ReconciliationLink;
   5
   6 use strict;
   7
   8 use SL::DBUtils;
   9
  10 use SL::DB::Helper::Manager;
  11 use base qw(SL::DB::Helper::Manager);
  12
  13 sub object_class { 'SL::DB::ReconciliationLink' }
  14
  15 __PACKAGE__->make_manager_methods;
  16
  17 sub get_new_rec_group {
  18   my $class = shift;
  19
  20   my $query = qq|SELECT max(rec_group) FROM reconciliation_links|;
  21
  22   my ($max) = selectfirst_array_query($::form, $class->object_class->init_db->dbh, $query);
  23
  24   return ($max // 0) + 1;
  25 }
  26
  27 1;