From tonnesen@users.sourceforge.net Fri Oct  5 14:19:32 2001
From: Steve Tonnesen <tonnesen@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject:
 [Koha-devel] CVS: koha/acqui.simple addbooks.pl,NONE,1.1 viewmarc.pl,NONE,1.1
Date: Fri, 05 Oct 2001 14:20:04 +0000
Message-ID: <E15pcNY-0003bs-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============3438059610451092184=="

--===============3438059610451092184==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

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

Added Files:
	addbooks.pl viewmarc.pl=20
Log Message:
Added simple acquisitions script


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

#
# TODO
#
# Add info on biblioitems and items already entered as you enter new ones
#

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


my $input =3D new CGI;
my $dbh=3DC4Connect;


my $isbn=3D$input->param('isbn');
my $q_isbn=3D$dbh->quote($isbn);
my $biblioitemnumber;

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

($input->param('checkforbiblio')) && (checkforbiblio());
($input->param('newbiblioitem')) && (newbiblioitem());
($input->param('newitem')) && (newitem());

sub checkforbiblio {
    my $title=3D$input->param('title');
    my $q_title=3D$dbh->quote($title);
    my $author=3D$input->param('author');
    my $q_author=3D$dbh->quote($author);
    my $seriestitle=3D$input->param('seriestitle');
    my $serial=3D0;
    ($seriestitle) && ($serial=3D1);
    my $q_seriestitle=3D$dbh->quote($seriestitle);
    my $copyrightdate=3D$input->param('copyrightdate');
    my $q_copyrightdate=3D$dbh->quote($copyrightdate);
    my $notes=3D$input->param('notes');
    my $q_notes=3D$dbh->quote($notes);
    my $subtitle=3D$input->param('subtitle');
    my $q_subtitle=3D$dbh->quote($subtitle);
    my $sth=3D$dbh->prepare("select biblionumber from biblio where title=3D$q=
_title
	and author=3D$q_author and copyrightdate=3D$q_copyrightdate");
    $sth->execute;
    my $biblionumber=3D0;
    if ($sth->rows) {
	($biblionumber) =3D $sth->fetchrow;
    } else {
	print "Adding new biblio for <i>$title</i> by $author<br>\n";
	my $sth=3D$dbh->prepare("select max(biblionumber) from biblio");
	$sth->execute;
	($biblionumber) =3D $sth->fetchrow;
	$biblionumber++;
	$sth=3D$dbh->prepare("insert into biblio (biblionumber, title, author,
	    serial, seriestitle, copyrightdate, notes) values ($biblionumber,
	    $q_title, $q_author, $serial, $q_seriestitle, $q_copyrightdate,
	    $q_notes)");
	$sth->execute;
	$sth=3D$dbh->prepare("insert into bibliosubtitle (subtitle, biblionumber)
	    values ($q_subtitle, $biblionumber)");
	$sth->execute;
    }
    my $itemtypeselect=3D'';
    $sth=3D$dbh->prepare("select itemtype,description from itemtypes");
    $sth->execute;
    while (my ($itemtype, $description) =3D $sth->fetchrow) {
	$itemtypeselect.=3D"<option value=3D$itemtype>$itemtype - $description\n";
    }
    my $authortext=3D"by $author";
    ($author) || ($authortext=3D'');
    sectioninfo();
    $sth=3D$dbh->prepare("select BI.isbn,IT.description,BI.volume,BI.number,B=
I.volumeddesc,BI.dewey,BI.subclass from biblioitems BI, itemtypes IT where BI=
.itemtype=3DIT.itemtype and biblionumber=3D$biblionumber");
    $sth->execute;
    my $biblioitemdata=3D'';
    while (my ($isbn, $itemtype, $volume, $number, $volumeddesc, $dewey, $sub=
class) =3D $sth->fetchrow) {
	my $volumeinfo=3D'';
	if ($volume) {
	    if ($number) {
		$volumeinfo=3D"V$volume, N$number";
	    } else {
		$volumeinfo=3D"Vol $volume";
	    }
	}
	if ($volumeddesc) {
	    $volumeinfo.=3D" $volumeddesc";
	}
	$dewey=3D~s/0*$//;
	$biblioitemdata.=3D"<tr><td>$isbn</td><td align=3Dcenter>$itemtype</td><td a=
lign=3Dcenter>$volumeinfo</td><td align=3Dcenter>$dewey$subclass</td></tr>\n";

    }
    if ($biblioitemdata) {
	print << "EOF";
<center>
<p>
<table border=3D1 bgcolor=3D#dddddd>
<tr>
<th colspan=3D4>Existing entries using Biblio number $biblionumber</th>
</tr>
<tr>
<th>ISBN</th><th>Item Type</th><th>Volume</th><th>Classification</th></tr>
$biblioitemdata
</table>
</center>

EOF
    }
    print << "EOF";
<center>
<form>
<table border=3D1 bgcolor=3D#dddddd>
<tr><th colspan=3D4>Section Two: Publication Information for<br><i>$title</i>
    $authortext</th></tr>

<tr><td align=3Dright>Publisher</td><td colspan=3D3><input name=3Dpublisherco=
de size=3D30></td></tr>
<tr><td align=3Dright>Publication Year</td><td><input name=3Dpublicationyear =
size=3D10></td>
<td align=3Dright>Place of Publication</td><td><input name=3Dplace size=3D20>=
</td></tr>
<tr><td align=3Dright>Illustrator</td><td colspan=3D3><input name=3Dillus siz=
e=3D20></td></tr>
<tr><td align=3Dright>Additional Authors<br>(One author per line)</td><td col=
span=3D3><textarea
    name=3Dadditionalauthors rows=3D4 cols=3D30></textarea></td></tr>
<tr><td align=3Dright>Subject Headings<br>(One subject per line)</td><td cols=
pan=3D3><textarea
    name=3Dsubjectheadings rows=3D4 cols=3D30></textarea></td></tr>
<tr><td align=3Dright>Item Type</td><td colspan=3D3><select name=3Ditemtype>$=
itemtypeselect</select></td></tr>
<tr><td align=3Dright>Dewey</td><td><input name=3Ddewey size=3D10></td>
<td align=3Dright>Dewey Subclass</td><td><input name=3Dsubclass size=3D10></t=
d></tr>
<tr><td align=3Dright>ISSN</td><td colspan=3D3><input name=3Dissn size=3D10><=
/td></tr>
<tr><td align=3Dright>LCCN</td><td colspan=3D3><input name=3Dlccn size=3D10><=
/td></tr>
<tr><td align=3Dright>Volume</td><td><input name=3Dvolume size=3D10></td>
<td align=3Dright>Number</td><td><input name=3Dnumber size=3D10></td></tr>
<tr><td align=3Dright>Volume Description</td><td colspan=3D3><input name=3Dvo=
lumeddesc size=3D40></td></tr>
<tr><td align=3Dright>Pages</td><td><input name=3Dpages size=3D10></td>
<td align=3Dright>Size</td><td><input name=3Dsize size=3D10></td></tr>

<tr><td align=3Dright>Notes</td><td colspan=3D3><textarea name=3Dnotes rows=
=3D4 cols=3D50
    wrap=3Dphysical></textarea></td></tr>



</table>
<input type=3Dsubmit value=3D"Add New Bibliography Item">
</center>
<input type=3Dhidden name=3Dbiblionumber value=3D$biblionumber>
<input type=3Dhidden name=3Disbn value=3D$isbn>
<input type=3Dhidden name=3Dnewbiblioitem value=3D1>
</form>
EOF
    print endmenu();
    print endpage();
    exit;
}


sub newbiblioitem {
    my $biblionumber=3D$input->param('biblionumber');
    my $volume=3D$input->param('volume');
    my $q_volume=3D$dbh->quote($volume);
    my $number=3D$input->param('number');
    my $q_number=3D$dbh->quote($number);
    my $classification=3D$input->param('classification');
    my $q_classification=3D$dbh->quote($classification);
    my $itemtype=3D$input->param('itemtype');
    my $q_itemtype=3D$dbh->quote($itemtype);
    my $issn=3D$input->param('issn');
    my $q_issn=3D$dbh->quote($issn);
    my $lccn=3D$input->param('lccn');
    my $q_lccn=3D$dbh->quote($lccn);
    my $dewey=3D$input->param('dewey');
    my $q_dewey=3D$dbh->quote($dewey);
    my $subclass=3D$input->param('subclass');
    my $q_subclass=3D$dbh->quote($subclass);
    my $publicationyear=3D$input->param('publicationyear');
    my $q_publicationyear=3D$dbh->quote($publicationyear);
    my $publishercode=3D$input->param('publishercode');
    my $q_publishercode=3D$dbh->quote($publishercode);
    my $volumedate=3D$input->param('volumedate');
    my $q_volumedate=3D$dbh->quote($volumedate);
    my $volumeddesc=3D$input->param('volumeddesc');
    my $q_volumeddesc=3D$dbh->quote($volumeddesc);
    my $illus=3D$input->param('illus');
    my $q_illus=3D$dbh->quote($illus);
    my $pages=3D$input->param('pages');
    my $q_pages=3D$dbh->quote($pages);
    my $notes=3D$input->param('notes');
    my $q_notes=3D$dbh->quote($notes);
    my $size=3D$input->param('size');
    my $q_size=3D$dbh->quote($size);
    my $place=3D$input->param('place');
    my $q_place=3D$dbh->quote($place);
    my $subjectheadings=3D$input->param('subjectheadings');
    my $additionalauthors=3D$input->param('additionalauthors');
    my $sth=3D$dbh->prepare("select max(biblioitemnumber) from biblioitems");
    $sth->execute;
    ($biblioitemnumber) =3D $sth->fetchrow;
    $biblioitemnumber++;
    ($q_isbn=3D'') if ($q_isbn eq 'NULL');
    $sth=3D$dbh->prepare("insert into biblioitems (biblioitemnumber,
    biblionumber, volume, number, classification, itemtype, isbn, issn, lccn,=
 dewey, subclass,
    publicationyear, publishercode, volumedate, volumeddesc, illus, pages,
    notes, size, place) values ($biblioitemnumber, $biblionumber, $q_volume,
    $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, $q_=
dewey, $q_subclass,
    $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc,
    $q_illus, $q_pages, $q_notes, $q_size, $q_place)");
    $sth->execute;
    my @subjectheadings=3Dsplit(/\n/,$subjectheadings);
    my $subjectheading;
    foreach $subjectheading (@subjectheadings) {
	# remove any line ending characters (Ctrl-J or M)
	$subjectheading=3D~s/\013//g;
	$subjectheading=3D~s/\010//g;
	# convert to upper case
	$subjectheading=3Duc($subjectheading);
	print STDERR "S: $biblionumber, $subjectheading  ";
	chomp ($subjectheading);
	print STDERR "B: ".ord(substr($subjectheading, length($subjectheading)-1, 1)=
)." ";
	while (ord(substr($subjectheading, length($subjectheading)-1, 1))<14) {
	    chop $subjectheading;
	}
	print STDERR "A: ".ord(substr($subjectheading, length($subjectheading)-1, 1)=
)."\n";
	# quote value
	my $q_subjectheading=3D$dbh->quote($subjectheading);
	$sth=3D$dbh->prepare("insert into bibliosubject (biblionumber,subject)
	    values ($biblionumber, $q_subjectheading)");
	$sth->execute;
    }
    my @additionalauthors=3Dsplit(/\n/,$additionalauthors);
    my $additionalauthor;
    foreach $additionalauthor (@additionalauthors) {
	# remove any line ending characters (Ctrl-L or Ctrl-M)
	$additionalauthor=3D~s/\013//g;
	$additionalauthor=3D~s/\010//g;
	# convert to upper case
	$additionalauthor=3Duc($additionalauthor);
	# quote value
	my $q_additionalauthor=3D$dbh->quote($additionalauthor);
	$sth=3D$dbh->prepare("insert into additionalauthors (biblionumber,author)
	    values ($biblionumber, $q_additionalauthor)");
	$sth->execute;
    }
}

sub newitem {
    my $biblionumber=3D$input->param('biblionumber');
    my $biblioitemnumber=3D$input->param('biblioitemnumber');
    my $barcode=3D$input->param('barcode');
    my $itemnotes=3D$input->param('notes');
    my $q_itemnotes=3D$dbh->quote($itemnotes);
    my $replacementprice=3D$input->param('replacementprice');
    ($replacementprice) || ($replacementprice=3D0);
    my $sth=3D$dbh->prepare("select max(itemnumber) from items");
    $sth->execute;
    my ($itemnumber) =3D $sth->fetchrow;
    $itemnumber++;
    my @datearr=3Dlocaltime(time);
    my $date=3D(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
    my $q_homebranch=3D$dbh->quote($input->param('homebranch'));
    $sth=3D$dbh->prepare("insert into items (itemnumber, biblionumber,
    biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateacces=
sioned, replacementprice) values ($itemnumber,
    $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', $q_home=
branch, '$date', $replacementprice)");
    $sth->execute;
}

if ($isbn) {
    my $sth;
    if ($isbn eq 'NULL') {
	$sth=3D$dbh->prepare("select biblionumber,biblioitemnumber from
	biblioitems where biblioitemnumber=3D$biblioitemnumber");
    } else {
	$sth=3D$dbh->prepare("select biblionumber,biblioitemnumber from
	biblioitems where isbn=3D$q_isbn");
    }
    $sth->execute;
    if (my ($biblionumber, $biblioitemnumber) =3D $sth->fetchrow) {
	sectioninfo();
	$sth=3D$dbh->prepare("select I.barcode,I.itemnotes,B.title,B.author from ite=
ms I, biblio B where B.biblionumber=3DI.biblionumber and biblioitemnumber=3D$=
biblioitemnumber");
	$sth->execute;
	my $itemdata=3D'';
	while (my ($barcode, $itemnotes, $title, $author) =3D $sth->fetchrow) {
	    $itemdata.=3D"<tr><td align=3Dcenter>$barcode</td><td><u>$title</u></td>=
<td>$author</td><td>$itemnotes</td></tr>\n";

	}
	if ($itemdata) {
	    print << "EOF";
    <center>
    <p>
    <table border=3D1 bgcolor=3D#dddddd>
    <tr>
    <th colspan=3D4>Existing Items with ISBN $isbn</th>
    </tr>
    <tr>
    <th>Barcode</th><th>Title</th><th>Author</th><th>Notes</th></tr>
    $itemdata
    </table>
    </center>

EOF
	}
	my $sth=3D$dbh->prepare("select max(barcode) from items");
	$sth->execute;
	my ($maxbarcode) =3D $sth->fetchrow;
	$maxbarcode++;
	print << "EOF";
<center>
<h2>Section Three: Specific Item Information</h2>
<form>
<input type=3Dhidden name=3Dnewitem value=3D1>
<input type=3Dhidden name=3Dbiblionumber value=3D$biblionumber>
<input type=3Dhidden name=3Dbiblioitemnumber value=3D$biblioitemnumber>
<table>
<tr><td>BARCODE</td><td><input name=3Dbarcode size=3D10 value=3D$maxbarcode> =
Home Branch: <select name=3Dhomebranch><option value=3D'STWE'>Stewart Element=
ary<option value=3D'MEZ'>Meziadin Elementary</select></td></tr>
</tr><td colspan=3D2>Replacement Price: <input name=3Dreplacementprice size=
=3D10></td></tr>
<tr><td>Notes</td><td><textarea name=3Dnotes rows=3D4 cols=3D40
wrap=3Dphysical></textarea></td></tr>
</table>
<input type=3Dsubmit value=3D"Add Item">
</form>
<h3>ISBN $isbn Information</h3>

</center>
EOF
    } else {
	sectioninfo();
print << "EOF";
<center>
<form>
<input type=3Dhidden name=3Disbn value=3D'$isbn'>
<input type=3Dhidden name=3Dcheckforbiblio value=3D1>
<table border=3D0>
<tr><th colspan=3D2>Section One: Copyright Information</th></tr>
<tr><td>Title</td><td><input name=3Dtitle size=3D40></td></tr>
<tr><td>Subtitle</td><td><input name=3Dsubtitle size=3D40></td></tr>
<tr><td>Author</td><td><input name=3Dauthor size=3D40></td></tr>
<tr><td>Series Title<br>(if applicable)</td><td><input name=3Dseriestitle
    size=3D40></td></tr>
<tr><td>Copyright Date</td><td><input name=3Dcopyrightdate size=3D10></td></t=
r>
<tr><td>Notes</td><td><textarea name=3Dnotes rows=3D4 cols=3D40
    wrap=3Dphysical></textarea></td></tr>
</table>
<input type=3Dsubmit value=3D"Add new Bibliography">
</center>
EOF
    }
} else {
    print << "EOF";
<h2>Adding new items to the Library Inventory</h2>
To add a new item, scan or type the ISBN number:
<br>
<form>
ISBN: <input name=3Disbn>
</form>
<p>
<a href=3Daddbooks.pl?isbn=3DNULL>Enter book with no ISBN</a>
<hr>
Or use the <a href=3Dmarcimport.pl>MARC Importing tool</a>
EOF
}
print endmenu();
print endpage();





sub sectioninfo {
    print << "EOF";
    <center>
    <table border=3D1 width=3D70% bgcolor=3D#bbddbb>
    <tr>
    <td>
    <center>
    Koha stores data in three sections.
    </center>
    <ol>
    <li>The first section records bibliographic data such as title, author and
    copyright for a particular work.
    <li>The second records bibliographic data for a particular publication of=
 that
    work, such as ISBN number, physical description, publisher information, e=
tc.
    <li>The third section holds specific item information, such as the bar co=
de
    number.
    </ul>
    </td>
    </tr>
    </table>
    </center>
EOF

}

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

#
# TODO
#
# Add info on biblioitems and items already entered as you enter new ones
#

my $starttime=3Dgettime();

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


my $input =3D new CGI;
my $dbh=3DC4Connect;
[...10211 lines suppressed...]
    $fields->{'880'}->{'secondindicator'}=3D"Same as associated field";
    $fields->{'880'}->{'subfields'}->{"6"}->{'name'}=3D"Linkage (NR) $a-z Sam=
e as associated field $0-5 Same as associated field $7-9 Same as associated f=
ield";
    $fields->{'880'}->{'subfields'}->{"6"}->{'repeating'}=3D0;
    $fields->{'886'}->{'name'}=3D"FOREIGN MARC INFORMATION FIELD (R)";
    $fields->{'886'}->{'repeating'}=3D1;
    $fields->{'886'}->{'firstindicator'}=3D"Type of field";
    $fields->{'886'}->{'firstindicatorvalues'}->{"0"}=3D"Leader";
    $fields->{'886'}->{'firstindicatorvalues'}->{"1"}=3D"Variable control fie=
lds (002-009)";
    $fields->{'886'}->{'firstindicatorvalues'}->{"2"}=3D"Variable data fields=
 (010-999)";
    $fields->{'886'}->{'secondindicator'}=3D"Undefined";
    $fields->{'886'}->{'subfields'}->{"a"}->{'name'}=3D"Tag of the foreign MA=
RC field (NR)";
    $fields->{'886'}->{'subfields'}->{"a"}->{'repeating'}=3D0;
    $fields->{'886'}->{'subfields'}->{"b"}->{'name'}=3D"Content of the foreig=
n MARC field  (NR)";
    $fields->{'886'}->{'subfields'}->{"b"}->{'repeating'}=3D0;
    $fields->{'886'}->{'subfields'}->{"2"}->{'name'}=3D"Source of data (NR) $=
a-z - Foreign MARC subfield (R) $0-9 - Foreign MARC subfield (R)";
    $fields->{'886'}->{'subfields'}->{"2"}->{'repeating'}=3D0;
;

=09
}



--===============3438059610451092184==--