From 3249c6f581f90ade1bdbc23d233cc0fc452bfceb Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 28 Jan 2014 10:22:16 +0100
Subject: Fixed Shared POD

---
 lib/AdminPanel/Shared.pm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'lib/AdminPanel/Shared.pm')

diff --git a/lib/AdminPanel/Shared.pm b/lib/AdminPanel/Shared.pm
index 583b214..5aceca1 100644
--- a/lib/AdminPanel/Shared.pm
+++ b/lib/AdminPanel/Shared.pm
@@ -106,6 +106,13 @@ Version 0.01
 
 our $VERSION = '0.01';
 
+=head1 License
+
+GPL2 license content text, it can be used to be shown
+in dialogs.
+
+=cut
+
 our $License = N_("This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2, or (at your option)
@@ -455,7 +462,7 @@ sub AboutDialog {
     my ($opts) = @_;
     
     # Credits dialog
-    sub Credits {
+    sub _Credits {
         my ($opts) = @_;
         
         my $factory  = yui::YUI::widgetFactory;
@@ -551,7 +558,7 @@ sub AboutDialog {
     }
     
     # License dialog
-    sub License {
+    sub _License {
         my ($license) = @_;
         
         my $factory = yui::YUI::widgetFactory;
@@ -635,10 +642,10 @@ sub AboutDialog {
             my $widget = $event->widget();
 
             if($widget == $licenseButton) {
-                License($opts->{license}) if exists $opts->{license};
+                _License($opts->{license}) if exists $opts->{license};
             }
             elsif ($widget == $creditsButton) {
-                Credits($opts);
+                _Credits($opts);
             }
             elsif ($widget == $closeButton) {
                 last;
-- 
cgit v1.2.1