From 2ce72aa7adbac1ff4ecafd2e79311b62362d4f68 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 26 Apr 2001 02:28:40 +0000
Subject: [PATCH] argh

---
 fs_webdemo/registerd.Pg | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 6f882da77..b1409a92c 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.8 2001-04-26 02:23:27 ivan Exp $
+# $Id: registerd.Pg,v 1.9 2001-04-26 02:28:40 ivan Exp $
 
 use strict;
 use vars qw(
@@ -85,7 +85,7 @@ while ( 1 ) {
     my $username = $row->{'username'};
     my $email = $row->{'passwd'};
 
-    my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;database=demo_template', 'freeside', 'maelcolm' )
+    my $pdbh = DBI->connect( 'DBI:Pg:host=localhost;dbname=demo_template', 'freeside', 'maelcolm' )
       or do { &myerr("$username: ". $DBI::errstr); next; };
 
     my $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
-- 
2.11.0