diff options
Diffstat (limited to 'ldap/admin/src/scripts/Dialog.pm')
| -rw-r--r-- | ldap/admin/src/scripts/Dialog.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/ldap/admin/src/scripts/Dialog.pm b/ldap/admin/src/scripts/Dialog.pm index 71fc48a7..e01e6262 100644 --- a/ldap/admin/src/scripts/Dialog.pm +++ b/ldap/admin/src/scripts/Dialog.pm @@ -136,6 +136,7 @@ sub disable { # you can set the 0 to a 1 if the user has chosen to use security sub run { my $self = shift; + my $direction = shift; my $resp = $DialogManager::SAME; # display the dialog text @@ -181,6 +182,12 @@ sub run { } } elsif ($resp == $DialogManager::ERR) { last; + } elsif (!$self->isDisplayed() && ($direction < 0) && + ($resp == $DialogManager::NEXT)) { + # we did not display this dialog, and the current navigation + # direction is BACK, so we should return BACK, to allow + # the user to go back through several dialogs + $resp = $DialogManager::BACK; } } |
