[Koha-devel] CVS: koha/acqui.simple addbiblio.pl,NONE,1.1 addbiblioitem.pl,NONE,1.1 additem.pl,NONE,1.1 isbnsearch.pl,NONE,1.1 keywordsearch.pl,NONE,1.1 savebiblio.pl,NONE,1.1 savebiblioitem.pl,NONE,1.1 saveitem.pl,NONE,1.1 websitesearch.pl,NONE,1.1

[Gynn Lomax]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv28376

Added Files:
        addbiblio.pl addbiblioitem.pl additem.pl isbnsearch.pl 
        keywordsearch.pl savebiblio.pl savebiblioitem.pl saveitem.pl 
        websitesearch.pl 
Log Message:
scripts for new acqui.simple system


--- NEW 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');

print $input->header;
print startpage();
print startmenu('acquisitions');

print << "EOF";
<FONT SIZE=6><em>Adding a new Biblio</em></FONT><br>
  
<table bgcolor="#ffcc00" width="80%" cellpadding="5">
<tr>
<td><FONT SIZE=5>Section One: Copyright Information </font></td>
</tr>
</table>
EOF

if ($error eq "notitle") {
    print << "EOF";
<p />
<center>
<font color="#FF0000">Please Specify a Title</font>
</center>
EOF
} # if

print << "EOF";
<FORM action="savebiblio.pl" method="post">
<table align="center">
<tr>
<td>Title: *</td>
<td><INPUT name="title" size="40" /></td>
</tr>
<tr>
<td>Subtitle:</td>
<td><INPUT name="subtitle" size="40" /></td>
</tr>
<tr>
<td>Author:</td>
<td><INPUT name="author" size="40" /></td>
</tr>
    <tr valign="top">
        <td>Series Title:<br />
        <i>(if applicable)</i></td>
        <td><INPUT name="seriestitle" size="40" /></td>
    </tr>
<tr>
<td>Copyright Date:</td>
<td><INPUT name="copyrightdate" size="40" /></td>
</tr>
<tr valign="top">
<td>Abstract:</td>
<td><textarea cols="30" rows="6" name="abstract"></textarea></td>
</tr>
    <tr valign="top">
        <td>Notes:</td>
        <td><textarea cols="30" rows="6" name="notes"></textarea></td>
    </tr>
<tr valign="top">
<td colspan="2"><center><input type="submit" value="Submit"></center></td>
</tr>
</table>
</FORM>
* Required
EOF

print endmenu();
print endpage();

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;
use C4::Output;

my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my $title;
my $count;
my @results;

