Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv28376 Added Files: addbiblio.pl addbiblioitem.pl additem.pl isbnsearch.pl keywordsearch.pl savebiblio.pl savebiblioitem.pl saveitem.pl websitesearch.pl Log Message: scripts for new acqui.simple system --- NEW FILE --- #!/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(); --- NEW FILE --- #!/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 --- NEW FILE --- #!/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 --- NEW FILE --- #!/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 --- NEW FILE --- #!/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 --- NEW FILE --- #!/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 --- NEW FILE --- #!/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 --- NEW FILE --- #!/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 --- NEW FILE --- #!/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