freeside/FS/FS svc_acct.pm,1.109.2.43,1.109.2.44

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv10694

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	svc_acct.pm 
Log Message:
fix deletion of accounts connected to virtual hosts

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.109.2.43
retrieving revision 1.109.2.44
diff -u -d -r1.109.2.43 -r1.109.2.44
--- svc_acct.pm	8 May 2004 07:47:01 -0000	1.109.2.43
+++ svc_acct.pm	16 Jun 2004 23:59:45 -0000	1.109.2.44
@@ -474,7 +474,7 @@
     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)