if (! $biblionumber) {
    print $input->redirect('addbooks.pl');
} else {
    
    ($count, @results) = &getbiblio($biblionumber);
    $title = @results[0]->{'title'};

    print $input->header;
    print startpage();
    print startmenu('acquisitions');

    print << "EOF";
<font size="6"><em>Adding New Group Information - $title</em></font>
<table bgcolor="#ffcc00" width="80%" cellpadding="5">
<tr valign="center">
<td><font size="5">Section Two: Publication information</font></td>
</tr></table> 
<p />
<form action="savebiblioitem.pl" method="post">
<input type="hidden" name="biblionumber" value="$biblionumber">
<table align="center">
<tr>
<td align="right">Publisher:</td>
<td colspan="3"><INPUT name="publishercode" size="40"></td>
</tr>
<tr>
<td align="right">Publication Year:</td>
<td><INPUT name="publicationyear" size="20"></td>
<td align="right">Place of Publication:</td>
<td><input name="place" size="20"></td>
</tr>
<tr>
<td align="right">Illustrator:</td>
<td colspan="3"><INPUT name="illus" size="40"></td>
</tr>
<tr>
<td align="right">ISBN:</td>
<td colspan="3"><input name="isbn" size="40"></td>
</tr>
<tr valign="top">
<td align="right">Additional Authors:<br><i>One Author per line</i></td>
<td colspan="3"><textarea name="additionalauthors" cols="30" 
rows="6"></textarea></td>
</tr>
<tr valign="top">
<td align="right">Subject Headings:<br><i>One Subject per line</i></td>
<td colspan="3"><textarea name="subjectheadings" cols="30" 
rows="6"></textarea></td>
</tr>
<tr>
<td align="right">Format:</td>
<td colspan="3"><select name="itemtype">
EOF

    ($count, @results) = &getitemtypes;
    for (my $i = 0; $i < $count; $i++) {
        print << "EOF";
<option value="$results[$i]->{'itemtype'}">$results[$i]->{'itemtype'} - 
$results[$i]->{'description'}
EOF
    } # for

    print << "EOF";
</select></td>
</tr>
<tr>
<td align="right">URL:</td>
<td colspan="3"><INPUT name="url" size="40"></td>
</tr>
<tr>
<td align="right">Dewey:</td>
<td><INPUT name="dewey" size="20"></td>
<td align="right">Dewey Subclass:</td>
<td><input name="subclass" size="20"></td>
</tr>
<tr>
<td align="right">ISSN:</td>
<td><input name="issn" size="20"></td>
<td align="right">LCCN:</td>
<td><input name="lccn" size="20"</td>
</tr>
<tr>
<td align="right">Volume:</td>
<td><input name="volume" size="20"></td>
<td align="right">Number:</td>
<td><input name="number" size="20"></td>
</tr>
<tr>
<td align="right">Volume Description:</td>
<td colspan="3"><input name="volumeddesc" size="40"></td>
</tr>
<tr>
<td align="right">Pages:</td>
<td><input name="pages" size="20"></td>
<td align="right">Size:</td>
<td><input name="size" size="20"></td>
</tr>
<tr valign="top">
<td align="right">Notes:</td>
<td colspan="3"><textarea name="notes" cols="30" rows="6"></textarea></td>
</tr>
<tr valign="top">
<td colspan="4" align="center"><input type="submit" value="Add New Item"></td>
</tr>
    
  </table></FORM>
EOF

    print endmenu();
    print endpage();
} # else

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;
use C4::Output;

my $input = new CGI;
my $biblioitemnum = $input->param('biblioitemnum');
my $maxbarcode;
my $isbn;
my $count;
my @results;

if (! $biblioitemnum) {
    print $input->redirect('addbooks.pl');
} else {
    
    ($count, @results) = &getbiblioitem($biblioitemnum);
    
    if (! $count) {
        print $input->redirect('addbooks.pl');
    } else {
        $isbn       = $results[0]->{'isbn'};
        $maxbarcode = $results[0]->{'biblionumber'};
  
        print $input->header;
        print startpage();
        print startmenu('acquisitions');
    
        ($count, @results) = &getitemsbybiblioitem($biblioitemnum);

        if ($count) {
            print << "EOF";
<center>
<p>
<table border=1 bgcolor=#dddddd>
<tr>
<th colspan=4>Existing Items with ISBN $isbn</th>
</tr>
<tr>
<th>Barcode</th><th>Title</th><th>Author</th><th>Notes</th></tr>
EOF

            for (my $i = 0; $i < $count; $i++) {
                print << "EOF";
<tr>
<td align=center>$results[$i]->{'barcode'}</td>
<td><u>$results[$i]->{'title'}</u></td>
<td>$results[$i]->{'author'}</td>
<td>$results[$i]->{'itemnotes'}</td>
</tr>
EOF
        } # for

            print << "EOF";
</table>
</center>
EOF
        } # if

        print << "EOF";
<center>
<h2>Section Three: Specific Item Information</h2>
<form action="saveitems" method="post">
<input type="hidden" name="biblioitemnum" value="$biblioitemnum">
<table>
<tr>
<td align="right">BARCODE:</td>
<td><input name="barcode" size="10" value="$maxbarcode" /></td>
<td align="right">Home Branch:</td>
<td><select name="homebranch"><option value="STWE">Stewart Elementary<option 
value="MEZ">Meziadin Elementary</select></td>
</tr>
<tr>
<td align="right">Replacement Price:</td>
<td colspan="3"><input name="replacementprice" size="10"></td>
</tr>
<tr valign="top">
<td align="right">Notes:</td>
<td colspan="3"><textarea name="notes" rows="4" cols="40" 
wrap="physical"></textarea></td>
</tr>
</table>
<input type="submit" value="Add Item" />
</form>
</center>
EOF
    
        print endmenu();
        print endpage();
    } # if
} # if

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;

