From 0c8c837b469a4ea122a2305617237945148a342d Mon Sep 17 00:00:00 2001
From: olwen <olwen>
Date: Tue, 21 Dec 1999 04:31:52 +0000
Subject: [PATCH] change to debug_msg

---
 C4/InterfaceCDK.pm | 6 +++++-
 owtest.pl          | 3 ++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/C4/InterfaceCDK.pm b/C4/InterfaceCDK.pm
index 5fae1b5..56b2872 100755
--- a/C4/InterfaceCDK.pm
+++ b/C4/InterfaceCDK.pm
@@ -177,7 +177,11 @@ sub msg_yn {
 
 sub debug_msg {
   my ($env,$text)=@_;
-  popupLabel (["Debug </R>$text"]);
+  if ($env->{'telnet'} eq "Y") {
+    popupLabel (["Debug </R>$text"]);
+  } else {
+    print "****DEBUG $text****";
+  }  
   return();
 }
 
diff --git a/owtest.pl b/owtest.pl
index 17eb03c..0bcb9c2 100755
--- a/owtest.pl
+++ b/owtest.pl
@@ -19,8 +19,9 @@ my %env = (
 #Login(\%env);
 $env{'branchcode'} = "C";
 $env{'usercode'} = "olwen";
+$env{'telnet'} = "Y";
 
- Start_circ(\%env);
+Start_circ(\%env);
 
 #my@date=Issue();
 #print @date;