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

CVS: koha moremember.pl,1.2,1.3
by Chris Cornack 21 Feb '01

21 Feb '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv1568 Modified Files: moremember.pl Log Message: Got a link from items on issue thru to item details (like in the circ module) And also stopped already renewed books from being renewable in the issues list Index: moremember.pl =================================================================== RCS file: /cvsroot/koha/koha/moremember.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** moremember.pl 2001/01/31 19:34:12 1.2 --- moremember.pl 2001/02/21 22:17:58 1.3 *************** *** 91,96 **** <P> ! General Notes: <A HREF="popbox.html" onclick="messenger(200,250,'Form that lets you add to and delete notes.'); return false"> ! $data->{'borrowernotes'}</a> <p align=right> <form action=/cgi-bin/koha/memberentry.pl method=post> --- 91,96 ---- <P> ! General Notes:  ! $data->{'borrowernotes'} <p align=right> <form action=/cgi-bin/koha/memberentry.pl method=post> *************** *** 181,185 **** print "<font color=red>"; } ! print "$issue->[$i]{'title'} $issue->[$i]{'barcode'}</td> <TD>$issue->[$i]{'date_due'}</td>"; #find the charge for an item --- 181,187 ---- print "<font color=red>"; } ! print "$issue->[$i]{'title'} ! <a href=/cgi-bin/koha/moredetail.pl?item=$issue->[$i]->{'itemnumber'}&bib=$issue->[$i]->{'biblionumber'}&bi=$issue->[$i]->{'biblioitemnumber'}> ! $issue->[$i]{'barcode'}</a></td> <TD>$issue->[$i]{'date_due'}</td>"; #find the charge for an item *************** *** 197,200 **** --- 199,204 ---- if ($rescount >0){ print "<TD><a href=/cgi-bin/koha/request.pl?bib=$issue->[$i]{'biblionumber'}>On Request - no renewals</a></td></tr>"; + } elsif ($issue->[$i]->{'renewals'} > 0) { + print "<TD>Previously Renewed - no renewals</td></tr>"; } else { print "<TD>";

1 0

CVS: koha/C4/Circulation Circ2.pm,1.12,1.13
by Chris Cornack 18 Feb '01

18 Feb '01

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv24194/C4/Circulation Modified Files: Circ2.pm Log Message: Little fix to the returnbook routine so the correct branchcode is passed to the updatestats routine Index: Circ2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -r1.12 -r1.13 *** Circ2.pm 2001/02/14 00:27:36 1.12 --- Circ2.pm 2001/02/18 22:13:26 1.13 *************** *** 420,424 **** push (@$messages, "<b><font color=red>RESERVED</font></b> for collection by $borrower->{'firstname'} $borrower->{'surname'} ($borrower->{'cardnumber'}) at $branchname"); } ! UpdateStats($env,'branch','return','0','',$iteminformation->{'itemnumber'}); } $dbh->disconnect; --- 420,424 ---- push (@$messages, "<b><font color=red>RESERVED</font></b> for collection by $borrower->{'firstname'} $borrower->{'surname'} ($borrower->{'cardnumber'}) at $branchname"); } ! UpdateStats($env,$env->{'branchcode'},'return','0','',$iteminformation->{'itemnumber'}); } $dbh->disconnect;

1 0

Packaging
by Tonnesen Steve 18 Feb '01

18 Feb '01

Early free form thoughts on packaging Koha. I need to specify directories for things. I'm thinking of using: /usr/share/koha/opac/... /usr/share/koha/intranet/... /usr/lib/perl5/C4/... In my current install, I have two seperate cgi-bin directories for opac and intranet, although they currently are identical in their content. Should I maintain seperate directories in case we want to clean this up later, or should I just lump them into one /usr/share/koha/cgi-bin/ directory and configure apache for both virtual servers to point to this one cgi-bin dir? Is it possible to rearrange files in CVS? It'd be a lot easier for me if the cgi-bin scripts were in a subdirectory (say /scripts/) rather than right in the root of the CVS tree. My quick perusal of the cvs manpage seems to indicate that this isn't possible just using the cvs command, although I suppose we could just add them to the new location and remove from the old location. That would mean losing any cvs history info though. Steve.

2 1

CVS: koha/circ circulation.pl,1.12,1.13
by Chris Cornack 14 Feb '01

