Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Minor SIP cleanup, conditionalize warnings.

Browse source 
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Joe Atzberger 2008-08-27 09:44:28 -05:00 committed by Galen Charlton
parent 1e284039c1
commit a01f4056f1
3 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/SIP/ILS.pm
View file

@ -146,7 +146,7 @@ sub checkout {
} else {
$circ->do_checkout();
if ($circ->ok){
warn "circ is ok";
$debug and warn "circ is ok";
# If the item is already associated with this patron, then
# we're renewing it.
$circ->renew_ok($item->{patron} && ($item->{patron} eq $patron_id));
@ -160,7 +160,7 @@ sub checkout {
$patron_id, join(', ', @{$patron->{items}}));
}
else {
syslog("LOG_DEBUG", "ILS::Checkout Issue failed");
syslog("LOG_ERR", "ILS::Checkout Issue failed");
}
}
# END TRANSACTION

4
C4/SIP/ILS/Item.pm
View file

@ -82,7 +82,7 @@ sub new {
$item->{patron} = $borrower->{'cardnumber'};
my @reserves = (@{ GetReservesFromBiblionumber($item->{biblionumber}) });
$item->{hold_queue} = [ sort priority_sort @reserves ];
$item->{joetest} = 111;
# $item->{joetest} = 111;
$self = $item;
bless $self, $type;
@ -209,7 +209,7 @@ sub print_line {
sub available {
my ($self, $for_patron) = @_;
my $count = (defined $self->{hold_queue}) ? scalar @{$self->{hold_queue}} : 0;
print STDERR "availability check: hold_queue size $count\n";
$debug and print STDERR "availability check: hold_queue size $count\n";
if (defined($self->{patron_id})) {
($self->{patron_id} eq $for_patron) or return 0;
return ($count ? 0 : 1);

3
C4/SIP/example_institution_dump.sh Executable file
View file

@ -0,0 +1,3 @@
#!/bin/bash
perl -I ./ -e 'use Data::Dumper; use ILS; use Sip::Configuration; $conf=Sip::Configuration->new("SIPconfig.xml"); print Dumper($conf->{institutions}->{"MAIN"}),"\n";'