| Line 248... |
Line 248... |
| 248 |
: ($user->{department}->{OFF} > 1 or $LVL > 4) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=lookup&RCid=$$_[2]&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "ADD USER")
|
248 |
: ($user->{department}->{OFF} > 1 or $LVL > 4) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=lookup&RCid=$$_[2]&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "ADD USER")
|
| 249 |
: ($user->{department}->{OFF} > 0 and signUpEligible ($user, $R) and $now < $cutoff) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "SIGN UP")
|
249 |
: ($user->{department}->{OFF} > 0 and signUpEligible ($user, $R) and $now < $cutoff) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "SIGN UP")
|
| 250 |
: ""
|
250 |
: ""
|
| 251 |
)
|
251 |
)
|
| 252 |
])
|
252 |
])
|
| 253 |
) } $dbh->selectall_array ("select name, role, RCid, derby_name from v_shift_officiating where id = ?", undef, $R->{$primary}) ])
|
253 |
) } @{$dbh->selectall_arrayref ("select name, role, RCid, derby_name from v_shift_officiating where id = ?", undef, $R->{$primary})} ])
|
| 254 |
]);
|
254 |
]);
|
| 255 |
# print $h->br;
|
255 |
# print $h->br;
|
| 256 |
print $h->div ({ class=>"index", style=>"max-width:610px" }, [ $h->p ({ class=>"heading" }, [ "Announcer Sign-ups:" ]),
|
256 |
print $h->div ({ class=>"index", style=>"max-width:610px" }, [ $h->p ({ class=>"heading" }, [ "Announcer Sign-ups:" ]),
|
| 257 |
$h->ul ( [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
|
257 |
$h->ul ( [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
|
| 258 |
$h->div ({ class=>"lisp0" }, [
|
258 |
$h->div ({ class=>"lisp0" }, [
|
| Line 264... |
Line 264... |
| 264 |
: ($user->{department}->{ANN} > 1 or $LVL > 4) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=lookup&RCid=$$_[2]&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "ADD USER")
|
264 |
: ($user->{department}->{ANN} > 1 or $LVL > 4) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=lookup&RCid=$$_[2]&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "ADD USER")
|
| 265 |
: ($user->{department}->{ANN} > 0 and signUpEligible ($user, $R) and $now < $cutoff) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "SIGN UP")
|
265 |
: ($user->{department}->{ANN} > 0 and signUpEligible ($user, $R) and $now < $cutoff) ? $h->button ({ onClick=>"window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$R->{$primary}&role=$$_[1]','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "SIGN UP")
|
| 266 |
: ""
|
266 |
: ""
|
| 267 |
)
|
267 |
)
|
| 268 |
])
|
268 |
])
|
| 269 |
) } $dbh->selectall_array ("select name, role, RCid, derby_name from v_shift_announcer where id = ?", undef, $R->{$primary}) ])
|
269 |
) } @{$dbh->selectall_arrayref ("select name, role, RCid, derby_name from v_shift_announcer where id = ?", undef, $R->{$primary})} ])
|
| 270 |
]);
|
270 |
]);
|
| 271 |
}
|
271 |
}
|
| 272 |
$dbh->disconnect;
|
272 |
$dbh->disconnect;
|
| Line 394... |
Line 394... |
| 394 |
|
394 |
|
| 395 |
my $sub_name = (caller(0))[3];
|
395 |
my $sub_name = (caller(0))[3];
|
| Line 396... |
Line 396... |
| 396 |
$sub_name =~ s/^main::select_//;
|
396 |
$sub_name =~ s/^main::select_//;
|
| 397 |
|
397 |
|
| 398 |
my $dbh = WebDB::connect ();
|
398 |
my $dbh = WebDB::connect ();
|
| Line 399... |
Line 399... |
| 399 |
push @options, map { @{$_} } $dbh->selectall_array ("select distinct restrictions from game where restrictions <> '' order by restrictions");
|
399 |
push @options, map { @{$_} } @{$dbh->selectall_arrayref ("select distinct restrictions from game where restrictions <> '' order by restrictions")};
|
| 400 |
$dbh->disconnect ();
|
400 |
$dbh->disconnect ();
|
| Line 408... |
Line 408... |
| 408 |
|
408 |
|
| 409 |
my $sub_name = (caller(0))[3];
|
409 |
my $sub_name = (caller(0))[3];
|
| Line 410... |
Line 410... |
| 410 |
$sub_name =~ s/^main::select_//;
|
410 |
$sub_name =~ s/^main::select_//;
|
| 411 |
|
411 |
|
| 412 |
my $dbh = WebDB::connect ();
|
412 |
my $dbh = WebDB::connect ();
|
| Line 413... |
Line 413... |
| 413 |
push @options, map { @{$_} } $dbh->selectall_array ("select distinct type from game order by type");
|
413 |
push @options, map { @{$_} } @{$dbh->selectall_arrayref ("select distinct type from game order by type")};
|
| 414 |
$dbh->disconnect ();
|
414 |
$dbh->disconnect ();
|