koha-dev.rot13.org Git - koha_fer/blob - 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 use C4::Database;
  17 use CGI;
  18 use strict;
  19 use C4::Catalogue;
  20 use C4::Biblio;
  21 use C4::Output;
  22 use C4::Circulation::Circ2;
  23
  24 my $input = new CGI;
  25 my $error   = $input->param('error');
  26 my $success = $input->param('biblioitem');
  27
  28 print $input->header;
  29 print startpage();
  30 print startmenu('acquisitions');
  31
  32 &searchscreen();
  33 print endmenu('acquisitions');
  34 print endpage();
  35
  36
  37 sub searchscreen {
  38     print << "EOF";
  39 <font size="6"><em>Adding new items to the Library Inventory</em></font>
  40 <p />
  41 EOF
  42
  43     if ($error eq "notfound") {
  44         print << "EOF";
  45 <font color="red" size="5">No items found</font>
  46 <p />
  47 EOF
  48     } elsif ($success eq "added") {
  49         print << "EOF";
  50 <font color="red" size="5">Website Biblioitem Added</font>
  51 <p />
  52 EOF
  53     } # elsif
  54
  55     print << "EOF";
  56 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
  57 <tr valign="center">
  58 <td><font size="5">To add a new item, scan or type the ISBN number:</font></td>
  59 </tr>
  60 </table>
  61
  62 <table>
  63 <tr>
  64 <form action="keywordsearch.pl">
  65 <td>Keyword:</td>
  66 <td><input type="text" name="keyword" /></td>
  67 <td><input type="submit" value="Go" /></td>
  68 </form>
  69 </tr>
  70 <tr>
  71 <form action="isbnsearch.pl">
  72 <td>ISBN:</td>
  73 <td><input type="text" name="isbn" /></td>
  74 <td><input type="submit" value="Go" /></td>
  75 </form>
  76 </tr>
  77 </table>
  78 <p />
  79 <hr />
  80 <p />
  81 <table bgcolor="#ffcc00" width="80%" cellpadding"5">
  82 <tr valign="center">
  83 <td><font size="5">Tools for importing MARC records into Koha</font></td>
  84 </tr>
  85 </table>
  86 <br />
  87 <ul>
  88 <li><a href=marcimport.pl?menu=z3950>Z39.50 Search Tool</a></li>
  89 <li><a href=marcimport.pl?menu=uploadmarc>Upload MARC records</a></li>
  90 </ul>
  91 <br clear="all">
  92 <p />
  93 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
  94 <tr valign="center">
  95 <td><FONT SIZE=5>Add New Website</font></td>
  96 </tr>
  97 </table>
  98 <form action="websitesearch.pl" method="post">
  99 <table>
 100 <tr>
 101 <td>Keyword:</td>
 102 <td><input type="text" name="keyword" /></td>
 103 <td><input type="submit" value="Go" /></td>
 104 </tr>
 105 </table>
 106 </FORM>
 107 <p />
 108 <table bgcolor="#ffcc00" width="80%" cellpadding="5">
 109 <tr valign="center">
 110 <td><FONT SIZE=5>Help</font></td>
 111 </tr>
 112 </table>
 113 <FONT SIZE=5>Koha stores data in three sections</font>
 114 <p />
 115 <h2>Biblio</h2>
 116 The first section records bibliographic data such as title, author and copyright for a particular work.
 117 <p />
 118 <h2>Group</h2>
 119 The second records bibliographic data for a particular publication of that work, such as ISBN number, physical description, publisher information, etc
 120 <p />
 121 <h2>Item</h2>
 122 The third section holds specific item information, such as the bar code number
 123 <p />
 124 EOF
 125 } # sub searchscreen