fixed another unwanted closure...

1 files changed, 5 insertions, 5 deletions

diff --git a/rh-bin/musicgrid.cgi b/rh-bin/musicgrid.cgi
index 6699ef8..440f95b 100755
--- a/rh-bin/musicgrid.cgi
+++ b/rh-bin/musicgrid.cgi
@@ -38,11 +38,11 @@ my $cmd = $q->request_method();
 
 sub set_clock
 {
-  my ($ctx) = @_;
+  my ($ctx, $query) = @_;
 
-  my $dow = $q->param('DOW');
-  my $hour = $q->param('HOUR');
-  my $shortname = $q->param('NAME');
+  my $dow = $query->param('DOW');
+  my $hour = $query->param('HOUR');
+  my $shortname = $query->param('NAME');
 
   if(!defined $dow) {
     return 400 ,"mandatory field DOW is missing";
@@ -86,7 +86,7 @@ if(!defined $username) {
         }
       }
       elsif($cmd eq "POST") {
-        ($responsecode, $errorstring) = set_clock($ctx);
+        ($responsecode, $errorstring) = set_clock($ctx, $q);
       }
       else {
         $responsecode = 405;