Removed &systemprefs. It is no longer used.
This commit is contained in:
parent
ddcc85bfc2
commit
61d632bf8a
1 changed files with 1 additions and 25 deletions
26
C4/Search.pm
26
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();
|
||||
|
|
Loading…
Reference in a new issue