diff options
| author | ivan <ivan> | 1998-10-12 23:40:28 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-10-12 23:40:28 +0000 |
| commit | 985d84813a195f343abaf7e33f08057efcb5cb10 (patch) | |
| tree | f28a1de22ac42751c11f3093d9ef0922c00f8b50 | |
| parent | 0e0e1020a163c280eb0471532e77663cbca83e9f (diff) | |
added Pg-specific behaviour in sub line
| -rw-r--r-- | site_perl/dbdef_column.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/site_perl/dbdef_column.pm b/site_perl/dbdef_column.pm index 023b57d1f..06388c691 100644 --- a/site_perl/dbdef_column.pm +++ b/site_perl/dbdef_column.pm @@ -143,7 +143,13 @@ supported in the future. sub line { my($self,$datasrc)=@_; my($null)=$self->null; - $null ||= "NOT NULL" if $datasrc =~ /mysql/; #yucky mysql hack + if ( $datasrc =~ /mysql/ ) { #yucky mysql hack + $null ||= "NOT NULL" + } + if ( $datasrc =~ /Pg/ ) { #yucky Pg hack + $null ||= "NOT NULL"; + $null =~ s/^NULL$//; + } join(' ', $self->name, $self->type. ( $self->length ? '('.$self->length.')' : '' ), @@ -159,6 +165,10 @@ sub line { L<FS::dbdef_table>, L<FS::dbdef>, L<DBI> +=head1 VERSION + +$Id: dbdef_column.pm,v 1.2 1998-10-12 23:40:28 ivan Exp $ + =head1 HISTORY class for dealing with column definitions @@ -169,6 +179,11 @@ now methods can be used to get or set data ivan@sisd.com 98-may-11 mySQL-specific hack for null (what should be default?) ivan@sisd.com 98-jun-2 +$Log: dbdef_column.pm,v $ +Revision 1.2 1998-10-12 23:40:28 ivan +added Pg-specific behaviour in sub line + + =cut 1; |