diff options
author | 2008-01-01 03:14:28 +0000 | |
---|---|---|
committer | 2008-01-01 03:14:28 +0000 | |
commit | 38b2f34b140cf6497f3836a1d605926f1fc33247 (patch) | |
tree | f7313ad9cff230139612dd618c7d9923bedf2266 | |
parent | fully implement get_jobs (diff) | |
download | scire-38b2f34b140cf6497f3836a1d605926f1fc33247.tar.gz scire-38b2f34b140cf6497f3836a1d605926f1fc33247.tar.bz2 scire-38b2f34b140cf6497f3836a1d605926f1fc33247.zip |
add status_id param to get_jobs()
svn path=/branches/new-fu/; revision=306
-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; |