--- /dev/null
+#!/usr/bin/perl
+
+#
+# TODO
+#
+# Add info on biblioitems and items already entered as you enter new ones
+#
+
+use CGI;
+use strict;
+use C4::Output;
+
+
+my $input = new CGI;
+my $error = $input->param('error');
+
+print $input->header;
+print startpage();
+print startmenu('acquisitions');
+
+print << "EOF";
+<FONT SIZE=6><em>Adding a new Biblio</em></FONT><br>
+
+<table bgcolor="#ffcc00" width="80%" cellpadding="5">
+<tr>
+<td><FONT SIZE=5>Section One: Copyright Information </font></td>
+</tr>
+</table>
+EOF
+
+if ($error eq "notitle") {
+ print << "EOF";
+<p />
+<center>
+<font color="#FF0000">Please Specify a Title</font>
+</center>
+EOF
+} # if
+
+print << "EOF";
+<FORM action="savebiblio.pl" method="post">
+<table align="center">
+<tr>
+<td>Title: *</td>
+<td><INPUT name="title" size="40" /></td>
+</tr>
+<tr>
+<td>Subtitle:</td>
+<td><INPUT name="subtitle" size="40" /></td>
+</tr>
+<tr>
+<td>Author:</td>
+<td><INPUT name="author" size="40" /></td>
+</tr>
+ <tr valign="top">
+ <td>Series Title:<br />
+ <i>(if applicable)</i></td>
+ <td><INPUT name="seriestitle" size="40" /></td>
+ </tr>
+<tr>
+<td>Copyright Date:</td>
+<td><INPUT name="copyrightdate" size="40" /></td>
+</tr>
+<tr valign="top">
+<td>Abstract:</td>
+<td><textarea cols="30" rows="6" name="abstract"></textarea></td>
+</tr>
+ <tr valign="top">
+ <td>Notes:</td>
+ <td><textarea cols="30" rows="6" name="notes"></textarea></td>
+ </tr>
+<tr valign="top">
+<td colspan="2"><center><input type="submit" value="Submit"></center></td>
+</tr>
+</table>
+</FORM>
+* Required
+EOF
+
+print endmenu();
+print endpage();
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+use C4::Output;
+
+my $input = new CGI;
+my $biblionumber = $input->param('biblionumber');
+my $title;
+my $count;
+my @results;
+
+if (! $biblionumber) {
+ print $input->redirect('addbooks.pl');
+} else {
+
+ ($count, @results) = &getbiblio($biblionumber);
+ $title = @results[0]->{'title'};
+
+ print $input->header;
+ print startpage();
+ print startmenu('acquisitions');
+
+ print << "EOF";
+<font size="6"><em>Adding New Group Information - $title</em></font>
+<table bgcolor="#ffcc00" width="80%" cellpadding="5">
+<tr valign="center">
+<td><font size="5">Section Two: Publication information</font></td>
+</tr></table>
+<p />
+<form action="savebiblioitem.pl" method="post">
+<input type="hidden" name="biblionumber" value="$biblionumber">
+<table align="center">
+<tr>
+<td align="right">Publisher:</td>
+<td colspan="3"><INPUT name="publishercode" size="40"></td>
+</tr>
+<tr>
+<td align="right">Publication Year:</td>
+<td><INPUT name="publicationyear" size="20"></td>
+<td align="right">Place of Publication:</td>
+<td><input name="place" size="20"></td>
+</tr>
+<tr>
+<td align="right">Illustrator:</td>
+<td colspan="3"><INPUT name="illus" size="40"></td>
+</tr>
+<tr>
+<td align="right">ISBN:</td>
+<td colspan="3"><input name="isbn" size="40"></td>
+</tr>
+<tr valign="top">
+<td align="right">Additional Authors:<br><i>One Author per line</i></td>
+<td colspan="3"><textarea name="additionalauthors" cols="30" rows="6"></textarea></td>
+</tr>
+<tr valign="top">
+<td align="right">Subject Headings:<br><i>One Subject per line</i></td>
+<td colspan="3"><textarea name="subjectheadings" cols="30" rows="6"></textarea></td>
+</tr>
+<tr>
+<td align="right">Format:</td>
+<td colspan="3"><select name="itemtype">
+EOF
+
+ ($count, @results) = &getitemtypes;
+ for (my $i = 0; $i < $count; $i++) {
+ print << "EOF";
+<option value="$results[$i]->{'itemtype'}">$results[$i]->{'itemtype'} - $results[$i]->{'description'}
+EOF
+ } # for
+
+ print << "EOF";
+</select></td>
+</tr>
+<tr>
+<td align="right">URL:</td>
+<td colspan="3"><INPUT name="url" size="40"></td>
+</tr>
+<tr>
+<td align="right">Dewey:</td>
+<td><INPUT name="dewey" size="20"></td>
+<td align="right">Dewey Subclass:</td>
+<td><input name="subclass" size="20"></td>
+</tr>
+<tr>
+<td align="right">ISSN:</td>
+<td><input name="issn" size="20"></td>
+<td align="right">LCCN:</td>
+<td><input name="lccn" size="20"</td>
+</tr>
+<tr>
+<td align="right">Volume:</td>
+<td><input name="volume" size="20"></td>
+<td align="right">Number:</td>
+<td><input name="number" size="20"></td>
+</tr>
+<tr>
+<td align="right">Volume Description:</td>
+<td colspan="3"><input name="volumeddesc" size="40"></td>
+</tr>
+<tr>
+<td align="right">Pages:</td>
+<td><input name="pages" size="20"></td>
+<td align="right">Size:</td>
+<td><input name="size" size="20"></td>
+</tr>
+<tr valign="top">
+<td align="right">Notes:</td>
+<td colspan="3"><textarea name="notes" cols="30" rows="6"></textarea></td>
+</tr>
+<tr valign="top">
+<td colspan="4" align="center"><input type="submit" value="Add New Item"></td>
+</tr>
+
+ </table></FORM>
+EOF
+
+ print endmenu();
+ print endpage();
+} # else
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+use C4::Output;
+
+my $input = new CGI;
+my $biblioitemnum = $input->param('biblioitemnum');
+my $maxbarcode;
+my $isbn;
+my $count;
+my @results;
+
+if (! $biblioitemnum) {
+ print $input->redirect('addbooks.pl');
+} else {
+
+ ($count, @results) = &getbiblioitem($biblioitemnum);
+
+ if (! $count) {
+ print $input->redirect('addbooks.pl');
+ } else {
+ $isbn = $results[0]->{'isbn'};
+ $maxbarcode = $results[0]->{'biblionumber'};
+
+ print $input->header;
+ print startpage();
+ print startmenu('acquisitions');
+
+ ($count, @results) = &getitemsbybiblioitem($biblioitemnum);
+
+ if ($count) {
+ print << "EOF";
+<center>
+<p>
+<table border=1 bgcolor=#dddddd>
+<tr>
+<th colspan=4>Existing Items with ISBN $isbn</th>
+</tr>
+<tr>
+<th>Barcode</th><th>Title</th><th>Author</th><th>Notes</th></tr>
+EOF
+
+ for (my $i = 0; $i < $count; $i++) {
+ print << "EOF";
+<tr>
+<td align=center>$results[$i]->{'barcode'}</td>
+<td><u>$results[$i]->{'title'}</u></td>
+<td>$results[$i]->{'author'}</td>
+<td>$results[$i]->{'itemnotes'}</td>
+</tr>
+EOF
+ } # for
+
+ print << "EOF";
+</table>
+</center>
+EOF
+ } # if
+
+ print << "EOF";
+<center>
+<h2>Section Three: Specific Item Information</h2>
+<form action="saveitems" method="post">
+<input type="hidden" name="biblioitemnum" value="$biblioitemnum">
+<table>
+<tr>
+<td align="right">BARCODE:</td>
+<td><input name="barcode" size="10" value="$maxbarcode" /></td>
+<td align="right">Home Branch:</td>
+<td><select name="homebranch"><option value="STWE">Stewart Elementary<option value="MEZ">Meziadin Elementary</select></td>
+</tr>
+<tr>
+<td align="right">Replacement Price:</td>
+<td colspan="3"><input name="replacementprice" size="10"></td>
+</tr>
+<tr valign="top">
+<td align="right">Notes:</td>
+<td colspan="3"><textarea name="notes" rows="4" cols="40" wrap="physical"></textarea></td>
+</tr>
+</table>
+<input type="submit" value="Add Item" />
+</form>
+</center>
+EOF
+
+ print endmenu();
+ print endpage();
+ } # if
+} # if
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+
+my $input = new CGI;
+my $isbn = $input->param('isbn');
+my $biblioitemnum;
+my $count;
+my @results;
+
+if (! $isbn) {
+ print $input->redirect('addbooks.pl');
+} else {
+
+ ($count, @results) = &isbnsearch($isbn);
+ if (! $count) {
+ print $input->redirect("addbooks.pl?error=notfound");
+ } else {
+
+ $biblioitemnum = $results[0]->{'biblioitemnumber'};
+ print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");
+
+ } # else
+} # else
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+use C4::Output;
+
+my $input = new CGI;
+my $keywords = $input->param('keyword');
+my $offset = $input->param('offset');
+my $num = $input->param('num');
+my $total;
+my $count;
+my @results;
+
+if (! $keywords) {
+ print $input->redirect('addbooks.pl');
+} else {
+ if (! $offset) { $offset = 0 };
+ if (! $num) { $num = 10 };
+
+ ($count, @results) = &keywordsearch($keywords);
+
+ if ($count < ($offset + $num)) {
+ $total = $count;
+ } else {
+ $total = $offset + $num;
+ } # else
+
+ print $input->header;
+ print startpage();
+ print startmenu('acquisitions');
+
+ print << "EOF";
+<font size="6"><em>Biblio Search Results</em></font><br />
+<CENTER>
+You searched on <b>keywords $keywords,</b> $count results found <br />
+Results $offset to $total displayed
+<div align="right">
+<h2><a href="addbiblio.pl">Add New Biblio</a></h2>
+</div>
+<p />
+<table border="0" cellspacing="0" cellpadding="5">
+<tr valign=top bgcolor=#cccc99>
+<td background="/images/background-mem.gif"><b>TITLE</b></td>
+<td background="/images/background-mem.gif"><b>AUTHOR</b></td>
+<td background="/images/background-mem.gif"><b>©</b></td>
+</tr>
+EOF
+
+ for (my $i = $offset; $i < $total; $i++) {
+ if ($i % 2) {
+ print << "EOF";
+<tr valign="top" bgcolor="#ffffcc">
+EOF
+ } else {
+ print << "EOF";
+<tr valign="top" bgcolor="#ffffff">
+EOF
+ } # else
+
+ print << "EOF";
+<td><a href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
+<td><a href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
+<td>$results[$i]->{'copyrightdate'}</td>
+</tr>
+EOF
+ } # for
+ print << "EOF";
+<tr valign=top bgcolor=#cccc99>
+<td background="/images/background-mem.gif"> </td>
+<td background="/images/background-mem.gif"> </td>
+<td background="/images/background-mem.gif"> </td>
+</tr>
+</table>
+<br />
+EOF
+
+ for (my $i = 0; ($i * $num) < $count; $i++) {
+ my $newoffset = $i * $num;
+ print << "EOF";
+<a href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$i</a>
+EOF
+ } # for
+
+ print << "EOF";
+<p />
+Results per page:
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
+</CENTER>
+<br clear="all" />
+<p> </p>
+EOF
+
+ print endmenu();
+ print endpage();
+} # else
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+
+my $input = new CGI;
+my $biblio->{'title'} = $input->param('title');
+my $biblio->{'subtitle'} = $input->param('subtitle');
+my $biblio->{'author'} = $input->param('author');
+my $biblio->{'seriestitle'} = $input->param('seriestitle');
+my $biblio->{'copyright'} = $input->param('copyrightdate');
+my $biblio->{'abstract'} = $input->param('abstract');
+my $biblio->{'notes'} = $input->param('notes');
+my $biblionumber;
+
+if (! $biblio->{'title'}) {
+ print $input->redirect('addbiblio.pl?error=notitle');
+} else {
+
+ $biblionumber = &newbiblio($biblio);
+ &newsubtitle($biblionumber, $subtitle);
+
+ print $input->redirect('addbiblioitem.pl?biblionumber=$biblionumber');
+} # else
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+
+my $input = new CGI;
+my $biblionumber = $input->param('biblionumber');
+my $biblioitem = {
+ biblionumber => $biblionumber,
+ publishercode => $input->param('publishercode'),
+ publicationyear => $input->param('publicationyear'),
+ place => $input->param('year'),
+ illus => $input->param('illus'),
+ isbn => $input->param('isbn'),
+ additionalauthors => $input->param('additionalauthors'),
+ subjectheadings => $input->param('subjectheadings'),
+ itemtype => $input->param('itemtype'),
+ url => $input->param('url'),
+ dewey => $input->param('dewey'),
+ subclass => $input->param('subclass'),
+ issn => $input->param('issn'),
+ lccn => $input->param('lccn'),
+ volume => $input->param('volume'),
+ number => $input->param('number'),
+ volumeddesc => $input->param('volumeddesc'),
+ pages => $input->param('pages'),
+ size => $input->param('size'),
+ notes => $input->param('notes')
+};
+my $biblioitemnum;
+
+if (! $biblionumber) {
+ print $input->redirect('addbooks.pl');
+} else {
+
+ $biblioitemnum = &newbiblioitem($biblioitem);
+
+ print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum');
+} # else
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+
+my $input = new CGI;
+my $barcode = $input->param('barcode');
+my $biblioitemnum = $input->param('biblioitemnum');
+my $item = {
+ biblioitemnum => $biblioitemnum,
+ homebranch => $input->param('homebranch'),
+ replacementprice => $input->param('replacementprice'),
+ itemnotes => $input->param('notes')
+};
+my $count;
+my @results;
+
+if (! $barcode) {
+ print $input->redirect('additem.pl?error=nobarcode');
+} elsif (! $biblioitemnum) {
+ print $input->redirect('addbooks.pl');
+} else {
+
+ ($count, @results) = &getbiblioitem($biblioitemnum);
+ if (! $count) {
+ print->redirect('addbooks.pl');
+ } else {
+
+ $item->{'biblionumber'} = $results[0]->{'biblionumber'};
+ &newitems($item, ($barcode));
+
+ print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum');
+ } # else
+} # else
--- /dev/null
+#!/usr/bin/perl
+
+use CGI;
+use strict;
+use C4::Acquisitions;
+use C4::Output;
+
+my $input = new CGI;
+my $keywords = $input->param('keyword');
+my $offset = $input->param('offset');
+my $num = $input->param('num');
+my $total;
+my $count;
+my @results;
+
+if (! $keywords) {
+ print $input->redirect('addbooks.pl');
+} else {
+ if (! $offset) { $offset = 0 };
+ if (! $num) { $num = 10 };
+
+ ($count, @results) = &websitesearch($keywords);
+
+ if ($count < ($offset + $num)) {
+ $total = $count;
+ } else {
+ $total = $offset + $num;
+ } # else
+
+ print $input->header;
+ print startpage();
+ print startmenu('acquisitions');
+
+ print << "EOF";
+<font size="6"><em>Website Search Results</em></font><br />
+<CENTER>
+You searched on <b>keywords $keywords,</b> $count results found <br />
+Results $offset to $total displayed
+<div align="right">
+<h2><a href="addbiblio.pl">Add New Biblio</a></h2>
+</div>
+<p />
+<table border="0" cellspacing="0" cellpadding="5">
+<tr valign=top bgcolor=#cccc99>
+<td background="/images/background-mem.gif"><b>TITLE</b></td>
+<td background="/images/background-mem.gif"><b>AUTHOR</b></td>
+<td background="/images/background-mem.gif"><b>©</b></td>
+</tr>
+EOF
+
+ for (my $i = $offset; $i < $total; $i++) {
+ if ($i % 2) {
+ print << "EOF";
+<tr valign="top" bgcolor="#ffffcc">
+EOF
+ } else {
+ print << "EOF";
+<tr valign="top" bgcolor="#ffffff">
+EOF
+ } # else
+
+ print << "EOF";
+<td><a href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
+<td><a href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
+<td>$results[$i]->{'copyrightdate'}</td>
+</tr>
+EOF
+ } # for
+ print << "EOF";
+<tr valign=top bgcolor=#cccc99>
+<td background="/images/background-mem.gif"> </td>
+<td background="/images/background-mem.gif"> </td>
+<td background="/images/background-mem.gif"> </td>
+</tr>
+</table>
+<br />
+EOF
+
+ for (my $i = 0; ($i * $num) < $count; $i++) {
+ my $newoffset = $i * $num;
+ print << "EOF";
+<a href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$i</a>
+EOF
+ } # for
+
+ print << "EOF";
+<p />
+Results per page:
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
+<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
+</CENTER>
+<br clear="all" />
+<p> </p>
+EOF
+
+ print endmenu();
+ print endpage();
+} # else