9 my $biblionumber = $input->param('biblionumber');
14 if (! $biblionumber) {
15 print $input->redirect('addbooks.pl');
18 ($count, @results) = &getbiblio($biblionumber);
21 print $input->redirect('addbooks.pl');
23 $title = @results[0]->{'title'};
27 print startmenu('acquisitions');
30 <font size="6"><em>Adding New Group Information - $title</em></font>
31 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
33 <td><font size="5">Section Two: Publication information</font></td>
36 <form action="savebiblioitem.pl" method="post">
37 <input type="hidden" name="biblionumber" value="$biblionumber">
38 <table align="center">
40 <td align="right">Publisher:</td>
41 <td colspan="3"><INPUT name="publishercode" size="40"></td>
44 <td align="right">Publication Year:</td>
45 <td><INPUT name="publicationyear" size="20"></td>
46 <td align="right">Place of Publication:</td>
47 <td><input name="place" size="20"></td>
50 <td align="right">Illustrator:</td>
51 <td colspan="3"><INPUT name="illus" size="40"></td>
54 <td align="right">ISBN:</td>
55 <td colspan="3"><input name="isbn" size="40"></td>
58 <td align="right">Additional Authors:<br><i>One Author per line</i></td>
59 <td colspan="3"><textarea name="additionalauthors" cols="30" rows="6"></textarea></td>
62 <td align="right">Subject Headings:<br><i>One Subject per line</i></td>
63 <td colspan="3"><textarea name="subjectheadings" cols="30" rows="6"></textarea></td>
66 <td align="right">Format:</td>
67 <td colspan="3"><select name="itemtype">
70 ($count, @results) = &getitemtypes;
71 for (my $i = 0; $i < $count; $i++) {
73 <option value="$results[$i]->{'itemtype'}">$results[$i]->{'itemtype'} - $results[$i]->{'description'}
81 <td align="right">URL:</td>
82 <td colspan="3"><INPUT name="url" size="40"></td>
85 <td align="right">Dewey:</td>
86 <td><INPUT name="dewey" size="20"></td>
87 <td align="right">Dewey Subclass:</td>
88 <td><input name="subclass" size="20"></td>
91 <td align="right">ISSN:</td>
92 <td><input name="issn" size="20"></td>
93 <td align="right">LCCN:</td>
94 <td><input name="lccn" size="20"</td>
97 <td align="right">Volume:</td>
98 <td><input name="volume" size="20"></td>
99 <td align="right">Number:</td>
100 <td><input name="number" size="20"></td>
103 <td align="right">Volume Description:</td>
104 <td colspan="3"><input name="volumeddesc" size="40"></td>
107 <td align="right">Pages:</td>
108 <td><input name="pages" size="20"></td>
109 <td align="right">Size:</td>
110 <td><input name="size" size="20"></td>
113 <td align="right">Notes:</td>
114 <td colspan="3"><textarea name="notes" cols="30" rows="6"></textarea></td>
117 <td colspan="4" align="center"><input type="submit" value="Add New Group"></td>