aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--AdminPanel/Hosts/GHosts.pm44
1 files changed, 2 insertions, 42 deletions
diff --git a/AdminPanel/Hosts/GHosts.pm b/AdminPanel/Hosts/GHosts.pm
index 2e9751e..9f82ab0 100644
--- a/AdminPanel/Hosts/GHosts.pm
+++ b/AdminPanel/Hosts/GHosts.pm
@@ -20,17 +20,8 @@
package AdminPanel::Hosts::GHosts;
-###############################################
-##
-## graphic related routines for managing user
-##
-###############################################
-
-
use Modern::Perl 2011;
use autodie;
-# TODO evaluate if Moose is too heavy and use Moo
-# instead
use Moose;
use POSIX qw(ceil);
use utf8;
@@ -67,7 +58,7 @@ sub start {
#=============================================================
-=head2 _createUserTable
+=head2 _addHostDialog
=head3 INPUT
@@ -75,9 +66,7 @@ sub start {
=head3 DESCRIPTION
-This function create the User table to be added to the replace
-point of the tab widget. Note this function is meant for internal
-use only
+This subroutine creates the Host dialog to add host definitions
=cut
@@ -245,33 +234,4 @@ sub manageHostsDialog {
yui::YUI::app()->setApplicationTitle($appTitle);
}
-#=============================================================
-
-=head2 _skipShortcut
-
-=head3 INPUT
-
- $self: this object
- $label: an item label to be cleaned by keyboard shortcut "&"
-
-=head3 OUTPUT
-
- $label: cleaned label
-
-=head3 DESCRIPTION
-
- This internal method is a workaround to label that are
- changed by "&" due to keyborad shortcut.
-
-=cut
-
-#=============================================================
-sub _skipShortcut {
- my ($self, $label) = @_;
-
- $label =~ s/&// if ($label);
-
- return ($label);
-}
-
1;