my $input = new CGI;
my $isbn  = $input->param('isbn');
my $biblioitemnum;
my $count;
my @results;

if (! $isbn) {
    print $input->redirect('addbooks.pl');
} else {

    ($count, @results) = &isbnsearch($isbn);
    if (! $count) {
        print $input->redirect("addbooks.pl?error=notfound");
    } else {

        $biblioitemnum = $results[0]->{'biblioitemnumber'};
        print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");

    } # else
} # else

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;
use C4::Output;

my $input    = new CGI;
my $keywords = $input->param('keyword');
my $offset   = $input->param('offset');
my $num      = $input->param('num');
my $total;
my $count;
my @results;

if (! $keywords) {
    print $input->redirect('addbooks.pl');
} else {
    if (! $offset) { $offset = 0 };
    if (! $num) { $num = 10 };

    ($count, @results) = &keywordsearch($keywords);

    if ($count < ($offset + $num)) {
        $total = $count;
    } else {
        $total = $offset + $num;
    } # else

    print $input->header;
    print startpage();
    print startmenu('acquisitions');

    print << "EOF";
<font size="6"><em>Biblio Search Results</em></font><br />
<CENTER>
You searched on <b>keywords $keywords,</b> $count results found <br />
Results $offset to $total displayed
<div align="right">
<h2><a href="addbiblio.pl">Add New Biblio</a></h2>
</div>
<p />
<table border="0" cellspacing="0" cellpadding="5">
<tr valign=top bgcolor=#cccc99>
<td background="/images/background-mem.gif"><b>TITLE</b></td>
<td background="/images/background-mem.gif"><b>AUTHOR</b></td>
<td background="/images/background-mem.gif"><b>&copy;</b></td>
</tr>
EOF

    for (my $i = $offset; $i < $total; $i++) {
        if ($i % 2) {
            print << "EOF";
<tr valign="top" bgcolor="#ffffcc">
EOF
        } else {
            print << "EOF";
<tr valign="top" bgcolor="#ffffff">
EOF
        } # else

        print << "EOF";
<td><a 
href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
<td><a 
href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
<td>$results[$i]->{'copyrightdate'}</td>
</tr>
EOF
    } # for
    print << "EOF";
<tr valign=top bgcolor=#cccc99>
<td background="/images/background-mem.gif">&nbsp;</td>
<td background="/images/background-mem.gif">&nbsp;</td>
<td background="/images/background-mem.gif">&nbsp;</td>
</tr>
</table>
<br />
EOF

    for (my $i = 0; ($i * $num) < $count; $i++) {
        my $newoffset = $i * $num;
        print << "EOF";
<a href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$i</a>
EOF
    } # for

    print << "EOF";
<p />
Results per page:
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
</CENTER>
<br clear="all" />
<p>&nbsp;</p>
EOF

    print endmenu();
    print endpage();
} # else

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;

my $input = new CGI;
my $biblio->{'title'}       = $input->param('title');
my $biblio->{'subtitle'}    = $input->param('subtitle');
my $biblio->{'author'}      = $input->param('author');
my $biblio->{'seriestitle'} = $input->param('seriestitle');
my $biblio->{'copyright'}   = $input->param('copyrightdate');
my $biblio->{'abstract'}    = $input->param('abstract');
my $biblio->{'notes'}       = $input->param('notes');
my $biblionumber;

if (! $biblio->{'title'}) {
    print $input->redirect('addbiblio.pl?error=notitle');
} else {

    $biblionumber = &newbiblio($biblio);
    &newsubtitle($biblionumber, $subtitle);

    print $input->redirect('addbiblioitem.pl?biblionumber=$biblionumber');
} # else

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;

my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my $biblioitem = {
    biblionumber      => $biblionumber,
    publishercode     => $input->param('publishercode'),
    publicationyear   => $input->param('publicationyear'),
    place             => $input->param('year'),
    illus             => $input->param('illus'),
    isbn              => $input->param('isbn'),
    additionalauthors => $input->param('additionalauthors'),
    subjectheadings   => $input->param('subjectheadings'),
    itemtype          => $input->param('itemtype'),
    url               => $input->param('url'),
    dewey             => $input->param('dewey'),
    subclass          => $input->param('subclass'),
    issn              => $input->param('issn'),
    lccn              => $input->param('lccn'),
    volume            => $input->param('volume'),
    number            => $input->param('number'),
    volumeddesc       => $input->param('volumeddesc'),
    pages             => $input->param('pages'),
    size              => $input->param('size'),
    notes             => $input->param('notes')
};
my $biblioitemnum;

