X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=e2efad560fac2a7c3ae1b04ae71692953dcd80ea;hb=ec71999de3f6f9d5014ff76bb1e489e7ab4b1136;hp=65aab42bdf164ed52a686ae40611955288b260b9;hpb=f155969d600561b9ef151a7ce2494a0c89aed033;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 65aab42b..e2efad56 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -425,6 +425,11 @@ sub is_arcluster
 	return $self->{sort} eq 'R';
 }
 
+sub is_ak1a
+{
+	my $self = shift;
+	return $self->{sort} eq 'A';
+}
 1;
 __END__