Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use strict;
...
   # Camera
   GetMaxDbItem ("CameraId", "Camera", \$MaxcameraId);
}
  2. or download this
    sub AddId
{
...
      $queryhandle->finish();
   }
}
  3. or download this
    sub CreateTableEntries()
{
...
   AddId("bookplateleaf");
   AddId("box");
}
  4. or download this
    CREATE TABLE bookplateleaf (
  bookplateleafId INTEGER  NOT NULL  ,
...
  boxname VARCHAR      ,
PRIMARY KEY(BoxId));
insert into box values(0, "Dummy");