X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fadmin_users.pl;h=9f9b72e9f5101c5567023770f645e27a35485090;hb=ec7ea4e66a9c35cbf50ea39d092ad7187435b76e;hp=e32739515673e9c9320c92609b6e36fe0a5199cd;hpb=df8c12f0adaa60f133ba1ac752e619d29fb8d19e;p=scpubgit%2Fstemmatology.git

diff --git a/script/admin_users.pl b/script/admin_users.pl
index e327395..9f9b72e 100644
--- a/script/admin_users.pl
+++ b/script/admin_users.pl
@@ -77,7 +77,14 @@ given ($command) {
             if(!$tradition || !$user) {
                 print "Can't find one of '$username' or '$tradition_id' in the database!\n";
             } else {
-                $user->add_tradition($tradition);
+                if(grep { $userstore->object_to_id($_) 
+                          eq 
+                          $userstore->object_to_id($tradition)} 
+                   @{$user->traditions}) {
+                    $user->remove_tradition($tradition);
+                } else {
+                    $user->add_tradition($tradition);
+                }
                 $userstore->update($tradition);
                 $userstore->update($user);
                 print "OK.\n";