MARVAL-1626942: Prepare for tooling get order

stockholmuniversity · Aug 24, 2020 · 912f803 · 912f803
1 parent 84cc9c4
commit 912f803
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/SU/API/NexusCardOrdering.pm b/SU/API/NexusCardOrdering.pm
@@ -224,6 +224,25 @@ sub get_orderid
     return $orderId;
 }
 
+sub get_order
+{
+    my ($self, $id) = @_;
+
+    my $response = $self->do_request("GET", "order/$id");
+
+    my $code = $self->request_code;
+    if ($code == 404)
+    {
+        warn "No orders not found";
+        return undef;
+    }
+    elsif ($code != 200)
+    {
+        die "unknown response code $code"
+    }
+    return $response;
+}
+
 sub set_lookback
 {
     my ($self, $date) = @_;