#!/usr/bin/env perl
use strict;
use warnings;

# Max Values
my $MaxbookplateleafId = 0;
my $MaxboxId = 0;
my $MaxcameraId = 0;
my $MaxcollectionId = 0;

sub GetMaxDbItem
{
   $col1   = $_[0];
   $table  = $_[1];
   $id     = $_[2];

   $query = "SELECT max($col1) FROM $table\;";
   $queryhandle = $dbh->prepare($query);
   $queryhandle->execute();
   $queryhandle->bind_col(1, \${$id});
   $queryhandle->fetch();
   if($debug eq 2) { print "$table MaxId: ${$id}\n"; }
   $queryhandle->finish();
}

sub PreloadMaxValues
{
   # BookplateLeaf
   GetMaxDbItem ("BookplateLeafId", "BookplateLeaf", \$MaxbookplateleafId);

   # Box
   GetMaxDbItem ("BoxId", "Box", \$MaxboxId);

   # Camera
   GetMaxDbItem ("CameraId", "Camera", \$MaxcameraId);
}