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	snetram	1.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