From 47d4f39bfd5d0f331c7693c88c1d7842cf9f6548 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 4 Jul 2002 22:04:20 +0000
Subject: [PATCH] fixed pc90

---
 cmd/set/pc90.pl   | 2 +-
 cmd/unset/pc90.pl | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/cmd/set/pc90.pl b/cmd/set/pc90.pl
index 0aa8bea7..cf906516 100644
--- 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 466fc4ce..51dd2147 100644
--- 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);
 	}
-- 
2.43.0