From 9bba713bb625cf635088b76492e1e655ad62cbb0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 16 Jun 2004 23:59:45 +0000
Subject: [PATCH] fix deletion of accounts connected to virtual hosts

---
 FS/FS/svc_acct.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 156523089..0824fbe3a 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -474,7 +474,7 @@ sub delete {
     if qsearch( 'svc_forward', { 'dstsvc' => $self->svcnum } );
 
   return "Can't delete an account with (svc_www) web service!"
-    if qsearch( 'svc_www', { 'usersvc' => $self->usersvc } );
+    if qsearch( 'svc_www', { 'usersvc' => $self->svcnum } );
 
   # what about records in session ? (they should refer to history table)
 
-- 
2.20.1