Subversion Repositories VORC

Rev

Rev 226 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 226 Rev 241
Line 266... Line 266...
266
                   : ($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")
266
                   : ($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")
267
                                                                  : ($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")
267
                                                                  : ($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")
268
                                                                                                                                                        : ""
268
                                                                                                                                                        : ""
269
          )
269
          )
270
        ])
270
        ])
271
      ) } @{$dbh->selectall_arrayref ("select name, role, RCid, derby_name from v_shift_announcer where id = ?", undef, $R->{$primary})} ])
271
      ) } @{$dbh->selectall_arrayref ("select name, role, RCid, derby_name from v_shift_announcer where id = ? and role <> ?", undef, $R->{$primary}, "SPO")} ])
272
    ]);
272
    ]);
273
  }
273
  }
274
  $dbh->disconnect;
274
  $dbh->disconnect;