From: ivan <ivan>
Date: Thu, 26 Apr 2001 02:21:19 +0000 (+0000)
Subject: ARG
X-Git-Tag: Root-of-freeside_vpopmail_support~34
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=97d7032bb2550d35b481adc6c378b5074c66024a

ARG
---

diff --git a/fs_webdemo/registerd.Pg b/fs_webdemo/registerd.Pg
index 7fa4c9a3d..672b892ff 100755
--- a/fs_webdemo/registerd.Pg
+++ b/fs_webdemo/registerd.Pg
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: registerd.Pg,v 1.6 2001-04-26 02:20:41 ivan Exp $
+# $Id: registerd.Pg,v 1.7 2001-04-26 02:21:19 ivan Exp $
 
 use strict;
 use vars qw(
@@ -89,9 +89,9 @@ while ( 1 ) {
       or do { &myerr("$username: ". $DBI::errstr); next; };
 
     my $psth = $pdbh->prepare("CREATE DATABASE demo_$username")
-      or do { &myerr("$username: ". $pdbh->errstr;); next; };
+      or do { &myerr("$username: ". $pdbh->errstr); next; };
     $psth->execute()
-      or do { &myerr("$username: ". $psth->errstr;); next; };
+      or do { &myerr("$username: ". $psth->errstr); next; };
 
     $pdbh->disconnect
       or do { &myerr("fatal: $DBI:errstr"); die; };