fixed pc90

diff --git a/cmd/set/pc90.pl b/cmd/set/pc90.pl
index 0aa8bea7f811f7d85b77fb73583a93d5bdd142a0..cf90651614633013f49730d28dce55f5986680ef 100644 (file)
--- a/cmd/set/pc90.pl
+++ b/cmd/set/pc90.pl
@@ -19,7 +19,7 @@ foreach $call (@args) {
        if ($user) {
                $user->wantpc90(1);
                $user->put;
-               push @out, $self->msg('pc90s', $call);
+               push @out, $self->msg('set', 'PC90', $call);
        } else {
                push @out, $self->msg('e3', "Set PC90", $call);
        }

diff --git a/cmd/unset/pc90.pl b/cmd/unset/pc90.pl
index 466fc4ceb8ff878067bc435c02f8669f3d0969fb..51dd21471388e19f914128ec303eb044fb72790b 100644 (file)
--- a/cmd/unset/pc90.pl
+++ b/cmd/unset/pc90.pl
@@ -18,7 +18,8 @@ foreach $call (@args) {
        my $user = DXUser->get_current($call);
        if ($user) {
                $user->wantpc90(0);
-               push @out, $self->msg('pc90u', $call);
+               $user->put;
+               push @out, $self->msg('unset', 'PC90', $call);
        } else {
                push @out, $self->msg('e3', "Unset PC90", $call);
        }