From: minima <minima>
Date: Thu, 4 Jul 2002 22:04:20 +0000 (+0000)
Subject: fixed pc90
X-Git-Tag: R_1_50~32
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=47d4f39bfd5d0f331c7693c88c1d7842cf9f6548;p=spider.git

fixed pc90
---

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);
 	}