projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.0.23
[freeside.git]
/
rt
/
sbin
/
rt-validator.in
diff --git
a/rt/sbin/rt-validator.in
b/rt/sbin/rt-validator.in
index
128e60a
..
fafc85e
100644
(file)
--- a/
rt/sbin/rt-validator.in
+++ b/
rt/sbin/rt-validator.in
@@
-3,7
+3,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
4
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
5
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-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 );
@@
-267,7
+267,7
@@
push @CHECKS, 'User <-> ACL equivalence group' => sub {
action => sub {
my $id = shift;
return unless prompt(
action => sub {
my $id = shift;
return unless prompt(
- 'Create', "Found a
n
user that has no ACL equivalence group."
+ 'Create', "Found a user that has no ACL equivalence group."
);
my $gid = create_record( 'Groups',
);
my $gid = create_record( 'Groups',
@@
-283,7
+283,7
@@
push @CHECKS, 'User <-> ACL equivalence group' => sub {
action => sub {
my $id = shift;
return unless prompt(
action => sub {
my $id = shift;
return unless prompt(
- 'Delete', "Found a
n
user ACL equivalence group, but there is no user."
+ 'Delete', "Found a user ACL equivalence group, but there is no user."
);
delete_record( 'Groups', $id );
);
delete_record( 'Groups', $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";