cmd/set/qra.pl

   1 #
   2 # set the qra locator field
   3 #
   4 # $Id$
   5 #
   6 my ($self, $args)  = @_;
   7 my $user = $self->user;
   8 return (1, "qra locator is now ", $user->qra($args));