Correcting DEBUG var

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl
index 2203f5d..598ee26 100755 (executable)
--- a/tools/picture-upload.pl
+++ b/tools/picture-upload.pl
@@ -7,7 +7,7 @@ use C4::Context;
 use C4::Auth;
 use C4::Output;
 
-my $DEBUG = 1;
+my $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
 
 #my $destdir = "/usr/local/koha/intranet/htdocs/intranet-tmpl/images/patronpictures";
 #my $uploadfile = shift @ARGV;