Ad IsRepoBased() predicate.

apt/APT_Profile.pm.in

 #!/usr/bin/perl -wT
 #
-# Copyright (c) 2007-2016 University of Utah and the Flux Group.
+# Copyright (c) 2007-2017 University of Utah and the Flux Group.
 # 
 # {{{EMULAB-LICENSE
 # 
@@ -256,6 +256,12 @@ sub DESTROY {
     $self->{'DBROW'} = undef;
 }
 
+sub IsRepoBased($) {
+    my ($self) = @_;
+
+    return (defined($self->repourl()) ? 1 : 0);
+}
+
 #
 # Refresh a class instance by reloading from the DB.
 #