--- Prefs.pm.orig	2005-02-23 18:18:56.000000000 +0100
+++ Prefs.pm	2005-02-23 18:29:03.000000000 +0100
@@ -189,7 +189,12 @@
     my( $meta, $text ) = &TWiki::Store::readTopic( $theWeb, $theTopic, 1 );
 
     foreach my $setting ( @{ $parser->parseText($text) } ) {
-	$self->insertPrefsValue( $setting->[0], $setting->[1] );
+
+	##ADDED By Bhamet
+	#XXX Fix the %WEB% in GroupName
+	my $text = $setting->[1];
+	$text =~ s/%WEB%/$theWeb/gs;
+	$self->insertPrefsValue( $setting->[0], $text );
     }
     foreach my $setting ( @{ $parser->parseMeta($meta) } ) {
 	$self->insertPrefsValue( $setting->[0], $setting->[1] );
--- Access.pm.orig	2005-02-21 16:16:41.000000000 +0100
+++ Access.pm	2005-02-23 18:57:45.000000000 +0100
@@ -130,10 +130,14 @@
     my @allowList = ();
     foreach( split( /\n/, $theTopicText ) ) {
         if( /^\s+\*\sSet\s(ALLOWTOPIC|DENYTOPIC)$theAccessType\s*\=\s*(.*)/ ) {
-            if( $2 ) {
+	    my $groups = $2;
+            if( $groups ) {
+		
+		$groups =~ s/%WEB%/$theWebName/gs;
+
                 my $allowOrDeny = $1;        # "ALLOWTOPIC" or "DENYTOPIC"
                 my @tmpList = map { getUsersOfGroup( $_ ) }
-                              prvGetUserList( $2 );
+                              prvGetUserList( $groups );
                 ##my $tmp = join( ', ', @tmpList );
                 ##&TWiki::writeDebug( "  Topic $allowOrDeny$theAccessType: {$tmp}" );
                 if( $allowOrDeny eq "DENYTOPIC" ) {