From bb46f5037eefeceda7397dde40c879670f2e06ae Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Thu, 6 Mar 2025 03:44:43 +0100
Subject: [PATCH] nomoney: fix multi-user

Some transactions with only one contra account, but used multiple times,
or with the actor's own account as the only other contra account, were
erroneously allowed.
---
 plugins/nomoney | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/plugins/nomoney b/plugins/nomoney
index 7b6fcee..48c90a1 100644
--- a/plugins/nomoney
+++ b/plugins/nomoney
@@ -1,6 +1,6 @@
 #!perl
 
-use List::Util qw(none);
+use List::Util qw(none uniqstr);
 
 my @deny_plugins = (
 	"give",
@@ -72,8 +72,9 @@ sub hook_checkout_prepare($class, $cart, $username, $transaction_id, @) {
 			next if not $plugin;
 			next if none { $plugin eq $_ } @deny_plugins;
 
-			my @contra_users = grep {
+			my @contra_users = uniqstr sort grep {
 				not RevBank::Users::is_special($_)
+				and $_ ne $username
 			} map {
 				$_->{user}
 			} $entry->contras;