X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FSearch.pm;h=016dc6a6c1728efcc77baf53d09acc56742a57f3;hb=a2544553425ce358e339ae8b960e59f7466b23c2;hp=8ac5f340bbbf4d43f458b0ff2aa1e9a4460ed45d;hpb=d0374d003716dfb40796caad6390a4d69bfb0376;p=koha.git

diff --git a/C4/Search.pm b/C4/Search.pm
index 8ac5f340bb..016dc6a6c1 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -19,7 +19,7 @@ $VERSION = 0.01;
 &itemdata &bibdata &GetItems &borrdata &getacctlist &itemnodata &itemcount
 &OpacSearch &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
 &getboracctrecord &ItemType &itemissues &FrontSearch &subject &subtitle
-&addauthor &bibitems &barcodes &findguarantees &allissues); 
+&addauthor &bibitems &barcodes &findguarantees &allissues &systemprefs); 
 %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
 		  
 # your exported package globals go here,
@@ -1148,6 +1148,20 @@ sub barcodes{
   return(@barcodes);
   
 }
+
+sub systemprefs {
+    my %systemprefs;
+    my $dbh=C4Connect;
+    my $sth=$dbh->prepare("select variable,value from systempreferences");
+    $sth->execute;
+    while (my ($variable,$value)=$sth->fetchrow) {
+	$systemprefs{$variable}=$value;
+    }
+    $sth->finish;
+    $dbh->disconnect;
+    return(%systemprefs);
+}
+
 END { }       # module clean-up code here (global destructor)