--- /Data/Projects_Arthur/TWiki Subversion/twiki/lib/TWiki/UI/Manage.pm 2005-07-13 00:03:07.000000000 +0200
+++ /Data/Projects_Arthur/TWiki Subversion/TWiki patches/Manage.pm      2005-07-13 00:00:51.000000000 +0200
@@ -148,6 +148,7 @@
     my $siteMapWhat = $query->param( 'sitemapwhat' ) || '';
     my $siteMapUseTo = $query->param( 'sitemapuseto' ) || '';
     my $noSearchAll = $query->param( 'nosearchall' ) || '';
+    my $customVariables = $query->param( 'customvariables' ) || '';
 
     # check permission, user authorized to create webs?
     TWiki::UI::checkAccess( $session, $webName, $topicName,
@@ -195,6 +196,13 @@
       };
     $opts->{SITEMAPLIST} = 'on' if( $siteMapWhat );
 
+    # grab key-value pairs from customVariables
+    my @keyValueList = split(/;/, $customVariables);
+    foreach my $pair (@keyValueList) {
+        (my $key, my $value) = split (/=/, $pair);
+        $opts->{ $key } = $value;
+    }
+       
     my $err = $session->{store}->createWeb( $user, $newWeb, $baseWeb, $opts );
     if( $err ) {
         throw TWiki::OopsException