smeserver-subversion/contribs7/smeserver-subversion-1.4-FixAccountRemoval.patch

--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list.FixAccountRemoval       2008-08-10 15:45:57.000000000 +0200
+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list 2008-08-10 15:47:40.000000000 +0200
@@ -33,7 +33,7 @@
 
 use esmith::AccountsDB;
 
-my $db_accounts = esmith::AccountsDB->open_ro() or
+my $db_accounts = esmith::AccountsDB->open() or
     die "Couldn't open AccountsDB\n";
 
 my @repositories = $db_accounts->get_all_by_prop('type' => 'repository');
@@ -42,7 +42,7 @@
     (@repositories),
 )
 {
-    my $repository_rec = $db_accounts->get($repository) || next REPOSITORY;
+    my $repository_rec = $db_accounts->get($repository->key()) || next REPOSITORY;
 
     foreach my $entry (@entries) {
 
1	--- smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list.FixAccountRemoval 2008-08-10 15:45:57.000000000 +0200
2	+++ smeserver-subversion-1.4/root/etc/e-smith/events/actions/subversion-delete-from-access-list 2008-08-10 15:47:40.000000000 +0200
3	@@ -33,7 +33,7 @@
4
5	use esmith::AccountsDB;
6
7	-my $db_accounts = esmith::AccountsDB->open_ro() or
8	+my $db_accounts = esmith::AccountsDB->open() or
9	die "Couldn't open AccountsDB\n";
10
11	my @repositories = $db_accounts->get_all_by_prop('type' => 'repository');
12	@@ -42,7 +42,7 @@
13	(@repositories),
14	)
15	{
16	- my $repository_rec = $db_accounts->get($repository) \|\| next REPOSITORY;
17	+ my $repository_rec = $db_accounts->get($repository->key()) \|\| next REPOSITORY;
18
19	foreach my $entry (@entries) {
20