From 4e5a0655072be725acf00394186b93c96bba17ee Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 3 Dec 2001 08:41:43 +0000
Subject: maxsearchrecordsperpage config option paged implementation of
 customer browse!

---
 FS/FS/Conf.pm   | 7 +++++++
 FS/FS/Record.pm | 6 ++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

(limited to 'FS')

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 0d04cc129..8195fc55e 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -467,6 +467,13 @@ httemplate/docs/config.html
 #    'description' => 'Directory which contains domain registry information.  Each registry is a directory.',
 #  },
 
+  {
+    'key'         => 'maxsearchrecordsperpage',
+    'section'     => 'UI',
+    'description' => 'If set, number of search records to return per page.',
+    'type'        => 'text',
+  },
+
   {
     'key'         => 'sendmailconfigpath',
     'section'     => 'mail',
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 6c7a321e6..a04ddb982 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -227,7 +227,7 @@ sub qsearch {
 
   $sth->execute( map $record->{$_},
     grep defined( $record->{$_} ) && $record->{$_} ne '', @fields
-  ) or croak "Error executing \"$statement\": ". $dbh->errstr;
+  ) or croak "Error executing \"$statement\": ". $sth->errstr;
   $dbh->commit or croak $dbh->errstr if $FS::UID::AutoCommit;
 
   if ( eval 'scalar(@FS::'. $table. '::ISA);' ) {
@@ -257,13 +257,15 @@ sub qsearch {
 
 }
 
-=item jsearch
+=item jsearch TABLE, HASHREF, SELECT, EXTRA_SQL, PRIMARY_TABLE, PRIMARY_KEY
 
 Experimental JOINed search method.  Using this method, you can execute a
 single SELECT spanning multiple tables, and cache the results for subsequent
 method calls.  Interface will almost definately change in an incompatible
 fashion.
 
+Arguments: 
+
 =cut
 
 sub jsearch {
-- 
cgit v1.2.1