From 7221f2374a3c82504fa89853ea32a75d1b8cdf9c Mon Sep 17 00:00:00 2001 From: Joshua Ferraro Date: Fri, 20 Jun 2008 17:00:58 -0500 Subject: [PATCH] patch from cnighs, fixing warn in Context.pm --- C4/Context.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Context.pm b/C4/Context.pm index 88bd1ad61d..3cba0ff3fe 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -77,6 +77,7 @@ use DBI; use ZOOM; use XML::Simple; use C4::Boolean; +use C4::Debug; =head1 NAME @@ -911,7 +912,7 @@ sub set_shelves_userenv ($$) { sub get_shelves_userenv () { my $active; unless ($active = $context->{userenv}->{$context->{activeuser}}) { - warn "get_shelves_userenv cannot retrieve context->{userenv}->{context->{activeuser}}"; + $debug and warn "get_shelves_userenv cannot retrieve context->{userenv}->{context->{activeuser}}"; return undef; } my $pubshelves = $active->{pubshelves} or undef; -- 2.39.5