diff --git a/protogeni/lib/GeniTicket.pm.in b/protogeni/lib/GeniTicket.pm.in
index edeb7869c7de148d7185159a12884bea352da1c0..b46e0413a311f8b4964b2d64647832f746b9c6d9 100644
--- a/protogeni/lib/GeniTicket.pm.in
+++ b/protogeni/lib/GeniTicket.pm.in
@@ -508,6 +508,24 @@ sub SetSlice($$)
     return 0;
 }
 
+sub SliceTicket($$)
+{
+    my ($class, $slice) = @_;
+
+    my $slice_uuid = $slice->uuid();
+
+    my $query_result =
+	DBQueryWarn("select idx from geni_tickets ".
+		    "where slice_uuid='$slice_uuid'");
+    return undef
+	if (!$query_result);
+    return undef
+	if ($query_result->numrows != 1);
+
+    my ($idx) = $query_result->fetchrow_array();
+    return GeniTicket->Lookup($idx);
+}
+
 #
 # Return the rspec in XML for the ticket.
 #