acqui.simple/addbooks.pl

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