14 Feb '01

Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv23468/circ Modified Files: circulation.pl Log Message: A bodgy hack so that hitting enter in issues (with no barcode) prints out the borrowers issue slip and starts a new borrower Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -r1.12 -r1.13 *** circulation.pl 2001/02/14 00:29:17 1.12 --- circulation.pl 2001/02/14 02:41:43 1.13 *************** *** 359,362 **** --- 359,373 ---- my $print=$query->param('print'); my $borrowernumber=$query->param('borrnumber'); + my $barcode=$query->param('barcode'); + # if (!$barcode){ + # $barcode=' '; + # } + if ($barcode eq ''){ + $print='yes'; + + } elsif ($barcode eq ' '){ + $query->param('barcode',''); + $barcode=''; + } if ($print eq 'yes'){ my ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0); *************** *** 375,379 **** remoteprint(\%env,\@issues,$borrower); $query->param('borrnumber','') ! } unless ($noheader) { --- 386,390 ---- remoteprint(\%env,\@issues,$borrower); $query->param('borrnumber','') ! # $borrowernumber=''; } unless ($noheader) { *************** *** 385,389 **** if (my $borrnumber=$query->param('borrnumber')) { my ($borrower, $flags) = getpatroninformation(\%env,$borrnumber,0); - # my ($borrower, $flags) = getpatroninformation(\%env,$borrnumber,0); my $year=$query->param('year'); my $month=$query->param('month'); --- 396,399 ---- *************** *** 675,678 **** --- 685,689 ---- if ($#borrowers == 0) { $query->param('borrnumber', $borrowers[0]->{'borrowernumber'}); + $query->param('barcode',' '); issues(1); return; *************** *** 682,685 **** --- 693,697 ---- print "<input type=hidden name=branch value=$branch>\n"; print "<input type=hidden name=printer value=$printer>\n"; + print "<input type=hidden name=barcode value=\" \">\n"; print "<table border=0 cellspacing=0 cellpadding=5 bgcolor=#dddddd>"; print "<tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black><b>Select a borrower</b></font></th></tr>\n"; *************** *** 704,707 **** --- 716,720 ---- <input type=hidden name=branch value=$branch> <input type=hidden name=printer value=$printer> + <input type=hidden name=barcode value=" "> </form> </td></tr></table>

1 0

CVS: koha-html/intranet-html/includes circulation-top.inc,1.1.1.1,1.2
by Chris Cornack 14 Feb '01

14 Feb '01

