X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=e2efad560fac2a7c3ae1b04ae71692953dcd80ea;hb=e51d0aa9293d8821c285ff573906a032e959d0c0;hp=65aab42bdf164ed52a686ae40611955288b260b9;hpb=9995de8c1bfcb9ed980ab0ef12e4d66564c04105;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__