projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.1.4 release, fix postgresql
[freeside.git]
/
site_perl
/
dbdef_table.pm
diff --git
a/site_perl/dbdef_table.pm
b/site_perl/dbdef_table.pm
index
bc1454d
..
8c5bcfe
100644
(file)
--- 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 {
"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 {
$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 ),
$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>
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
=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
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;
=cut
1;