#
# set the qra locator field
#
# $Id$
#
my ($self, $args)  = @_;
my $user = $self->user;
return (1, "qra locator is now ", $user->qra($args));