Update of /cvsroot/koha/koha-html/intranet-html/includes In directory usw-pr-cvs1:/tmp/cvs-serv11086/intranet-html/includes Modified Files: circulation-top.inc Log Message: Added in code to focus cursor on first form input Index: circulation-top.inc =================================================================== RCS file: /cvsroot/koha/koha-html/intranet-html/includes/circulation-top.inc,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** circulation-top.inc 2001/02/04 20:52:45 1.1.1.1 --- circulation-top.inc 2001/02/14 00:30:08 1.2 *************** *** 24,28 **** parent.location.href=(form.dest.options[myindex].value); } ! if (document.images){ --- 24,35 ---- parent.location.href=(form.dest.options[myindex].value); } ! ! function focusinput() { ! document.forms[0].elements[0].select(); ! document.forms[0].elements[0].focus(); ! document.forms[0].elements[0].focus(); ! } ! ! if (document.images){ *************** *** 39,43 **** </head> <body text="black" bgcolor="white" link="#0000ff" vlink="#0000ff" "3366cc" Alink="#cc3300" ! marginheight=0 marginwidth=0 leftmargin=0 topmargin=0 > --- 46,50 ---- </head> <body text="black" bgcolor="white" link="#0000ff" vlink="#0000ff" "3366cc" Alink="#cc3300" ! marginheight=0 marginwidth=0 leftmargin=0 topmargin=0 onLoad=focusinput()>

1 0

CVS: koha/circ circulation.pl,1.11,1.12
by Chris Cornack 14 Feb '01

14 Feb '01

Update of /cvsroot/koha/koha/circ In directory usw-pr-cvs1:/tmp/cvs-serv10893/circ Modified Files: circulation.pl Log Message: The Horowhenua libraries wanted less patron and item information displaying at returns So Added some if statements to not display patron addresses, and to only display the title of the item These presumably would be changed to suit individual libraries wants Index: circulation.pl =================================================================== RCS file: /cvsroot/koha/koha/circ/circulation.pl,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -r1.11 -r1.12 *** circulation.pl 2001/02/05 17:24:13 1.11 --- circulation.pl 2001/02/14 00:29:17 1.12 *************** *** 218,224 **** <tr><td> Title: $iteminformation->{'title'}<br> Author: $iteminformation->{'author'}<br> Barcode: <a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra onClick="openWindow(this, 'Item', 480, 640)">$iteminformation->{'barcode'}</a><br> ! Date Due: $iteminformation->{'date_due'} </td></tr> </table> --- 218,226 ---- <tr><td> Title: $iteminformation->{'title'}<br> +  </td></tr> </table> *************** *** 755,759 **** } $itemswaiting.="</table>\n"; ! $flaginfotext.="<tr><td bgcolor=$color valign=top>$flag</td><td bgcolor=$color>$flags->{$flag}->{'message'}<br>Overdue items can be seen in the Previous Issues table below</td></tr>\n"; } else { $flaginfotext.="<tr><td bgcolor=$color valign=top>$flag</td><td bgcolor=$color>$flags->{$flag}->{'message'}</td></tr>\n"; --- 757,765 ---- } $itemswaiting.="</table>\n"; ! if ($query->param('module') ne 'returns'){ ! $flaginfotext.="<tr><td bgcolor=$color valign=top>$flag</td><td bgcolor=$color>$flags->{$flag}->{'message'}<br>Overdue items can be seen in the Previous Issues table below</td></tr>\n"; ! } else { ! $flaginfotext.="<tr><td bgcolor=$color valign=top>$flag</td><td bgcolor=$color>$flags->{$flag}->{'message'}</td></tr>\n"; ! } } else { $flaginfotext.="<tr><td bgcolor=$color valign=top>$flag</td><td bgcolor=$color>$flags->{$flag}->{'message'}</td></tr>\n"; *************** *** 767,772 **** <tr><td> <a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'} onClick="openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a> $borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br> ! $borrower->{'streetaddress'} $borrower->{'city'}<br> ! $borrower->{'categorycode'} $flagtext </td></tr> </table> --- 773,783 ---- <tr><td> <a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'} onClick="openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a> $borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br> ! EOF ! if ($query->param('module') ne 'returns'){ ! $patrontable.="$borrower->{'streetaddress'} $borrower->{'city'}<br> ! $borrower->{'categorycode'} "; ! } ! $patrontable.=<< "EOF"; ! $flagtext </td></tr> </table>

1 0

CVS: koha/C4/Circulation Circ2.pm,1.11,1.12
by Chris Cornack 14 Feb '01

14 Feb '01

