index ac934d53bde4e33c9e5280ccb719eedf0b8d10ae..9a6a89880245ba48ddb1ca75552dcafe9b925c0e 100644 (file)
package databases;
+
+use strict;
+use warnings;
+
use Exporter;
-@ISA = qw(Exporter);
+use GOSA::GosaSupportDaemon;
+use Data::Dumper;
+
+our @ISA = qw(Exporter);
+
my @events = (
"get_events",
"query_jobdb",
"query_fai_release",
"count_fai_release",
);
-@EXPORT = @events;
-use strict;
-use warnings;
-use GOSA::GosaSupportDaemon;
-use Data::Dumper;
+our @EXPORT = @events;
BEGIN {}
#}
# set job to status 'done', job will be deleted automatically
- my $sql_statement = "UPDATE $main::job_queue_tn ".
- "SET status='done', modified='1' ".
- "$where";
+ my $sql_statement = "UPDATE $main::job_queue_tn SET status='done', modified='1', periodic='none' $where";
&main::daemon_log("$session_id DEBUG: $sql_statement", 7);
my $res = $main::job_db->update_dbentry( $sql_statement );