acqui.simple/addbooks.pl

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