projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Ticket #31495 Earthlink CDR format
[freeside.git]
/
rt
/
sbin
/
rt-validator.in
diff --git
a/rt/sbin/rt-validator.in
b/rt/sbin/rt-validator.in
index
128e60a
..
f0f1c59
100644
(file)
--- a/
rt/sbin/rt-validator.in
+++ b/
rt/sbin/rt-validator.in
@@
-222,7
+222,7
@@
foreach my $table ( qw(Users Groups) ) {
bind_values => [ $type ],
action => sub {
my $id = shift;
bind_values => [ $type ],
action => sub {
my $id = shift;
- return unless my $a = prompt_action( ['
Delete', 'crea
te'], $msg );
+ return unless my $a = prompt_action( ['
Create', 'dele
te'], $msg );
if ( $a eq 'd' ) {
delete_record( $table, $id );
if ( $a eq 'd' ) {
delete_record( $table, $id );
@@
-1104,7
+1104,7
@@
sub prompt_action {
my $token = shift || join ':', caller;
return '' unless $opt{'resolve'};
my $token = shift || join ':', caller;
return '' unless $opt{'resolve'};
- return
''
if $opt{'force'};
+ return
lc substr $actions->[0], 0, 1
if $opt{'force'};
return $cached_answer{ $token } if exists $cached_answer{ $token };
print $msg, "\n";
return $cached_answer{ $token } if exists $cached_answer{ $token };
print $msg, "\n";