Add HasActualPrivilege() to distinguish between * and the real priv.

protogeni/lib/GeniCredential.pm.in

@@ -45,7 +45,7 @@ use GeniResponse;
 use GeniUtil;
 use GeniXML;
 use GeniHRN;
-use emutil qw(TBGetUniqueIndex);
+use emutil;
 use English;
 use XML::Simple;
 use XML::LibXML;
@@ -1024,6 +1024,16 @@ sub HasPrivilege($$)
     return defined( $self->{ 'capabilities' }->{ $p } );
 }
 
+sub HasActualPrivilege($$)
+{
+    my ($self, $p) = @_;
+
+    return 0
+	if (!exists($self->{'capabilities'}));
+
+    return exists($self->{'capabilities'}->{$p}) ? 1 : 0;
+}
+
 sub CheckCredential($;$$)
 {
     my ($credential, $target, $nocheck) = @_;