diff options
| -rw-r--r-- | AdminPanel/Shared.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/AdminPanel/Shared.pm b/AdminPanel/Shared.pm index 503a0782..dce5061e 100644 --- a/AdminPanel/Shared.pm +++ b/AdminPanel/Shared.pm @@ -29,7 +29,8 @@ our @EXPORT = qw(warningMsgBox msgBox infoMsgBox ask_YesOrNo - ask_OkCancel); + ask_OkCancel + trim); sub warningMsgBox { my ($st) = @_; @@ -141,6 +142,13 @@ sub ask_YesOrNo { return $retVal; } +sub trim { + my ($st) = shift; + $st =~s /^\s+//g; + $st =~s /\s+$//g; + return $st; +} + 1; =head1 NAME |