-my $biblionumber = $input->param('biblionumber');
-my $error = $input->param('error');
-my $maxbarcode;
-my $isbn;
-my $bibliocount;
-my @biblios;
-my $biblioitemcount;
-my @biblioitems;
-my $branchcount;
-my @branches;
-my %branchnames;
-my $itemcount;
-my @items;
-my $itemtypecount;
-my @itemtypes;
-my %itemtypedescriptions;
-
-if (! $biblionumber) {
- print $input->redirect('addbooks.pl');
-} else {
-
- ($bibliocount, @biblios) = &getbiblio($biblionumber);
-
- if (! $bibliocount) {
- print $input->redirect('addbooks.pl');
- } else {
-
- ($biblioitemcount, @biblioitems) = &getbiblioitembybiblionumber($biblionumber);
- ($branchcount, @branches) = &branches;
- ($itemtypecount, @itemtypes) = &getitemtypes;
-
- for (my $i = 0; $i < $itemtypecount; $i++) {
- $itemtypedescriptions{$itemtypes[$i]->{'itemtype'}} = $itemtypes[$i]->{'description'};
- } # for
-
- for (my $i = 0; $i < $branchcount; $i++) {
- $branchnames{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
- } # for
-
- print $input->header;
- print startpage();
- print startmenu('acquisitions');
-
- print << "EOF";
-<font size="6"><em>$biblios[0]->{'title'}</em></font>
-<p>
-EOF
-
- if ($error eq "nobarcode") {
- print << "EOF";
-<font size="5" color="red">You must give the item a barcode</font>
-<p>
-EOF
- } elsif ($error eq "nobiblioitem") {
- print << "EOF";
-<font size="5" color="red">You must create a new group for your item to be added to</font>
-<p>
-EOF
- } elsif ($error eq "barcodeinuse") {
- print << "EOF";
-<font size="5" color="red">Sorry, that barcode is already in use</font>
-<p>
-EOF
- } # elsif
- print << "EOF";
-<table align="left" cellpadding="5" cellspacing="0" border="1" width="220">
-<tr valign="top" bgcolor="#CCCC99">
-<td background="/images/background-mem.gif"><b>BIBLIO RECORD $biblionumber</b></td>
-</tr>
-<tr valign="top">
-<td><b>Author:</b> $biblios[0]->{'author'}<br>
-<b>Copyright:</b> $biblios[0]->{'copyrightdate'}<br>
-<b>Series Title:</b> $biblios[0]->{'seriestitle'}<br>
-<b>Notes:</b> $biblios[0]->{'notes'}</td>
-</tr>
-EOF
-
- for (my $i = 0; $i < $biblioitemcount; $i++) {
- if ($biblioitems[$i]->{'itemtype'} eq "WEB") {
-
- print << "EOF";
-<tr valign="top" bgcolor="#CCCC99">
-<td background="/images/background-mem.gif"><b>$biblioitems[$i]->{'biblioitemnumber'} GROUP - $itemtypedescriptions{$biblioitems[$i]->{'itemtype'}}</b></td>
-</tr>
-<tr valign="top">
-<td><b>URL:</b> $biblioitems[$i]->{'url'}<br>
-<b>Date:</b> $biblioitems[$i]->{'publicationyear'}<br>
-<b>Notes:</b> $biblioitems[$i]->{'notes'}</td>
-</tr>
-EOF
-
- } else {
- $biblioitems[$i]->{'dewey'} =~ /(\d*\.\d\d)/;
- $biblioitems[$i]->{'dewey'} = $1;
-
- print << "EOF";
-<tr valign="top" bgcolor="#CCCC99">
-<td background="/images/background-mem.gif"><b>$biblioitems[$i]->{'biblioitemnumber'} GROUP - $itemtypedescriptions{$biblioitems[$i]->{'itemtype'}}</b></td>
-</tr>
-<tr valign="top">
-<td><b>ISBN:</b> $biblioitems[$i]->{'isbn'}<br>
-<b>Dewey:</b> $biblioitems[$i]->{'dewey'}<br>
-<b>Publisher:</b> $biblioitems[$i]->{'publishercode'}<br>
-<b>Place:</b> $biblioitems[$i]->{'place'}<br>
-<b>Date:</b> $biblioitems[$i]->{'publicationyear'}</td>
-</tr>
-EOF
-
- ($itemcount, @items) = &getitemsbybiblioitem($biblioitems[$i]->{'biblioitemnumber'});
-
- for (my $j = 0; $j < $itemcount; $j++) {
- print << "EOF";
-<tr valign="top" bgcolor="#FFFFCC">
-<td><b>Item:</b> $items[$j]->{'barcode'}<br>
-<b>Home Branch:</b> $branchnames{$items[$j]->{'homebranch'}}<br>
-<b>Notes:</b> $items[$j]->{'itemnotes'}</td>
-</tr>
-EOF
- } # for
- } # else
- } # for
-
- print << "EOF";
-</table>
-<img src="/images/holder.gif" width="16" height="650" align="left">
-
-<center>
-
-<form action="saveitem.pl" method="post">
-<input type="hidden" name="biblionumber" value="$biblionumber">
-<table border="1" cellspacing="0" cellpadding="5">
-<tr valign="top" bgcolor="#CCCC99">
-<td background="/images/background-mem.gif" colspan="2"><b>ADD NEW ITEM:</b><br>
-<small><i>For a website add the group only</i></small></td>
-</tr>
-<tr valign="top">
-<td>Item Barcode:</td>
-<td><input type="text" name="barcode" size="40"></td>
-</tr>
-<tr valign="top">
-<td>Branch:</td>
-<td><select name="homebranch">
-EOF
-
- for (my $i = 0; $i < $branchcount; $i++) {
- print << "EOF";
-<option value="$branches[$i]->{'branchcode'}">$branches[$i]->{'branchname'}</option>
-EOF
- } # for