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

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

CVS: koha updateitem.pl,1.1.1.1,1.2
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv20351 Modified Files: updateitem.pl Log Message: Set up so marking a item lost, adds a charge for the replacement price to a borrowers record (if it is on issue) Index: updateitem.pl =================================================================== RCS file: /cvsroot/koha/koha/updateitem.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** updateitem.pl 2000/12/19 23:45:53 1.1.1.1 --- updateitem.pl 2001/05/09 23:26:11 1.2 *************** *** 6,17 **** use C4::Acquisitions; use C4::Output; my $input= new CGI; - #print $input->header; - #print $input->dump; - - #my $title=checkinp($input->param('Title')); - #my $author=checkinp($input->param('Author')); my $bibnum=checkinp($input->param('bibnum')); my $itemnum=checkinp($input->param('itemnumber')); --- 6,15 ---- use C4::Acquisitions; use C4::Output; + use C4::Circulation::Circ2; + use C4::Accounts2; + my $env; my $input= new CGI; my $bibnum=checkinp($input->param('bibnum')); my $itemnum=checkinp($input->param('itemnumber')); *************** *** 24,31 **** #need to do barcode check my $barcode=$input->param('Barcode'); - #modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes); my $bibitemnum=checkinp($input->param('bibitemnum')); - #my $olditemtype my $itemtype=checkinp($input->param('Item')); my $isbn=checkinp($input->param('ISBN')); --- 22,27 ---- *************** *** 39,47 **** my $dewey; my $subclass; if ($itemtype ne 'NF'){ $classification=$class; } if ($class =~/[0-9]+/){ - # print $class; $dewey= $class; $dewey=~ s/[a-z]+//gi; --- 35,43 ---- my $dewey; my $subclass; + my $override=$input->param('override'); if ($itemtype ne 'NF'){ $classification=$class; } if ($class =~/[0-9]+/){ $dewey= $class; $dewey=~ s/[a-z]+//gi; *************** *** 54,58 **** $classification=$temp[0]; $subclass=$temp[1]; - # print $classification,$dewey,$subclass; }else{ $dewey=''; --- 50,53 ---- *************** *** 61,80 **** my $pages=checkinp($input->param('Pages')); my $volumeddesc=checkinp($input->param('Volume')); - - #have to check how many items are attached to this bibitem, if one, just change it, - #if more than one, we must create a new one. - #my $number=countitems($bibitemnum); - #if ($number > 1){ - # print $number; - #check if bibitemneeds modifying - # my $needsmod=needsmod($bibitemnum,$itemtype); - # if ($needsmod != 1){ - # $bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification); - # } - #} - #modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc); - moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn); ! print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum"); #print $bibitemnum; --- 56,118 ---- my $pages=checkinp($input->param('Pages')); my $volumeddesc=checkinp($input->param('Volume')); ! if ($wthdrawn == 0 && $override ne 'yes'){ ! moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn); ! if ($lost ==1){ ! my $dbh=C4Connect; ! my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)"); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! if ($data->{'borrowernumber'} ne '') { ! #item on issue add replacement cost to borrowers record ! my $accountno=getnextacctno($env,$data->{'borrowernumber'},$dbh); ! my $item=getiteminformation($env, $itemnum); ! my $account="Insert into accountlines ! (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber) ! values ! ('$data->{'borrowernumber'}','$accountno',now(),'$item->{'replacementprice'}', ! 'Lost Item $item->{'title'} $item->{'barcode'}','L', ! '$item->{'replacementprice'}','$itemnum')"; ! my $sth2=$dbh->prepare($account); ! # print $input->header; ! # print $account; ! $sth2->execute; ! $sth2->finish; ! } ! $sth->finish; ! } ! print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum"); ! } else { ! ! # print "marking cancelled"; ! #need to check if it is on reserve or issued ! my $dbh=C4Connect; ! my $flag=0; ! my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum); ! # print $resbor; ! if ($resbor){ ! print $input->header; ! print "The biblio or biblioitem this item belongs to has a reserve on it"; ! $flag=1; ! } ! my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)"); ! $sth->execute; ! my $data=$sth->fetchrow_hashref; ! if ($data->{'borrowernumber'} ne '') { ! print $input->header; ! print "<p>Item is on issue"; ! $flag=1; ! } ! $sth->finish; ! $dbh->disconnect; ! if ($flag == 1){ ! my $url=$input->self_url; ! $url.="&override=yes"; ! print "<p> <a href=$url>Cancel Anyway</a>   or <a href=\"\">Back</a>"; ! }else { ! moditem('loan',$itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn); ! print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum"); ! } ! } #print $bibitemnum; *************** *** 85,86 **** --- 123,127 ---- return($inp); } + + #sub checkissue{ +

1 0

CVS: koha renewscript.pl,1.1.1.1,1.2
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv20049 Modified Files: renewscript.pl Log Message: Fixed so renewing a rental item adds a charge Index: renewscript.pl =================================================================== RCS file: /cvsroot/koha/koha/renewscript.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** renewscript.pl 2000/12/19 23:45:53 1.1.1.1 --- renewscript.pl 2001/05/09 23:23:52 1.2 *************** *** 31,34 **** --- 31,35 ---- #check its status my $status=renewstatus(\%env,$bornum,$key); + # print $status; if ($status == 1){ renewbook(\%env,$bornum,$key);

