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") {