diff options
Diffstat (limited to 'site_perl/dbdef_table.pm')
-rw-r--r-- | site_perl/dbdef_table.pm | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/site_perl/dbdef_table.pm b/site_perl/dbdef_table.pm index bc1454d..8c5bcfe 100644 --- a/site_perl/dbdef_table.pm +++ b/site_perl/dbdef_table.pm @@ -202,12 +202,12 @@ sub sql_create_table { "CREATE TABLE ". $self->name. " ( ". join(", ", @columns). " )", ( map { - my($index) = $_ . "_index"; + my($index) = $self->name. "__". $_ . "_index"; $index =~ s/,\s*/_/g; "CREATE UNIQUE INDEX $index ON ". $self->name. " ($_)" } $self->unique->sql_list ), ( map { - my($index) = $_ . "_index"; + my($index) = $self->name. "__". $_ . "_index"; $index =~ s/,\s*/_/g; "CREATE INDEX $index ON ". $self->name. " ($_)" } $self->index->sql_list ), @@ -225,6 +225,10 @@ sub sql_create_table { L<FS::dbdef>, L<FS::dbdef_unique>, L<FS::dbdef_index>, L<FS::dbdef_unique>, L<DBI> +=head1 VERSION + +$Id: dbdef_table.pm,v 1.2 1998-10-14 07:05:06 ivan Exp $ + =head1 HISTORY class for dealing with table definitions @@ -243,6 +247,11 @@ ivan@sisd.com 98-jun-4 pod ivan@sisd.com 98-sep-24 +$Log: dbdef_table.pm,v $ +Revision 1.2 1998-10-14 07:05:06 ivan +1.1.4 release, fix postgresql + + =cut 1; |