[Koha-cvs] CVS: koha/C4 Search.pm,1.44,1.45

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv29571

Modified Files:
        Search.pm 
Log Message:
Removed &systemprefs. It is no longer used.


Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -r1.44 -r1.45
*** Search.pm   10 Oct 2002 14:51:14 -0000      1.44
--- Search.pm   11 Oct 2002 03:14:51 -0000      1.45
***************
*** 62,66 ****
  &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
  &getboracctrecord &ItemType &itemissues &subject &subtitle
! &addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs
  &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2);
  # make all your functions, whether exported or not;
--- 62,66 ----
  &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
  &getboracctrecord &ItemType &itemissues &subject &subtitle
! &addauthor &bibitems &barcodes &findguarantees &allissues
  &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2);
  # make all your functions, whether exported or not;
***************
*** 131,158 ****
    $sth->finish;
    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);
  }
  
--- 131,134 ----