- Koha-devel - lists.koha-community.org

[dchud@umich.edu: RE: [oss4lib-discuss] ala report?]
by Chris Cormack 23 Jun '01

23 Jun '01

----- Forwarded message from Daniel Chudnov <dchud(a)umich.edu> ----- On Thu, 21 Jun 2001, Dave Bretthauer wrote: > Now, Dan, prepare to eat your own words that there won't be an open source > ILS anytime soon: Willem Scholten gave an amazing demo of an open source > ILS called openbook. You can test drive it at > http://openbook.trfoundation.org/ and the 0.8 beta source code should be > available in a couple of weeks. Linux and Windows installers will complete This is just a rewrite (or is it a fork) of Koha, right? Did they talk about this issue? The following showed up on the koha list about a month ago: http://lists.katipo.co.nz/public/koha/2001/000252.html I very much hope those in both camps (if I'm reading the winds properly and there are indeed two camps) at least attempt to stay in sync w/r/to core issues such as data models and APIs. It looks like Steve from BC is putting a lot of work into MARC support within Koha, based apparently on Art's efforts with Pytheas, which is great to see. It would not be great to see that work and openbook totally diverge in areas such as this when they came from the same codebase. So for now I'll stand by my words about an ILS, and won't change them until we first see an open source SAP equivalent. Actually if there were an free SAP equivalent we could just build the acquisitions and EDI and circulation pieces out of that, right? :) -Dan _______________________________________________ oss4lib-discuss(a)lists.sourceforge.net http://lists.sourceforge.net/lists/listinfo/oss4lib-discuss see also http://oss4lib.org ----- End forwarded message ----- -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

1 0

Re: [oss4lib-discuss] ala report?
by Chris Cormack 23 Jun '01

23 Jun '01

Hi All, Im one of the programmers working on Koha. And I can agree with what Willem says, I have been in touch with Griogair who has been working on OpenBook. And im looking forward to their next source release. > Further is should be understood that we FULLY support KOHA's efforts, but > also all of us should understand that KOHA is written with a local important > solution in mind, where we are looking at a broader picture. I clearly have > no interest to start a KOHA versus OpenBook war, because the library world > as it is already to fragmented and to crowded with religious wars (lets just > look at meta data and 856 field wars to name a few or MARC21 versus UNIMARC > etc....) > However while this was true for the intitial release of Koha, and in fact most of the work im doing on it is still at the behest of the local library. It is in general no longer true, Steve is working hard on MARC support for koha as Daniel noted. And has also made lots of other changes to better suit koha to the libraries he is involved withs needs. Including a web based circulation, and a really tight circulation API. Which should make building circulation interfaces a doddle. So really what I would like to see is more communication between the Koha and OpenBook camps. Id really like to see them become much more similair to each other, so that the differences wont be in functionality, but in the chosen language to implement that functionality. Koha is perl, OpenBook is PHP. The more we can help each other the better the library system we end up with will be. Chris -- Chris Cormack Programmer 025 500 789 Katipo Communications Ltd chris(a)katipo.co.nz www.katipo.co.nz

1 0

CVS: koha readingrec.pl,1.1.1.1,1.2
by Chris Cormack 20 Jun '01

20 Jun '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv30477 Modified Files: readingrec.pl Log Message: Made a little change to allow the reading record to be sorted, and now defaults to the last 50 items borrowed Index: readingrec.pl =================================================================== RCS file: /cvsroot/koha/koha/readingrec.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** readingrec.pl 2000/12/19 23:45:53 1.1.1.1 --- readingrec.pl 2001/06/20 03:36:01 1.2 *************** *** 15,19 **** #get borrower details my $data=borrdata('',$bornum); ! my ($count,$issues)=allissues($bornum); --- 15,30 ---- #get borrower details my $data=borrdata('',$bornum); ! my $order=$input->param('order'); ! my $order2=$order; ! if ($order2 eq ''){ ! $order2="date_due desc"; ! } ! my $limit=$input->param('limit'); ! if ($limit eq 'full'){ ! $limit=0; ! } else { ! $limit=50; ! } ! my ($count,$issues)=allissues($bornum,$order2,$limit); *************** *** 24,30 **** print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}"); print mktablehdr(); ! print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE')); for (my $i=0;$i<$count;$i++){ ! print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'}); } print mktableft(); --- 35,42 ---- print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}"); print mktablehdr(); ! print mktablerow(1,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=full>Full output</a>"); ! print mktablerow(4,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=title&limit=$limit>TITLE</a>","<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=author&limit=$limit>AUTHOR</a>","<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=$limit>DATE</a>","Volume"); for (my $i=0;$i<$count;$i++){ ! print mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'}); } print mktableft();

