Updated some sieve templates

[gosa.git] / gosa-si / server / events / opsi_com.pm

diff --git a/gosa-si/server/events/opsi_com.pm b/gosa-si/server/events/opsi_com.pm
index 6b9f2b761025b2ab043360734c441354bfd67632..c6fee306ac2a0b02d626b75da569738457fd5b31 100644 (file)
--- a/gosa-si/server/events/opsi_com.pm
+++ b/gosa-si/server/events/opsi_com.pm
@@ -4,10 +4,18 @@
 
 
 package opsi_com;
+
+use strict;
+use warnings;
+
 use Exporter;
 use UNIVERSAL 'isa';
+use GOSA::GosaSupportDaemon;
+use Data::Dumper;
+use XML::Quote qw(:all);
+
+our @ISA = qw(Exporter);
 
-@ISA = qw(Exporter);
 my @events = (
     "get_events",
     "opsi_install_client",
@@ -44,13 +52,9 @@ my @events = (
     "opsi_unboundHostFromLicense",
     "opsi_test",
    );
-@EXPORT = @events;
 
-use strict;
-use warnings;
-use GOSA::GosaSupportDaemon;
-use Data::Dumper;
-use XML::Quote qw(:all);
+our @EXPORT = @events;
+
 
 BEGIN {}
 
@@ -2664,10 +2668,6 @@ sub _getProductStates_hash {
 sub _get_full_product_host_information {
        my %arg = ( 'hostId' => undef, @_ );
 
-       if (not defined $arg{hostId}) {
-               return ("function requires hostId as parameter", 1);
-       }
-
        my $res = &_callOpsi( method => 'getFullProductHostInformation_list',  params => [$arg{hostId}]);
        my ($res_error, $res_error_str) = &check_opsi_res($res);
        if ($res_error){ return ((caller(0))[3]." : ".$res_error_str, 1); }