Browse Source

change to debug_msg

master
olwen 22 years ago
parent
commit
0c8c837b46
  1. 6
      C4/InterfaceCDK.pm
  2. 3
      owtest.pl

6
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();
}

3
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;
Loading…
Cancel
Save