From 8f685842fce6c912568c215f645b01b7fc73c647 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 30 Jan 2000 06:05:07 +0000
Subject: [PATCH] postgres 6.5 finally supports decimal(10,2)

---
 bin/fs-setup             | 14 ++++++--------
 htdocs/docs/install.html |  2 +-
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/bin/fs-setup b/bin/fs-setup
index 6ba07e897..f1dd3a8b4 100755
--- a/bin/fs-setup
+++ b/bin/fs-setup
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: fs-setup,v 1.20 2000-01-28 22:53:33 ivan Exp $
+# $Id: fs-setup,v 1.21 2000-01-30 06:03:26 ivan Exp $
 #
 # ivan@sisd.com 97-nov-8,9
 #
@@ -32,7 +32,10 @@
 # fix radius attributes ivan@sisd.com 98-sep-27
 #
 # $Log: fs-setup,v $
-# Revision 1.20  2000-01-28 22:53:33  ivan
+# Revision 1.21  2000-01-30 06:03:26  ivan
+# postgres 6.5 finally supports decimal(10,2)
+#
+# Revision 1.20  2000/01/28 22:53:33  ivan
 # track full phone number
 #
 # Revision 1.19  1999/07/29 08:50:35  ivan
@@ -131,12 +134,7 @@ my($char_d) = 80; #default maxlength for text fields
 #my(@date_type)  = ( 'timestamp', '', ''     );
 my(@date_type)  = ( 'int', 'NULL', ''     );
 my(@perl_type) = ( 'varchar', 'NULL', 255  ); 
-my(@money_type);
-if (datasrc =~ m/Pg/) { #Pg can't do decimal(10,2)
-  @money_type = ( 'money',   '', '' );
-} else {
-  @money_type = ( 'decimal',   '', '10,2' );
-}
+my @money_type = ( 'decimal',   '', '10,2' );
 
 ###
 # create a dbdef object from the old data structure
diff --git a/htdocs/docs/install.html b/htdocs/docs/install.html
index 5a4d1b2d7..574ab91e4 100644
--- a/htdocs/docs/install.html
+++ b/htdocs/docs/install.html
@@ -8,7 +8,7 @@ Before installing, you need:
   <li>A web server, such as <a href="http://www.apache-ssl.org">Apache-SSL</a> or <a href="http://www.apache.org">Apache</a>
   <li><a href="ftp://ftp.cs.hut.fi/pub/ssh/">SSH</a>
   <li><a href="http://www.perl.com/CPAN/doc/relinfo/INSTALL.html">Perl</a> (at least 5.004_05 for the 5.004 series or 5.005_03 for the 5.005 series.  Don't enable experimental features like threads or the PerlIO abstraction layer.)
-  <li>A database engine supported by Perl's <a href="http://www.hermetica.com/technologia/DBI/">DBI</a>, such as <a href="http://www.tcx.se/">MySQL</a> or <a href="http://www.postgresql.org/">PostgreSQL</a> (see the <a href="postgresql.html">PostgreSQL notes</a>)
+  <li>A database engine supported by Perl's <a href="http://www.hermetica.com/technologia/DBI/">DBI</a>, such as <a href="http://www.tcx.se/">MySQL</a> or <a href="http://www.postgresql.org/">PostgreSQL</a> (verstion 6.5 or higher) (see the <a href="postgresql.html">PostgreSQL notes</a>)
   <li>Perl modules (<a href="http://www.perl.com/CPAN/doc/manual/html/lib/CPAN.html">CPAN</a> will query, download and build perl modules automatically)
     <ul>
       <li><a href="http://www.perl.com/CPAN/modules/by-module/Array/">Array-PrintCols</a>
-- 
2.11.0