Subversion Repositories VORC

Rev

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

Rev 175 Rev 177
Line 917... Line 917...
917
  my ($change, $wb_act_code, $shift_id, $user_id) = @_;
917
  my ($change, $wb_act_code, $shift_id, $user_id) = @_;
918
  use REST::Client;
918
  use REST::Client;
919
  use JSON;
919
  use JSON;
920
  my $headers = { Authorization => '601037851507c624' };
920
  my $headers = { Authorization => '601037851507c624' };
921
  my $client = REST::Client->new();
921
  my $client = REST::Client->new();
-
 
922
  $client->setHost('https://core.wrstbnd.io');
-
 
923
 
922
  my ($accountid) = $dbh->selectrow_array ("select wrstbnd_accountid from RCid_ticket_link left join ticket on MVPid = id where RCid = ? and year = year(now())", undef, $user_id);
924
  my ($accountid) = $dbh->selectrow_array ("select wrstbnd_accountid from RCid_ticket_link left join ticket on MVPid = id where RCid = ? and year = year(now())", undef, $user_id);
Line 923... Line 925...
923
  
925
  
924
  if ($change eq "add" or $change eq "override") {
926
  if ($change eq "add" or $change eq "override") {