Removed usePrototype flag, its activated always now.

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

diff --git a/gosa-si/server/events/mailqueue_com.pm b/gosa-si/server/events/mailqueue_com.pm
index 87642ebd0248f9d533b15c510736099e71a84051..0107493facd04b3cacdf8bde2835ace521ac60ea 100644 (file)
--- a/gosa-si/server/events/mailqueue_com.pm
+++ b/gosa-si/server/events/mailqueue_com.pm
@@ -21,22 +21,25 @@ be automatically imported by GOsa-SI if it is under F</usr/lib/gosa-si/server/E<
 =cut
 
 package mailqueue_com;
-use Exporter;
-@ISA = qw(Exporter);
-my @events = (
-    "get_events",
-    "mailqueue_query",
-    "mailqueue_header",
-);
-@EXPORT = @events;
 
 use strict;
 use warnings;
+
+use Exporter;
 use GOSA::GosaSupportDaemon;
 use Data::Dumper;
 use Time::HiRes qw( usleep);
 use MIME::Base64;
 
+our @ISA = qw(Exporter);
+
+my @events = (
+    "get_events",
+    "mailqueue_query",
+    "mailqueue_header",
+);
+
+our @EXPORT = @events;
 
 BEGIN {}
 
@@ -87,7 +90,7 @@ sub mailqueue_query {
     my ($sql, $res);
 
     if( defined $jobdb_id) {
-        my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=jobdb_id";
+        my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=$jobdb_id";
         &main::daemon_log("$session_id DEBUG: $sql_statement", 7); 
         my $res = $main::job_db->exec_statement($sql_statement);
     }
@@ -170,7 +173,7 @@ sub mailqueue_header {
     my ($sql, $res);
 
     if( defined $jobdb_id) {
-        my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=jobdb_id";
+        my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=$jobdb_id";
         &main::daemon_log("$session_id DEBUG: $sql_statement", 7); 
         my $res = $main::job_db->exec_statement($sql_statement);
     }