6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.3 2002/12/01 22:26:59 joko |
10 |
|
## + minor cosmetics for logging |
11 |
|
## |
12 |
## Revision 1.2 2002/12/01 04:43:25 joko |
## Revision 1.2 2002/12/01 04:43:25 joko |
13 |
## + mapping deatil entries may now be either an ARRAY or a HASH |
## + mapping deatil entries may now be either an ARRAY or a HASH |
14 |
## + erase flag is used now (for export-operations) |
## + erase flag is used now (for export-operations) |
463 |
print "\n" if $self->{verbose}; |
print "\n" if $self->{verbose}; |
464 |
|
|
465 |
# build user-message from some stats |
# build user-message from some stats |
466 |
my $msg = "stats: $tc"; |
my $msg = "statistics: $tc"; |
467 |
|
|
468 |
if ($tc->{error_per_row}) { |
if ($tc->{error_per_row}) { |
469 |
$msg .= "\n"; |
$msg .= "\n"; |