From 61d632bf8af6c175e8d8adfef6c8fe826c84c95e Mon Sep 17 00:00:00 2001 From: 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 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