version 1.3, 2003/04/18 06:07:27
|
version 1.4, 2003/06/11 02:04:35
|
Line 430 sub InitiateTransaction {
|
Line 430 sub InitiateTransaction {
|
my $self = shift; |
my $self = shift; |
my $data = shift; |
my $data = shift; |
|
|
|
Debug(1, "initiating transaction: ".$data); |
if($self->{State} ne "Idle") { |
if($self->{State} ne "Idle") { |
|
Debug(0," .. but not idle here\n"); |
return -1; # Error indicator. |
return -1; # Error indicator. |
} |
} |
# if the transaction is to be encrypted encrypt the data: |
# if the transaction is to be encrypted encrypt the data: |