diff options
| author | cvs2git <cvs2git> | 1998-11-07 10:24:26 +0000 |
|---|---|---|
| committer | cvs2git <cvs2git> | 1998-11-07 10:24:26 +0000 |
| commit | 48e7e549a27a76c357d50dd637e7ad5a29b9d43f (patch) | |
| tree | e61ddacc0b1d6248ccfc61346f7f36fbb6723e56 /site_perl/dbdef_table.pm | |
| parent | 47806ec845818ba69604e0452e7c7b25d62f0772 (diff) | |
| parent | 4c9347994ca4e1aefdb622d9f51ac8687e6a177b (diff) | |
This commit was manufactured by cvs2svn to create tag 'freeside_stable'.freeside_stable
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; |