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

using Warn and not print for debugging purpose

Browse source 
Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Henri-Damien LAURENT 2008-02-10 01:41:50 -06:00 committed by Joshua Ferraro
parent 552d77c8ad
commit 5009969845
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
C4/Dates.pm
View file

@ -120,7 +120,7 @@ sub init ($;$$) {
($format_map{$dformat}) or croak
"Invalid date format '$dformat' from " . ((scalar(@_) >= 2) ? 'argument' : 'system preferences');
$self->{'dmy_arrayref'} = [((@_) ? $self->dmy_map(shift) : localtime )] ;
$debug and print STDERR "(during init) \@\$self->{'dmy_arrayref'}: " . join(' ',@{$self->{'dmy_arrayref'}}) . "\n";
$debug and warn "(during init) \@\$self->{'dmy_arrayref'}: " . join(' ',@{$self->{'dmy_arrayref'}}) . "\n";
return $self;
}
sub output ($;$) {

2
C4/Members.pm
View file

@ -547,7 +547,7 @@ sub GetMemberIssuesAndFines {
"Select count(*) from issues where borrowernumber='$borrowernumber' and
returndate is NULL";
$debug and print $query, "\n";
$debug and warn $query."\n";
my $sth = $dbh->prepare($query);
$sth->execute;
my $data = $sth->fetchrow_hashref;