--- smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm.ImplementReadWriteAccess2	2008-02-22 15:27:09.000000000 +0100
+++ smeserver-subversion-1.4/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/subversion.pm	2008-02-22 15:35:57.000000000 +0100
@@ -447,10 +447,14 @@
 
 	    $q->param(-name=>'description',
 		-value=>$rec->prop('Description'));
-	    $q->param(-name=>'groups',
-		-value=>join(FS, split(FS, $rec->prop('Groups'))));
-	    $q->param(-name=>'users',
-		-value=>join(FS, split(FS, $rec->prop('Users'))));
+	    $q->param(-name=>'groupsRead',
+		-value=>join(FS, split(FS, $rec->prop('GroupsRead'))));
+	    $q->param(-name=>'usersRead',
+		-value=>join(FS, split(FS, $rec->prop('UsersRead'))));
+	    $q->param(-name=>'groupsWrite',
+		-value=>join(FS, split(FS, $rec->prop('GroupsWrite'))));
+	    $q->param(-name=>'usersWrite',
+		-value=>join(FS, split(FS, $rec->prop('UsersWrite'))));
             $q->param(-name=>'authentification_required',
 		-value=>$rec->prop('AuthentificationRequired'));
             $q->param(-name=>'access_type',
@@ -621,31 +625,53 @@
         return $self->error($msg);
     }
 
-    my $g_list;
-    my @groups = $self->cgi->param('groups');
-    foreach my $g (@groups) {
-        if ($g_list) {
-            $g_list .= "," . $g;
+    my $gr_list;
+    my @groupsRead = $self->cgi->param('groupsRead');
+    foreach my $gr (@groupsRead) {
+        if ($gr_list) {
+            $gr_list .= "," . $gr;
         } else {
-            $g_list = $g;
+            $gr_list = $gr;
         }
     }
 
-    my $u_list;
-    my @users = $self->cgi->param('users');
-    foreach my $u (@users) {
-        if ($u_list) {
-            $u_list .= "," . $u;
+    my $ur_list;
+    my @usersRead = $self->cgi->param('usersRead');
+    foreach my $ur (@usersRead) {
+        if ($ur_list) {
+            $ur_list .= "," . $ur;
+        } else {
+            $ur_list = $ur;
+        }
+    }
+
+    my $gw_list;
+    my @groupsWrite = $self->cgi->param('groupsWrite');
+    foreach my $gw (@groupsWrite) {
+        if ($gw_list) {
+            $gw_list .= "," . $gw;
+        } else {
+            $gw_list = $gw;
+        }
+    }
+
+    my $uw_list;
+    my @usersWrite = $self->cgi->param('usersWrite');
+    foreach my $uw (@usersWrite) {
+        if ($uw_list) {
+            $uw_list .= "," . $uw;
         } else {
-            $u_list = $u;
+            $uw_list = $uw;
         }
     }
 
     my $uid  = $accountdb->get_next_uid();
     if (my $acct = $accountdb->new_record($name, {
             Description              => $self->cgi->param('description'),
-            Groups                   => "$g_list",
-            Users                    => "$u_list",
+            GroupsRead               => "$gr_list",
+            UsersRead                => "$ur_list",
+            GroupsWrite              => "$gw_list",
+            UsersWrite               => "$uw_list",
 	    Modifiable               => 'yes',
             Removable                => 'yes',
             ForceSSL                 => $self->cgi->param('force_ssl'),
@@ -715,23 +741,43 @@
         return $self->error($msg);
     }
 
-    my $g_list;
-    my @groups = $self->cgi->param('groups');
-    foreach my $g (@groups) {
-        if ($g_list) {
-            $g_list .= "," . $g;
+    my $gr_list;
+    my @groupsRead = $self->cgi->param('groupsRead');
+    foreach my $gr (@groupsRead) {
+        if ($gr_list) {
+            $gr_list .= "," . $gr;
         } else {
-            $g_list = $g;
+            $gr_list = $gr;
         }
     }
 
-    my $u_list;
-    my @users = $self->cgi->param('users');
-    foreach my $u (@users) {
-        if ($u_list) {
-            $u_list .= "," . $u;
+    my $ur_list;
+    my @usersRead = $self->cgi->param('usersRead');
+    foreach my $ur (@usersRead) {
+        if ($ur_list) {
+            $ur_list .= "," . $ur;
+        } else {
+            $ur_list = $ur;
+        }
+    }
+
+    my $gw_list;
+    my @groupsWrite = $self->cgi->param('groupsWrite');
+    foreach my $gw (@groupsWrite) {
+        if ($gw_list) {
+            $gw_list .= "," . $gw;
+        } else {
+            $gw_list = $gw;
+        }
+    }
+
+    my $uw_list;
+    my @usersWrite = $self->cgi->param('usersWrite');
+    foreach my $uw (@usersWrite) {
+        if ($uw_list) {
+            $uw_list .= "," . $uw;
         } else {
-            $u_list = $u;
+            $uw_list = $uw;
         }
     }
 
@@ -740,8 +786,10 @@
 
             $acct->merge_props(
             Description              => $self->cgi->param('description'),
-            Groups                   => $g_list,
-            Users                    => $u_list,
+            GroupsRead               => $gr_list,
+            UsersRead                => $ur_list,
+            GroupsWrite              => $gr_list,
+            UsersWrite               => $ur_list,
             ForceSSL                 => $self->cgi->param('force_ssl'),
             AccessType               => $self->cgi->param('access_type'),
             AuthentificationRequired => $self->cgi->param('authentification_required'),
--- smeserver-subversion-1.4/root/etc/e-smith/web/functions/subversion.ImplementReadWriteAccess2	2008-02-22 15:27:09.000000000 +0100
+++ smeserver-subversion-1.4/root/etc/e-smith/web/functions/subversion	2008-02-22 15:29:19.000000000 +0100
@@ -152,7 +152,7 @@
         
         <field 
             type="select" 
-            id="groups" 
+            id="groupsRead" 
             options="group_list()" 
             multiple="1" size="5">
             <label>GROUPS</label>
@@ -160,7 +160,23 @@
 
         <field 
 	    type="select" 
-	    id="users" 
+	    id="usersRead" 
+            options="user_list()" 
+	    multiple="1" size="5">
+            <label>USERS</label>
+        </field>
+        
+        <field 
+            type="select" 
+            id="groupsWrite" 
+            options="group_list()" 
+            multiple="1" size="5">
+            <label>GROUPS</label>
+        </field>
+
+        <field 
+	    type="select" 
+	    id="usersWrite" 
             options="user_list()" 
 	    multiple="1" size="5">
             <label>USERS</label>