bug 7641 follow-up: remove some unconditionnal warns

This commit is contained in:
Paul Poulain 2012-03-29 15:10:34 +02:00
parent b7a6071cf5
commit 0a44448bfb

View file

@ -1098,7 +1098,6 @@ sub ModReserve {
if ( defined( $suspend_until ) ) {
if ( $suspend_until ) {
$suspend_until = C4::Dates->new( $suspend_until )->output("iso");
warn "SUSPEND UNTIL: $suspend_until";
$dbh->do("UPDATE reserves SET suspend = 1, suspend_until = ? WHERE biblionumber = ? AND borrowernumber = ?", undef, ( $suspend_until, $biblio, $borrower ) );
} else {
$dbh->do("UPDATE reserves SET suspend_until = NULL WHERE biblionumber = ? AND borrowernumber = ?", undef, ( $biblio, $borrower ) );
@ -1559,8 +1558,6 @@ sub SuspendAll {
my $suspend_until = $params{'suspend_until'} || undef;
my $suspend = defined( $params{'suspend'} ) ? $params{'suspend'} : 1;
warn "C4::Reserves::SuspendAll( borrowernumber => $borrowernumber, biblionumber => $biblionumber, suspend_until => $suspend_until, suspend => $suspend )";
$suspend_until = C4::Dates->new( $suspend_until )->output("iso") if ( defined( $suspend_until ) );
return unless ( $borrowernumber || $biblionumber );