- my $q_title=$dbh->quote($input->param('title'));
- my $q_subtitle=$dbh->quote($input->param('subtitle'));
- my $q_author=$dbh->quote($input->param('author'));
- my $q_copyrightdate=$dbh->quote($input->param('copyrightdate'));
- my $q_seriestitle=$dbh->quote($input->param('seriestitle'));
- $sth=$dbh->prepare("select biblionumber from biblio where title=$q_title and author=$q_author and copyrightdate=$q_copyrightdate and seriestitle=$q_seriestitle");
- $sth->execute;
- if ($sth->rows) {
- ($biblionumber) = $sth->fetchrow;
- } else {
- $sth=$dbh->prepare("select max(biblionumber) from biblio");
- $sth->execute;
- ($biblionumber) = $sth->fetchrow;
- $biblionumber++;
- $sth=$dbh->prepare("insert into biblio (biblionumber, title, author, copyrightdate, seriestitle) values ($biblionumber, $q_title, $q_author, $q_copyrightdate, $q_seriestitle)");
- $sth->execute;
- $sth=$dbh->prepare("insert into bibliosubtitle (biblionumber,subtitle) values ($biblionumber, $q_subtitle)");
- $sth->execute;
- }
+ use strict;
+
+ # It doesn't exist; add it.
+
+ $biblionumber=GetOrAddBiblio($dbh,
+ { title =>$input->param('title'),
+ author =>$input->param('author'),
+ copyright =>$input->param('copyrightdate'),
+ seriestitle =>$input->param('seriestitle'),
+ notes =>$input->param('notes'),
+ abstract =>$input->param('abstract'),
+ subtitle =>$input->param('subtitle'),
+ }
+ );
+