1 0

CVS: koha/C4 Search.pm,1.2,1.3
by Chris Cormack 20 Jun '01

20 Jun '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv30477/C4 Modified Files: Search.pm Log Message: Made a little change to allow the reading record to be sorted, and now defaults to the last 50 items borrowed Index: Search.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Search.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** Search.pm 2001/02/05 18:48:15 1.2 --- Search.pm 2001/06/20 03:36:01 1.3 *************** *** 575,579 **** items.holdingbranch "; # print $type; ! if ($type ne 'intra'){ $query.=" and (items.itemlost<>1 or items.itemlost is NULL) and (wthdrawn <> 1 or wthdrawn is NULL)"; --- 575,579 ---- items.holdingbranch "; # print $type; ! if ($type eq 'opac'){ $query.=" and (items.itemlost<>1 or items.itemlost is NULL) and (wthdrawn <> 1 or wthdrawn is NULL)"; *************** *** 925,935 **** sub allissues { ! my ($bornum)=@_; my $dbh=C4Connect; my $query; ! $query="Select * from issues,biblio,items where borrowernumber='$bornum' and ! items.itemnumber=issues.itemnumber and ! items.biblionumber=biblio.biblionumber order ! by date_due"; #print $query; my $sth=$dbh->prepare($query); --- 925,940 ---- sub allissues { ! my ($bornum,$order,$limit)=@_; my $dbh=C4Connect; my $query; ! $query="Select * from issues,biblio,items,biblioitems ! where borrowernumber='$bornum' and ! items.biblioitemnumber=biblioitems.biblioitemnumber and ! items.itemnumber=issues.itemnumber and ! items.biblionumber=biblio.biblionumber"; ! $query.=" order by $order"; ! if ($limit !=0){ ! $query.=" limit $limit"; ! } #print $query; my $sth=$dbh->prepare($query); *************** *** 1037,1041 **** my $query="Select * from items where biblionumber=$bibnum "; ! if ($type ne 'intra'){ $query.=" and (itemlost <>1 or itemlost is NULL) and (wthdrawn <> 1 or wthdrawn is NULL)"; --- 1042,1046 ---- my $query="Select * from items where biblionumber=$bibnum "; ! if ($type eq 'opac'){ $query.=" and (itemlost <>1 or itemlost is NULL) and (wthdrawn <> 1 or wthdrawn is NULL)"; *************** *** 1086,1090 **** } # if ($count == 0){ ! my $query2="Select * from aqorders where biblionumber=$bibnum"; my $sth2=$dbh->prepare($query2); $sth2->execute; --- 1091,1096 ---- } # if ($count == 0){ ! my $query2="Select * from aqorders where biblionumber=$bibnum and ! datecancellationprinted is NULL"; my $sth2=$dbh->prepare($query2); $sth2->execute;

1 0

The OpenBook people
by Nicholas Stephen Rosasco 12 Jun '01

12 Jun '01

Would the rest of you find it useful if I tried to get the OpenBook people (the Koha West team that added a bunch of features) to open their unreleased code to us... or add them into our repository as a forked project? I'd like to think that combining the two featuresets is probably our best bet long term, since it would get you Katipo/NZ guys and the Waitt Foundation group on the same page. Opinions? NSR

2 1

packaging of koha
by Tonnesen Steve 18 May '01

18 May '01