Update of /cvsroot/koha/koha/C4/Circulation In directory usw-pr-cvs1:/tmp/cvs-serv10801/C4/Circulation Modified Files: Circ2.pm Log Message: Made some changes to checkreserve and find_reserves, so that items are always displayed as reserved when returned, not just once Index: Circ2.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -r1.11 -r1.12 *** Circ2.pm 2001/02/05 17:47:58 1.11 --- Circ2.pm 2001/02/14 00:27:36 1.12 *************** *** 418,422 **** my ($branches) = getbranches(); my $branchname=$branches->{$resrec->{'branchcode'}}->{'branchname'}; ! push (@$messages, "Reserved for collection by $borrower->{'firstname'} $borrower->{'surname'} ($borrower->{'cardnumber'}) at $branchname"); } UpdateStats($env,'branch','return','0','',$iteminformation->{'itemnumber'}); --- 418,422 ---- my ($branches) = getbranches(); my $branchname=$branches->{$resrec->{'branchcode'}}->{'branchname'}; ! push (@$messages, "<b><font color=red>RESERVED</font></b> for collection by $borrower->{'firstname'} $borrower->{'surname'} ($borrower->{'cardnumber'}) at $branchname"); } UpdateStats($env,'branch','return','0','',$iteminformation->{'itemnumber'}); *************** *** 540,544 **** $sth->execute(); my $resrec; ! if (my $data=$sth->fetchrow_hashref) { $resrec=$data; my $const = $data->{'constrainttype'}; --- 540,545 ---- $sth->execute(); my $resrec; ! my $data=$sth->fetchrow_hashref; ! while ($data && $resbor eq '') { $resrec=$data; my $const = $data->{'constrainttype'}; *************** *** 563,566 **** --- 564,568 ---- $csth->finish(); } + $data=$sth->fetchrow_hashref; } $sth->finish; *************** *** 777,781 **** my ($env,$dbh,$itemno) = @_; my ($itemdata) = getiteminformation($env,$itemno,0); ! my $query = "select * from reserves where found is null and biblionumber = $itemdata->{'biblionumber'} and cancellationdate is NULL order by priority,reservedate "; --- 779,785 ---- my ($env,$dbh,$itemno) = @_; my ($itemdata) = getiteminformation($env,$itemno,0); ! my $query = "select * from reserves where ! ((reserves.found = 'W') ! or (reserves.found is null)) and biblionumber = $itemdata->{'biblionumber'} and cancellationdate is NULL order by priority,reservedate "; *************** *** 791,795 **** $resfound = "y"; } ! } elsif ($resrec->{'constrainttype'} eq "a") { $resfound = "y"; } else { --- 795,800 ---- $resfound = "y"; } ! } ! if ($resrec->{'constrainttype'} eq "a") { $resfound = "y"; } else {

1 0

CVS: koha detail.pl,1.1.1.1,1.2
by Chris Cornack 11 Feb '01

11 Feb '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv539 Modified Files: detail.pl Log Message: Little fix so that if the item has no author information, empty () dont disply Index: detail.pl =================================================================== RCS file: /cvsroot/koha/koha/detail.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** detail.pl 2000/12/19 23:45:51 1.1.1.1 --- detail.pl 2001/02/11 22:44:34 1.2 *************** *** 47,51 **** } my @temp=split('\t',$items[0]); ! print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); print <<printend --- 47,55 ---- } my @temp=split('\t',$items[0]); ! if ($dat->{'author'} ne ''){ ! print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); ! } else { ! print mkheadr(3,"$dat->{'title'} $temp[4]"); ! } print <<printend

1 0

CVS: koha search.pl,1.1.1.1,1.2
by Chris Cornack 11 Feb '01

11 Feb '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv32557 Modified Files: search.pl Log Message: Changing the front page search of the intranet site to just be a keyword search Index: search.pl =================================================================== RCS file: /cvsroot/koha/koha/search.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** search.pl 2000/12/19 23:45:53 1.1.1.1 --- search.pl 2001/02/11 22:38:17 1.2 *************** *** 41,44 **** --- 41,45 ---- $search{'keyword'}=$keyword; $search{'front'}=validate($input->param('front')); + my $author=validate($input->param('author')); $search{'author'}=$author; *************** *** 86,90 **** ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset); } elsif ($search{'front'} ne '') { ! ($count,@results)&FrontSearch(\$blah,'intra',\%search,$num,$offset); # print "hey"; }elsif ($title ne '' || $author ne '' || $dewey ne '' || $class ne '') { --- 87,92 ---- ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset); } elsif ($search{'front'} ne '') { ! $search{'keyword'}=$search{'front'}; ! ($count,@results)&KeywordSearch(\$blah,'intra',\%search,$num,$offset); # print "hey"; }elsif ($title ne '' || $author ne '' || $dewey ne '' || $class ne '') {

1 0

CVS: koha shelves.pl,1.1,1.2
by Steve Tonnesen 08 Feb '01

08 Feb '01

Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv24927/koha Modified Files: shelves.pl Log Message: Added header and log substition variables Index: shelves.pl =================================================================== RCS file: /cvsroot/koha/koha/shelves.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** shelves.pl 2001/02/07 20:27:16 1.1 --- shelves.pl 2001/02/07 23:47:43 1.2 *************** *** 4,7 **** --- 4,9 ---- # $Header$ # + # Change log is at the bottom of the file + # use strict; *************** *** 115,118 **** --- 117,123 ---- # # $Log$ + # Revision 1.2 2001/02/07 23:47:43 tonnesen + # Added header and log substition variables + # # Revision 1.1 2001/02/07 20:27:16 tonnesen # Start of code to implement virtual bookshelves in Koha.

1 0