--- rpms/smeserver-subversion/contribs7/smeserver-subversion-1.4-AddHooksToUSerAndGroupDeleteEvents.patch	2008/02/25 22:51:53	1.1
+++ rpms/smeserver-subversion/contribs7/smeserver-subversion-1.4-AddHooksToUSerAndGroupDeleteEvents.patch	2008/03/01 21:01:45	1.2
@@ -1,6 +1,6 @@
 --- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list.AddHooksToUSerAndGroupDeleteEvents	2008-02-25 22:28:36.000000000 +0100
 +++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list	2008-02-25 22:27:32.000000000 +0100
-@@ -0,0 +1,56 @@
+@@ -0,0 +1,58 @@
 +#!/usr/bin/perl -w
 +
 +package esmith;
@@ -16,15 +16,17 @@
 +# Delete the user from subversion repositories
 +#------------------------------------------------------------
 +
-+die "Username argument missing." unless defined ($userName);
++die "Username argument missing." unless defined ($item);
++
++my @entries = qw();
 +
 +if ($event eq 'user-delete') {
 +
-+    my @entries = qw(UsersWrite UsersRead);
++    @entries = qw(UsersWrite UsersRead);
 +
 +} elsif ($event eq 'group-delete') {
 +
-+    my @entries = qw(GroupsWrite GroupsRead);
++    @entries = qw(GroupsWrite GroupsRead);
 +
 +} else {
 +