From 61d632bf8af6c175e8d8adfef6c8fe826c84c95e Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Fri, 11 Oct 2002 03:14:51 +0000
Subject: [PATCH] Removed &systemprefs. It is no longer used.

---
 C4/Search.pm | 26 +-------------------------
 1 file changed, 1 insertion(+), 25 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index ab20d0f768..90b53f7581 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -61,7 +61,7 @@ on what is passed to it, it calls the appropriate search function.
 &itemdata &bibdata &GetItems &borrdata &itemnodata &itemcount
 &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
 &getboracctrecord &ItemType &itemissues &subject &subtitle
-&addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs
+&addauthor &bibitems &barcodes &findguarantees &allissues
 &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2);
 # make all your functions, whether exported or not;
 
@@ -132,30 +132,6 @@ sub findguarantor{
   return($data);
 }
 
-=item systemprefs
-
-  %prefs = &systemprefs();
-
-Returns a hash giving the system preferences. This is basically just a
-dump of the C<systempreferences> database table.
-
-=cut
-#'
-# FIXME - This function is no longer used; in cases where you just
-# care about one preference (which is true for most scripts), use
-# C4::Context->preference.
-sub systemprefs {
-    my %systemprefs;
-    my $dbh = C4::Context->dbh;
-    my $sth=$dbh->prepare("select variable,value from systempreferences");
-    $sth->execute;
-    while (my ($variable,$value)=$sth->fetchrow) {
-	$systemprefs{$variable}=$value;
-    }
-    $sth->finish;
-    return(%systemprefs);
-}
-
 =item NewBorrowerNumber
 
   $num = &NewBorrowerNumber();
-- 
2.39.5