114 lines
2.5 KiB
Perl
Executable file
114 lines
2.5 KiB
Perl
Executable 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');
|
|
my $success = $input->param('biblioitem');
|
|
|
|
print $input->header;
|
|
print startpage();
|
|
print startmenu('acquisitions');
|
|
|
|
&searchscreen();
|
|
print endmenu('acquisitions');
|
|
print endpage();
|
|
|
|
|
|
sub searchscreen {
|
|
print << "EOF";
|
|
<font size="6"><em>Adding new items to the Library Inventory</em></font>
|
|
<p />
|
|
EOF
|
|
|
|
if ($error eq "notfound") {
|
|
print << "EOF";
|
|
<font color="red" size="5">No items found</font>
|
|
<p />
|
|
EOF
|
|
} elsif ($success eq "added") {
|
|
print << "EOF";
|
|
<font color="red" size="5">Website Biblioitem Added</font>
|
|
<p />
|
|
EOF
|
|
} # elsif
|
|
|
|
print << "EOF";
|
|
<table bgcolor="#ffcc00" width="80%" cellpadding="5">
|
|
<tr valign="center">
|
|
<td><font size="5">To add a new item, scan or type the ISBN number:</font></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<table>
|
|
<tr>
|
|
<form action="keywordsearch.pl">
|
|
<td>Keyword:</td>
|
|
<td><input type="text" name="keyword" /></td>
|
|
<td><input type="submit" value="Go" /></td>
|
|
</form>
|
|
</tr>
|
|
<tr>
|
|
<form action="isbnsearch.pl">
|
|
<td>ISBN:</td>
|
|
<td><input type="text" name="isbn" /></td>
|
|
<td><input type="submit" value="Go" /></td>
|
|
</form>
|
|
</tr>
|
|
</table>
|
|
<p />
|
|
<hr />
|
|
<p />
|
|
<table bgcolor="#ffcc00" width="80%" cellpadding"5">
|
|
<tr valign="center">
|
|
<td><font size="5">Tools for importing MARC records into Koha</font></td>
|
|
</tr>
|
|
</table>
|
|
<br />
|
|
<ul>
|
|
<li><a href=marcimport.pl?menu=z3950>Z39.50 Search Tool</a></li>
|
|
<li><a href=marcimport.pl?menu=uploadmarc>Upload MARC records</a></li>
|
|
</ul>
|
|
<br clear="all">
|
|
<p />
|
|
<table bgcolor="#ffcc00" width="80%" cellpadding="5">
|
|
<tr valign="center">
|
|
<td><FONT SIZE=5>Add New Website</font></td>
|
|
</tr>
|
|
</table>
|
|
<form action="websitesearch.pl" method="post">
|
|
<table>
|
|
<tr>
|
|
<td>Keyword:</td>
|
|
<td><input type="text" name="keyword" /></td>
|
|
<td><input type="submit" value="Go" /></td>
|
|
</tr>
|
|
</table>
|
|
</FORM>
|
|
<p />
|
|
<table bgcolor="#ffcc00" width="80%" cellpadding="5">
|
|
<tr valign="center">
|
|
<td><FONT SIZE=5>Help</font></td>
|
|
</tr>
|
|
</table>
|
|
<FONT SIZE=5>Koha stores data in three sections</font>
|
|
<p />
|
|
<h2>Biblio</h2>
|
|
The first section records bibliographic data such as title, author and copyright for a particular work.
|
|
<p />
|
|
<h2>Group</h2>
|
|
The second records bibliographic data for a particular publication of that work, such as ISBN number, physical description, publisher information, etc
|
|
<p />
|
|
<h2>Item</h2>
|
|
The third section holds specific item information, such as the bar code number
|
|
<p />
|
|
EOF
|
|
} # sub searchscreen
|