9 my $biblionumber = $input->param('biblionumber');
10 my $error = $input->param('error');
24 my %itemtypedescriptions;
26 if (! $biblionumber) {
27 print $input->redirect('addbooks.pl');
30 ($bibliocount, @biblios) = &getbiblio($biblionumber);
33 print $input->redirect('addbooks.pl');
36 ($biblioitemcount, @biblioitems) = &getbiblioitembybiblionumber($biblionumber);
37 ($branchcount, @branches) = &branches;
38 ($itemtypecount, @itemtypes) = &getitemtypes;
40 for (my $i = 0; $i < $itemtypecount; $i++) {
41 $itemtypedescriptions{$itemtypes[$i]->{'itemtype'}} = $itemtypes[$i]->{'description'};
44 for (my $i = 0; $i < $branchcount; $i++) {
45 $branchnames{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
50 print startmenu('acquisitions');
53 <font size="6"><em>$biblios[0]->{'title'}</em></font>
57 if ($error eq "nobarcode") {
59 <font size="5" color="red">You must give the item a barcode</font>
62 } elsif ($error eq "nobiblioitem") {
64 <font size="5" color="red">You must create a new group for your item to be added to</font>
67 } elsif ($error eq "barcodeinuse") {
69 <font size="5" color="red">Sorry, that barcode is already in use</font>
74 <table align="left" cellpadding="5" cellspacing="0" border="1" width="220">
75 <tr valign="top" bgcolor="#CCCC99">
76 <td background="/images/background-mem.gif"><b>BIBLIO RECORD $biblionumber</b></td>
79 <td><b>Author:</b> $biblios[0]->{'author'}<br>
80 <b>Copyright:</b> $biblios[0]->{'copyrightdate'}<br>
81 <b>Series Title:</b> $biblios[0]->{'seriestitle'}<br>
82 <b>Notes:</b> $biblios[0]->{'notes'}</td>
86 for (my $i = 0; $i < $biblioitemcount; $i++) {
87 if ($biblioitems[$i]->{'itemtype'} eq "WEB") {
90 <tr valign="top" bgcolor="#CCCC99">
91 <td background="/images/background-mem.gif"><b>$biblioitems[$i]->{'biblioitemnumber'} GROUP - $itemtypedescriptions{$biblioitems[$i]->{'itemtype'}}</b></td>
94 <td><b>URL:</b> $biblioitems[$i]->{'url'}<br>
95 <b>Date:</b> $biblioitems[$i]->{'publicationyear'}<br>
96 <b>Notes:</b> $biblioitems[$i]->{'notes'}</td>
101 $biblioitems[$i]->{'dewey'} =~ /(\d*\.\d\d)/;
102 $biblioitems[$i]->{'dewey'} = $1;
105 <tr valign="top" bgcolor="#CCCC99">
106 <td background="/images/background-mem.gif"><b>$biblioitems[$i]->{'biblioitemnumber'} GROUP - $itemtypedescriptions{$biblioitems[$i]->{'itemtype'}}</b></td>
109 <td><b>ISBN:</b> $biblioitems[$i]->{'isbn'}<br>
110 <b>Dewey:</b> $biblioitems[$i]->{'dewey'}<br>
111 <b>Publisher:</b> $biblioitems[$i]->{'publishercode'}<br>
112 <b>Place:</b> $biblioitems[$i]->{'place'}<br>
113 <b>Date:</b> $biblioitems[$i]->{'publicationyear'}</td>
117 ($itemcount, @items) = &getitemsbybiblioitem($biblioitems[$i]->{'biblioitemnumber'});
119 for (my $j = 0; $j < $itemcount; $j++) {
121 <tr valign="top" bgcolor="#FFFFCC">
122 <td><b>Item:</b> $items[$j]->{'barcode'}<br>
123 <b>Home Branch:</b> $branchnames{$items[$j]->{'homebranch'}}<br>
124 <b>Notes:</b> $items[$j]->{'itemnotes'}</td>
133 <img src="/images/holder.gif" width="16" height="650" align="left">
137 <form action="saveitem.pl" method="post">
138 <input type="hidden" name="biblionumber" value="$biblionumber">
139 <table border="1" cellspacing="0" cellpadding="5">
140 <tr valign="top" bgcolor="#CCCC99">
141 <td background="/images/background-mem.gif" colspan="2"><b>ADD NEW ITEM:</b><br>
142 <small><i>For a website add the group only</i></small></td>
145 <td>Item Barcode:</td>
146 <td><input type="text" name="barcode" size="40"></td>
150 <td><select name="homebranch">
153 for (my $i = 0; $i < $branchcount; $i++) {
155 <option value="$branches[$i]->{'branchcode'}">$branches[$i]->{'branchname'}</option>
163 <td>Replacement Price:</td>
164 <td><input type="text" name="replacementprice" size="40"></td>
168 <td><textarea name="itemnotes" cols="30" rows="6"></textarea></td>
170 <tr valign="top" bgcolor="#CCCC99">
171 <td colspan="2" background="/images/background-mem.gif"><b>Add to existing group:</b></td>
175 <td><select name="biblioitemnumber">
178 for (my $i = 0; $i < $biblioitemcount; $i++) {
179 if ($biblioitems[$i]->{'itemtype'} ne "WEB") {
181 <option value="$biblioitems[$i]->{'biblioitemnumber'}">$itemtypedescriptions{$biblioitems[$i]->{'itemtype'}}</option>
190 <td colspan="2" align="center"><input type="submit" name="existinggroup" value="Add New Item to Existing Group"></td>
192 <tr valign="top" bgcolor="#CCCC99">
193 <td colspan="2" background="/images/background-mem.gif"><b>OR Add to a new Group:</b></td>
197 <td><select name="itemtype">
200 for (my $i = 0; $i < $itemtypecount; $i++) {
202 <option value="$itemtypes[$i]->{'itemtype'}">$itemtypes[$i]->{'description'}</option>
211 <td><input name="isbn" size="40"></td>
215 <td><input name="publishercode" size="40"></td>
218 <td>Publication Year:</td>
219 <td><input name="publicationyear" size="40"></td>
222 <td>Place of Publication:</td>
223 <td><input name="place" size="40"></td>
226 <td>Illustrator:</td>
227 <td><INPUT name="illus" size="40"></td>
230 <td>Additional Authors:<br><i>One Author per line</i></td>
231 <td><textarea name="additionalauthors" cols="30" rows="6"></textarea></td>
234 <td>Subject Headings:<br><i>One Subject per line</i></td>
235 <td><textarea name="subjectheadings" cols="30" rows="6"></textarea></td>
238 <td>Website URL:</td>
239 <td><INPUT name="url" size="40"></td>
243 <td><INPUT name="dewey" size="40"></td>
246 <td>Dewey Subclass:</td>
247 <td><input name="subclass" size="40"></td>
251 <td><input name="issn" size="40"></td>
255 <td><input name="lccn" size="40"</td>
259 <td><input name="volume" size="40"></td>
263 <td><input name="number" size="40"></td>
266 <td>Volume Description:</td>
267 <td><input name="volumeddesc" size="40"></td>
271 <td><input name="pages" size="40"></td>
275 <td><input name="size" size="40"></td>
279 <td><textarea name="notes" cols="30" rows="6"></textarea></td>
282 <td colspan="2" align="center"><input type="submit" name="newgroup" value="Add New Item to New Group"></td>
290 print endmenu('acquisitions');