--- smeserver-subversion-1.4/root/etc/e-smith/db/accounts/migrate/80subversionGroups.RewriteMigrateScript	2008-03-01 22:51:09.000000000 +0100
+++ smeserver-subversion-1.4/root/etc/e-smith/db/accounts/migrate/80subversionGroups	2008-03-01 22:54:53.000000000 +0100
@@ -0,0 +1,25 @@
+{
+    use define PROPERTY       => 'Groups';
+    use define PROPERTY_WRITE => 'GroupsWrite';
+    use define PROPERTY_READ  => 'GroupsRead';
+
+    my @repositories = $DB->get_all_by_prop('type' => 'repository');
+
+    REPOSITORY: foreach my $repository (
+        (@repositories),
+    )
+    {
+
+        my $key = $repository->key;
+
+        my $rec = $DB->get($key) or next REPOSITORY;
+
+        my $property = $DBB->get_prop_and_delete($key, PROPERTY) or next REPOSITORY;
+
+        # Migrating existing properties to new ones to keep functionality
+        $rec->merge_prop(PROPERTY_WRITE, $property);
+        $rec->merge_prop(PROPERTY_READ, $property);
+
+    }
+
+}
--- smeserver-subversion-1.4/root/etc/e-smith/db/accounts/migrate/80subversionUsers.RewriteMigrateScript	2008-03-01 22:49:28.000000000 +0100
+++ smeserver-subversion-1.4/root/etc/e-smith/db/accounts/migrate/80subversionUsers	2008-03-01 22:54:02.000000000 +0100
@@ -0,0 +1,25 @@
+{
+    use define PROPERTY       => 'Users';
+    use define PROPERTY_WRITE => 'UsersWrite';
+    use define PROPERTY_READ  => 'UsersRead';
+
+    my @repositories = $DB->get_all_by_prop('type' => 'repository');
+
+    REPOSITORY: foreach my $repository (
+        (@repositories),
+    )
+    {
+
+        my $key = $repository->key;
+
+        my $rec = $DB->get($key) or next REPOSITORY;
+
+        my $property = $DBB->get_prop_and_delete($key, PROPERTY) or next REPOSITORY;
+
+        # Migrating existing properties to new ones to keep functionality
+        $rec->merge_prop(PROPERTY_WRITE, $property);
+        $rec->merge_prop(PROPERTY_READ, $property);
+
+    }
+
+}
--- smeserver-subversion-1.4/root/etc/e-smith/db/accounts/migrate/80subversion.RewriteMigrateScript     2008-03-01 22:59:05.000000000 +0100
+++ smeserver-subversion-1.4/root/etc/e-smith/db/accounts/migrate/80subversion  1969-12-31 17:00:00.000000000 -0700
@@ -1,25 +0,0 @@
-{
-    my @repositories = $DB->get_all_by_prop('type' => 'repository');
-
-    foreach my $repository (
-        (@repositories),
-    )
-    {
-
-        my $key = $repository->key;
-
-        my $rec = $DB->get($key);
-
-        my %properties = $repository->props;
-
-        # Creating new blank entries
-        $rec->set_prop('UsersRead', "");
-        $rec->set_prop('GroupsRead', "");
-
-        # Migrating existing properties to new ones to keep functionality
-        $rec->set_prop('UsersWrite', $DB->get_prop_and_delete($key, 'Users') || "");
-        $rec->set_prop('GroupsWrite', $DB->get_prop_and_delete($key, 'Groups') || "");
-
-    }
-
-}