Okay, I've started working on making Debian packages of Koha. Since I'm a Debian user, that's my packaging system of choice. Alien should be able to make good rpm packages out of the deb packages. On to my ponderings: I've got the packages installing the following so far: /usr/share/koha/intranet/cgi-bin/koha/ (contains all the scripts) /usr/share/koha/intranet/htdocs (contains the intranet html and imgs) /usr/share/koha/opac/cgi-bin/koha/ /usr/share/koha/opac/htdocs/ /usr/lib/perl5/C4/ (Contains the C4 modules) /etc/koha.conf Still to be done: 1. Either create and populate, or update existing Koha mysql table. a. Initial population of the database may be tricky. I really think we need web-interfaces to more of the MySQL. Things like itemtypes, in particular, should be editable by the librarians directly. a. We need a system for updating the tables with new releases. Things like adding in new tables, or adding new fields to existing tables. I've handled this in the past by creating a version table that holds a version number for the table. The version number is the same as the koha release number. A script can then check the version number of the existing database and make all modifications necessary to bring the database up to date with the current release. (ie if installing v 1.5, and current database is v 1.2, make all necessary changes from 1.2 to 1.3, from 1.3 to 1.4, and from 1.4 to 1.5). 2. Set up the /etc/koha.conf configuration file with local settings. 3. Modify apache configuration files. This gets tricky. In debian, these files are in either /etc/apache/ or /etc/apache-ssl I have the following in my httpd.conf ---------------------------- <VirtualHost 192.168.1.240> ServerName opac.cmsd.bc.ca DocumentRoot /usr/share/koha/opac/htdocs/ ScriptAlias /cgi-bin/ /usr/share/koha/opac/cgi-bin/ Options +Includes AddHandler server-parsed .html </VirtualHost> <VirtualHost 192.168.1.241> ServerName librarian.cmsd.bc.ca DocumentRoot /usr/share/koha/intranet/htdocs/ ScriptAlias /cgi-bin/ /usr/share/koha/intranet/cgi-bin/ Options +Includes XBitHack On AddHandler server-parsed .html </VirtualHost> ---------------------------- Some tricky parts: 1. Obviously, the ip and servername need to be altered on a per-site basis. 2. The server has to have the aliased ips set up and ready to go. This requires modifying init files that I'm not comfortable doing even on Debian systems, much less any distribution generically. This will probably still have to be done manually. 3. The intranet virtual server needs authentication of one sort or another. I maintain accounts with a separate system that I developed called K12Admin which administers staff and student accounts for my entire district. These accounts are synced into the Koha member database and apache basic authentication files. I use basic authentication to authenticate the intranet virtual host and plan to do the same for giving members access to their library information. What are other people using?

3 2

CVS: koha database.mysql,1.1,1.2
by Chris Cormack 18 May '01

18 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv14890 Modified Files: database.mysql Log Message: Changed the interim field in the items table, to be paidfor The horowhenua librarians wanted a place to store information when a lost item was paid for. The information is removed if the item is ever returned. The interim field was a hangover from the previous system and wasnt be used so I stole it :-) Index: database.mysql =================================================================== RCS file: /cvsroot/koha/koha/database.mysql,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** database.mysql 2001/03/12 22:43:47 1.1 --- database.mysql 2001/05/17 22:36:07 1.2 *************** *** 577,581 **** itemnotes text, holdingbranch varchar(4), ! interim tinyint(1), timestamp timestamp(14), KEY itembarcodeidx (barcode), --- 577,581 ---- itemnotes text, holdingbranch varchar(4), ! paidfor text, timestamp timestamp(14), KEY itembarcodeidx (barcode),

1 0

Re: [Koha-devel] Question...
by Ben Ostrowsky 17 May '01

17 May '01

>What useful things could I do? My PERL is quite rusty, and wasn't much >use (pretty minimal in fact) to begin with... I should say you're a perfect tester-outter. If you have a system on which you can install a fresh copy of some sort of Linux, you could test out the installation instructions and make note of where things go wrong. The INSTALL file isn't yet enough for a novice to download Koha and start using it, but it ought to be... Ben (just another tester-outter)

4 4

CVS: koha/C4 Accounts2.pm,1.7,1.8
by Chris Cormack 16 May '01