if (! $biblionumber) {
    print $input->redirect('addbooks.pl');
} else {

    $biblioitemnum = &newbiblioitem($biblioitem);

    print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum');
} # else

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;

my $input         = new CGI;
my $barcode       = $input->param('barcode');
my $biblioitemnum = $input->param('biblioitemnum');
my $item          = {
    biblioitemnum    => $biblioitemnum,
    homebranch       => $input->param('homebranch'),
    replacementprice => $input->param('replacementprice'),
    itemnotes        => $input->param('notes')
};
my $count;
my @results;

if (! $barcode) {
    print $input->redirect('additem.pl?error=nobarcode');
} elsif (! $biblioitemnum) {
    print $input->redirect('addbooks.pl');
} else {

    ($count, @results) = &getbiblioitem($biblioitemnum);
    if (! $count) {
        print->redirect('addbooks.pl');
    } else {

        $item->{'biblionumber'} = $results[0]->{'biblionumber'};
        &newitems($item, ($barcode));

        print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum');
    } # else
} # else

--- NEW FILE ---
#!/usr/bin/perl

use CGI;
use strict;
use C4::Acquisitions;
use C4::Output;

my $input    = new CGI;
my $keywords = $input->param('keyword');
my $offset   = $input->param('offset');
my $num      = $input->param('num');
my $total;
my $count;
my @results;

if (! $keywords) {
    print $input->redirect('addbooks.pl');
} else {
    if (! $offset) { $offset = 0 };
    if (! $num) { $num = 10 };

    ($count, @results) = &websitesearch($keywords);

    if ($count < ($offset + $num)) {
        $total = $count;
    } else {
        $total = $offset + $num;
    } # else

    print $input->header;
    print startpage();
    print startmenu('acquisitions');

    print << "EOF";
<font size="6"><em>Website Search Results</em></font><br />
<CENTER>
You searched on <b>keywords $keywords,</b> $count results found <br />
Results $offset to $total displayed
<div align="right">
<h2><a href="addbiblio.pl">Add New Biblio</a></h2>
</div>
<p />
<table border="0" cellspacing="0" cellpadding="5">
<tr valign=top bgcolor=#cccc99>
<td background="/images/background-mem.gif"><b>TITLE</b></td>
<td background="/images/background-mem.gif"><b>AUTHOR</b></td>
<td background="/images/background-mem.gif"><b>&copy;</b></td>
</tr>
EOF

    for (my $i = $offset; $i < $total; $i++) {
        if ($i % 2) {
            print << "EOF";
<tr valign="top" bgcolor="#ffffcc">
EOF
        } else {
            print << "EOF";
<tr valign="top" bgcolor="#ffffff">
EOF
        } # else

        print << "EOF";
<td><a 
href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'title'}</a></td>
<td><a 
href="addbiblioitem.pl?biblionumber=$results[$i]->{'biblionumber'}">$results[$i]->{'author'}</a></td>
<td>$results[$i]->{'copyrightdate'}</td>
</tr>
EOF
    } # for
    print << "EOF";
<tr valign=top bgcolor=#cccc99>
<td background="/images/background-mem.gif">&nbsp;</td>
<td background="/images/background-mem.gif">&nbsp;</td>
<td background="/images/background-mem.gif">&nbsp;</td>
</tr>
</table>
<br />
EOF

    for (my $i = 0; ($i * $num) < $count; $i++) {
        my $newoffset = $i * $num;
        print << "EOF";
<a href="keywordsearch.pl?keyword=$keywords&offset=$newoffset&num=$num">$i</a>
EOF
    } # for

    print << "EOF";
<p />
Results per page:
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=5">5</a>
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=10">10</a>
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=20">20</a>
<a href="keywordsearch.pl?keyword=$keywords&offset=$offset&num=50">50</a>
</CENTER>
<br clear="all" />
<p>&nbsp;</p>
EOF

    print endmenu();
    print endpage();
} # else