aboutsummaryrefslogtreecommitdiffstats
path: root/AdminPanel/Hosts/GHosts.pm
diff options
context:
space:
mode:
authorMatteo Pasotti <matteo.pasotti@gmail.com>2014-01-12 00:48:29 +0100
committerMatteo Pasotti <matteo.pasotti@gmail.com>2014-01-12 00:48:29 +0100
commite09c0e78c3e46bfc842f3c7fdbf0d01c90087710 (patch)
tree9a09b4e12ece87b26505bd69261606426d78fc17 /AdminPanel/Hosts/GHosts.pm
parentbaff51023a13c8c14ff41efbd76523802236b090 (diff)
downloadmanatools-e09c0e78c3e46bfc842f3c7fdbf0d01c90087710.tar
manatools-e09c0e78c3e46bfc842f3c7fdbf0d01c90087710.tar.gz
manatools-e09c0e78c3e46bfc842f3c7fdbf0d01c90087710.tar.bz2
manatools-e09c0e78c3e46bfc842f3c7fdbf0d01c90087710.tar.xz
manatools-e09c0e78c3e46bfc842f3c7fdbf0d01c90087710.zip
- dropping old comments
Diffstat (limited to 'AdminPanel/Hosts/GHosts.pm')
-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 2e9751e7..9f82ab0c 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;