16 May '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv21906/C4 Modified Files: Accounts2.pm Log Message: More little bug fixes in the manual credits section Index: Accounts2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -r1.7 -r1.8 *** Accounts2.pm 2001/05/09 23:22:10 1.7 --- Accounts2.pm 2001/05/15 23:05:43 1.8 *************** *** 201,205 **** my $date = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3]; my $bor="$borrower->{'firstname'} $borrower->{'surname'} $borrower->{'cardnumber'}"; ! my $upitem="Update items set itemnotes='Paid for by $bor $date' where itemnumber='$itemnum'"; $sth=$dbh->prepare($upitem); $sth->execute; --- 201,205 ---- my $date = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3]; my $bor="$borrower->{'firstname'} $borrower->{'surname'} $borrower->{'cardnumber'}"; ! my $upitem="Update items set paidfor='Paid for by $bor $date' where itemnumber='$itemnum'"; $sth=$dbh->prepare($upitem); $sth->execute; *************** *** 216,220 **** my $amountleft=$amount; ! if ($type eq 'C' || $type eq 'BAY'){ my $amount2=$amount*-1; $amountleft=fixcredit('',$bornum,$amount2); --- 216,220 ---- my $amountleft=$amount; ! if ($type eq 'C' || $type eq 'BAY' || $type eq 'WORK'){ my $amount2=$amount*-1; $amountleft=fixcredit('',$bornum,$amount2); *************** *** 262,266 **** # get lines with outstanding amounts to offset my $query = "select * from accountlines ! where (borrowernumber = '$bornumber') and (amountoutstanding<>0) order by date"; my $sth = $dbh->prepare($query); --- 262,266 ---- # get lines with outstanding amounts to offset my $query = "select * from accountlines ! where (borrowernumber = '$bornumber') and (amountoutstanding >0) order by date"; my $sth = $dbh->prepare($query); *************** *** 273,277 **** $amountleft = $amountleft - $accdata->{'amountoutstanding'}; } else { ! $newamtos = $accdata->{'amountoutstanding'} + $amountleft; $amountleft = 0; } --- 273,277 ---- $amountleft = $amountleft - $accdata->{'amountoutstanding'}; } else { ! $newamtos = $accdata->{'amountoutstanding'} - $amountleft; $amountleft = 0; }

3 2

CVS: koha/C4/Circulation Circ2.pm,1.17,1.18
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv20579/C4/Circulation Modified Files: Circ2.pm Log Message: Changed the way a lost book being returned is handled. If the book has already been paid for a credit is added to their account. And offset against any current charges Index: Circ2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -r1.17 -r1.18 *** Circ2.pm 2001/05/02 22:38:26 1.17 --- Circ2.pm 2001/05/09 23:29:00 1.18 *************** *** 420,424 **** --- 420,465 ---- $usth->execute(); $usth->finish; + #check if any credit is left if so writeoff other accounts] my $nextaccntno = getnextacctno($env,$data->{'borrowernumber'},$dbh); + if ($amountleft < 0){ + $amountleft*=-1; + } + if ($amountleft > 0){ + # print $amountleft; + my $query = "select * from accountlines + where (borrowernumber = '$data->{'borrowernumber'}') and (amountoutstanding >0) + order by date"; + my $sth = $dbh->prepare($query); + $sth->execute; + # offset transactions + my $newamtos; + my $accdata; + while (($accdata=$sth->fetchrow_hashref) and ($amountleft>0)){ + if ($accdata->{'amountoutstanding'} < $amountleft) { + $newamtos = 0; + $amountleft = $amountleft - $accdata->{'amountoutstanding'}; + } else { + $newamtos = $accdata->{'amountoutstanding'} - $amountleft; + $amountleft = 0; + } + my $thisacct = $accdata->{accountno}; + my $updquery = "update accountlines set amountoutstanding= '$newamtos' + where (borrowernumber = '$data->{'borrowernumber'}') and (accountno='$thisacct')"; + my $usth = $dbh->prepare($updquery); + $usth->execute; + $usth->finish; + $updquery = "insert into accountoffsets + (borrowernumber, accountno, offsetaccount, offsetamount) + values + ($data->{'borrowernumber'},$accdata->{'accountno'},$nextaccntno,$newamtos)"; + my $usth = $dbh->prepare($updquery); + $usth->execute; + $usth->finish; + } + } + if ($amountleft > 0){ + $amountleft*=-1; + } + $sth->finish; my $desc="Book Returned ".$iteminformation->{'barcode'}; $uquery = "insert into accountlines *************** *** 463,467 **** my ($env,$patroninformation,$dbh) = @_; my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, $dbh); ! if ($amount>0) { my %flaginfo; $flaginfo{'message'}=sprintf "Patron owes \$%.02f", $amount; --- 504,508 ---- my ($env,$patroninformation,$dbh) = @_; my $amount = checkaccount($env,$patroninformation->{'borrowernumber'}, $dbh); ! if ($amount > 0) { my %flaginfo; $flaginfo{'message'}=sprintf "Patron owes \$%.02f", $amount; *************** *** 470,473 **** --- 511,519 ---- } $flags{'CHARGES'}=\%flaginfo; + } elsif ($amount < 0){ + my %flaginfo; + $amount=$amount*-1; + $flaginfo{'message'}=sprintf "Patron has credit of \$%.02f", $amount; + $flags{'CHARGES'}=\%flaginfo; } if ($patroninformation->{'gonenoaddress'} == 1) {

1 0