From 500996984578497a01ce3c202adbcf526fd9bb2f Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Sun, 10 Feb 2008 01:41:50 -0600 Subject: [PATCH] using Warn and not print for debugging purpose Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Dates.pm | 2 +- C4/Members.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/Dates.pm b/C4/Dates.pm index 061cc98dde..f10582b182 100644 --- a/C4/Dates.pm +++ b/C4/Dates.pm @@ -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 ($;$) { diff --git a/C4/Members.pm b/C4/Members.pm index 6accd17a6d..7a9da97861 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -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; -- 2.39.5