1 0

CVS: koha mancredit.pl,1.1,1.2 maninvoice.pl,1.1,1.2
by Chris Cormack 10 May '01

10 May '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv19677 Modified Files: mancredit.pl maninvoice.pl Log Message: Added facility to do a cash refund. Also HLT allows ppl to work off their bill,so added a facility to do manual credit for that Index: mancredit.pl =================================================================== RCS file: /cvsroot/koha/koha/mancredit.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** mancredit.pl 2001/05/02 21:08:56 1.1 --- mancredit.pl 2001/05/09 23:22:10 1.2 *************** *** 39,42 **** --- 39,43 ---- <option value=C>Credit</option> <option value=BAY>Baycorp Adjustment</option> + <option value=WORK>Worked off</option> </select> </td></tr> Index: maninvoice.pl =================================================================== RCS file: /cvsroot/koha/koha/maninvoice.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** maninvoice.pl 2001/05/02 21:08:56 1.1 --- maninvoice.pl 2001/05/09 23:22:10 1.2 *************** *** 17,20 **** --- 17,21 ---- my $add=$input->param('add'); if ($add){ + # print $input->header; my $itemnum=$input->param('itemnum'); my $desc=$input->param('desc'); *************** *** 41,44 **** --- 42,46 ---- <option value=N>New Card</option> <option value=M>Sundry</option> + <option value=REF>Cash Refund</option> </select> </td></tr>

1 0

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

10 May '01

Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv19677/C4 Modified Files: Accounts2.pm Log Message: Added facility to do a cash refund. Also HLT allows ppl to work off their bill,so added a facility to do manual credit for that Index: Accounts2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -r1.6 -r1.7 *** Accounts2.pm 2001/05/02 21:13:15 1.6 --- Accounts2.pm 2001/05/09 23:22:10 1.7 *************** *** 16,20 **** @ISA = qw(Exporter); ! @EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], --- 16,21 ---- @ISA = qw(Exporter); ! @EXPORT = qw(&recordpayment &fixaccounts &makepayment &manualinvoice ! &getnextacctno); %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 225,228 **** --- 226,232 ---- $desc="Lost Item"; } + if ($type eq 'REF'){ + $amountleft=refund('',$bornum,$amount); + } if ($itemnum ne ''){ my $sth=$dbh->prepare("Select * from items where barcode='$itemnum'"); *************** *** 262,265 **** --- 266,270 ---- my $sth = $dbh->prepare($query); $sth->execute; + # print $query; # offset transactions while (($accdata=$sth->fetchrow_hashref) and ($amountleft>0)){ *************** *** 268,274 **** --- 273,327 ---- $amountleft = $amountleft - $accdata->{'amountoutstanding'}; } else { + $newamtos = $accdata->{'amountoutstanding'} + $amountleft; + $amountleft = 0; + } + my $thisacct = $accdata->{accountno}; + $updquery = "update accountlines set amountoutstanding= '$newamtos' + where (borrowernumber = '$bornumber') and (accountno='$thisacct')"; + my $usth = $dbh->prepare($updquery); + $usth->execute; + $usth->finish; + $updquery = "insert into accountoffsets + (borrowernumber, accountno, offsetaccount, offsetamount) + values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)"; + my $usth = $dbh->prepare($updquery); + $usth->execute; + $usth->finish; + } + $sth->finish; + $dbh->disconnect; + return($amountleft); + } + + sub refund{ + #here we update both the accountoffsets and the account lines + my ($env,$bornumber,$data)=@_; + my $dbh=C4Connect; + my $updquery = ""; + my $newamtos = 0; + my $accdata = ""; + # my $branch=$env->{'branchcode'}; + my $amountleft = $data *-1; + + # begin transaction + my $nextaccntno = getnextacctno($env,$bornumber,$dbh); + # 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); + $sth->execute; + # print $query; + # print $amountleft; + # offset transactions + 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; } + # print $amountleft; my $thisacct = $accdata->{accountno}; $updquery = "update accountlines set amountoutstanding= '$newamtos'

1 0

CVS: koha/C4/Circulation Renewals2.pm,1.1.1.1,1.2
by Chris Cormack 09 May '01

09 May '01

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv19303/C4/Circulation Modified Files: Renewals2.pm Log Message: Renewing a rental or pay item from the borrowers record screen Now adds a charge to the borrowers account Index: Renewals2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Renewals2.pm,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** Renewals2.pm 2000/12/19 23:45:56 1.1.1.1 --- Renewals2.pm 2001/05/09 00:05:57 1.2 *************** *** 13,16 **** --- 13,19 ---- use C4::Database; use C4::Stats; + use C4::Accounts2; + use C4::Circulation::Circ2; + use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); *************** *** 130,134 **** --- 133,151 ---- $sth->finish; UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno); + my ($charge,$type)=calc_charges($env, $itemno, $bornum); + if ($charge > 0){ + my $accountno=getnextacctno($env,$bornum,$dbh); + my $item=getiteminformation($env, $itemno); + my $account="Insert into accountlines + (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber) + values + ('$bornum','$accountno',now(),$charge,'Renewal of Rental Item $item->{'title'} $item->{'barcode'}','Rent',$charge,'$itemno')"; + $sth=$dbh->prepare($account); + $sth->execute; + $sth->finish; + # print $account; + } $dbh->disconnect; + # return(); }

1 0