acqui.simple/addbooks.pl

   1 #!/usr/bin/perl
   2
   3 #
   4 # Modified saas@users.sf.net 12:00 01 April 2001
   5 # The biblioitemnumber was not correctly initialised
   6 # The max(barcode) value was broken - koha 'barcode' is a string value!
   7 # - If left blank, barcode value now defaults to max(biblionumber)
   8
   9 #
  10 # TODO
  11 #
  12 # Add info on biblioitems and items already entered as you enter new ones
  13 #
  14 # Add info on biblioitems and items already entered as you enter new ones
  15
  16
  17 # Copyright 2000-2002 Katipo Communications
  18 #
  19 # This file is part of Koha.
  20 #
  21 # Koha is free software; you can redistribute it and/or modify it under the
  22 # terms of the GNU General Public License as published by the Free Software
  23 # Foundation; either version 2 of the License, or (at your option) any later
  24 # version.
  25 #
  26 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  27 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  28 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  29 #
  30 # You should have received a copy of the GNU General Public License along with
  31 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  32 # Suite 330, Boston, MA  02111-1307 USA
  33
  34 use CGI;
  35 use strict;
  36 use C4::Catalogue;
  37 use C4::Biblio;
  38 use C4::Output;
  39 use C4::Circulation::Circ2;
  40
  41 my $input = new CGI;
  42 my $error   = $input->param('error');
  43 my $success = $input->param('biblioitem');
  44
  45 print $input->header;
  46 print startpage();
  47 print startmenu('acquisitions');
  48
  49 &searchscreen();
  50 print endmenu('acquisitions');
  51 print endpage();
  52
  53
  54 sub searchscreen {
  55     print << "EOF";
  56 <font size="6"><em>Adding new items to the Library Inventory</em></font>
  57 <p />
  58 EOF
  59
  60     if ($error eq "notfound") {
  61         print << "EOF";
  62 <font color="red" size="5">No items found</font>
  63 <p />
  64 EOF
  65     } elsif ($success eq "added") {
  66         print << "EOF";
  67 <font color="red" size="5">Website Biblioitem Added</font>
  68 <p />
  69 EOF
  70     } # elsif
  71
  72     print << "EOF";
  73 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
  74 <tr valign="center">
  75 <td><font size="5">To add a new item, scan or type the ISBN number:</font></td>
  76 </tr>
  77 </table>
  78
  79 <table>
  80 <tr>
  81 <form action="keywordsearch.pl">
  82 <td>Keyword:</td>
  83 <td><input type="text" name="keyword" /></td>
  84 <td><input type="submit" value="Go" /></td>
  85 </form>
  86 </tr>
  87 <tr>
  88 <form action="isbnsearch.pl">
  89 <td>ISBN:</td>
  90 <td><input type="text" name="isbn" /></td>
  91 <td><input type="submit" value="Go" /></td>
  92 </form>
  93 </tr>
  94 </table>
  95 <p />
  96 <hr />
  97 <p />
  98 <table bgcolor="#ffcc00" width="80%" cellpadding"5">
  99 <tr valign="center">
 100 <td><font size="5">Tools for importing MARC records into Koha</font></td>
 101 </tr>
 102 </table>
 103 <br />
 104 <ul>
 105 <li><a href=marcimport.pl?menu=z3950>Z39.50 Search Tool</a></li>
 106 <li><a href=marcimport.pl?menu=uploadmarc>Upload MARC records</a></li>
 107 </ul>
 108 <br clear="all">
 109 <p />
 110 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
 111 <tr valign="center">
 112 <td><FONT SIZE=5>Add New Website</font></td>
 113 </tr>
 114 </table>
 115 <form action="websitesearch.pl" method="post">
 116 <table>
 117 <tr>
 118 <td>Keyword:</td>
 119 <td><input type="text" name="keyword" /></td>
 120 <td><input type="submit" value="Go" /></td>
 121 </tr>
 122 </table>
 123 </FORM>
 124 <p />
 125 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
 126 <tr valign="center">
 127 <td><FONT SIZE=5>Help</font></td>
 128 </tr>
 129 </table>
 130 <FONT SIZE=5>Koha stores data in three sections</font>
 131 <p />
 132 <h2>Biblio</h2>
 133 The first section records bibliographic data such as title, author and copyright for a particular work.
 134 <p />
 135 <h2>Group</h2>
 136 The second records bibliographic data for a particular publication of that work, such as ISBN number, physical description, publisher information, etc
 137 <p />
 138 <h2>Item</h2>
 139 The third section holds specific item information, such as the bar code number
 140 <p />
 141 EOF
 142 } # sub searchscreen