@ISA = qw(Exporter);
@EXPORT_OK = qw(dbh fields hfields qsearch qsearchs dbdef);
-$File::CounterFile::DEFAULT_DIR = "/var/spool/freeside/counters" ;
-
-$dbdef_file = "/var/spool/freeside/dbdef.". datasrc;
-
-reload_dbdef unless $setup_hack;
+#ask FS::UID to run this stuff for us later
+$FS::UID::callback{'FS::Record'} = sub {
+ $File::CounterFile::DEFAULT_DIR = "/usr/local/etc/freeside/counters". datasrc;
+ $dbdef_file = "/usr/local/etc/freeside/dbdef.". datasrc;
+ &reload_dbdef unless $setup_hack; #$setup_hack needed now?
+};
=head1 NAME
=item qsearch TABLE, HASHREF
Searches the database for all records matching (at least) the key/value pairs
-in HASHREF. Returns all the records found as objects blessed into
-`FS::TABLE' if that module is loaded (i.e. via `use FS::cust_main;'), otherwise
-returns an FS::Record object;
+in HASHREF. Returns all the records found as `FS::TABLE' objects if that
+module is loaded (i.e. via `use FS::cust_main;'), otherwise returns FS::Record
+objects.
=cut
ut_phonen got ''; at the end ivan@sisd.com 98-sep-27
$Log: Record.pm,v $
-Revision 1.3 1998-11-10 07:44:08 ivan
-qsearch returns `FS::TABLE' objects if that module is loaded (i.e. via
-`use FS::cust_main;') instead of always an FS::Record object
+Revision 1.5 1998-11-13 09:56:51 ivan
+change configuration file layout to support multiple distinct databases (with
+own set of config files, export, etc.)
+
+Revision 1.4 1998/11/10 07:45:25 ivan
+doc clarification
Revision 1.2 1998/11/07 05:17:18 ivan
In sub new, Pg wrapper for money fields from dbdef (FS::Record::fields $table),