diff options
-rwxr-xr-x | server/scireserver.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/server/scireserver.pl b/server/scireserver.pl index d8e27c3..9329f5c 100755 --- a/server/scireserver.pl +++ b/server/scireserver.pl @@ -198,6 +198,7 @@ sub identify_client { } sub get_jobs { + my $status_id = shift; my $query = <<'EndOfQuery'; SELECT jobs.jobid FROM jobs NATURAL JOIN jobs_clients NATURAL JOIN job_conditions NATURAL JOIN job_history @@ -211,7 +212,7 @@ EndOfQuery debug("Query is $query"); $sth = $dbh->prepare($query); - $sth->execute($client_id,$status_id); + $sth->execute($client_id, $status_id); my $jobs_ref = $sth->fetchall_arrayref(); # Don't ask me...ask the guys in #perl :P my @jobs = map { @$_ } @$jobs_ref; |