From 03e820d08c0722ccc362c32117acfa1558e03d00 Mon Sep 17 00:00:00 2001 From: hdl Date: Fri, 17 Jun 2005 16:37:00 +0000 Subject: [PATCH] Displaying system preferences by category --- admin/systempreferences.pl | 71 ++++++++++++++++--- .../en/parameters/systempreferences.tmpl | 36 ++++++++++ 2 files changed, 97 insertions(+), 10 deletions(-) diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl index b314821440..45ea5ff8c0 100755 --- a/admin/systempreferences.pl +++ b/admin/systempreferences.pl @@ -49,24 +49,72 @@ use HTML::Template; use C4::Context; +my %tabsysprefs; +$tabsysprefs{acquisitions}="Acquisitions"; +$tabsysprefs{gist}="Acquisitions"; +$tabsysprefs{authoritysep}="Authorities"; +$tabsysprefs{ISBD}="Catalogue"; +$tabsysprefs{marc}="Catalogue"; +$tabsysprefs{marcflavour}="Catalogue"; +$tabsysprefs{SubscriptionHistory}="Catalogue"; +$tabsysprefs{maxoutstanding}="Circulation"; +$tabsysprefs{printcirculationslips}="Circulation"; +$tabsysprefs{suggestion}="Circulation"; +$tabsysprefs{automembernum}="Members"; +$tabsysprefs{noissuescharge}="Circulation"; +$tabsysprefs{opacthemes}="OPAC"; +$tabsysprefs{opaclanguages}="OPAC"; +$tabsysprefs{LibraryName}="OPAC"; +$tabsysprefs{opacstylesheet}="OPAC"; +$tabsysprefs{BiblioDefaultView}="OPAC"; +$tabsysprefs{hidelostitem}="OPAC"; +$tabsysprefs{KohaAdmin}="Admin"; +$tabsysprefs{checkdigit}="Admin"; +$tabsysprefs{dateformat}="Admin"; +$tabsysprefs{insecure}="Admin"; +$tabsysprefs{ldapinfos}="Admin"; +$tabsysprefs{ldapserver}="Admin"; + sub StringSearch { my ($env,$searchstring,$type)=@_; my $dbh = C4::Context->dbh; $searchstring=~ s/\'/\\\'/g; my @data=split(' ',$searchstring); my $count=@data; - my $sth=$dbh->prepare("Select variable,value,explanation,type,options from systempreferences where (variable like ?) order by variable"); - $sth->execute("$data[0]%"); my @results; my $cnt=0; - while (my $data=$sth->fetchrow_hashref){ - push(@results,$data); - $cnt ++; + if ($type){ + foreach my $syspref (sort keys %tabsysprefs){ + if ($tabsysprefs{$syspref} eq $type){ + my $sth=$dbh->prepare("Select variable,value,explanation,type,options from systempreferences where (variable like ?) order by variable"); + $sth->execute($syspref); + while (my $data=$sth->fetchrow_hashref){ + push(@results,$data); + $cnt ++; + } + $sth->finish; + } + } + }else { + my $strsth ="Select variable,value,explanation,type,options from systempreferences where variable not in ("; + foreach my $syspref (keys %tabsysprefs){ + $strsth .= $dbh->quote($syspref).","; + } + $strsth =~ s/,$/) /; + $strsth .= " order by variable"; + warn $strsth; + my $sth=$dbh->prepare($strsth); + $sth->execute(); + while (my $data=$sth->fetchrow_hashref){ + push(@results,$data); + $cnt ++; + } + $sth->finish; } - $sth->finish; return ($cnt,\@results); } + my $input = new CGI; my $searchfield=$input->param('searchfield'); my $offset=$input->param('offset'); @@ -278,19 +326,22 @@ if ($op eq 'add_form') { # END $OP eq DELETE_CONFIRMED ################## DEFAULT ################################## } else { # DEFAULT + #Adding tab management for system preferences + my $tab=$input->param('tab'); + if ($searchfield ne '') { $template->param(searchfield => "

You Searched for $searchfield

"); } my $env; - my ($count,$results)=StringSearch($env,$searchfield,'web'); + my ($count,$results)=StringSearch($env,$searchfield,$tab); my $toggle=0; my @loop_data = (); for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ - if ($toggle eq 0){ + if ($toggle eq 0){ $toggle=1; - } else { + } else { $toggle=0; - } + } my %row_data; # get a fresh hash for the row data $row_data{variable} = $results->[$i]{'variable'}; $row_data{value} = $results->[$i]{'value'}; diff --git a/koha-tmpl/intranet-tmpl/default/en/parameters/systempreferences.tmpl b/koha-tmpl/intranet-tmpl/default/en/parameters/systempreferences.tmpl index dd936a8d33..ea4be58f58 100644 --- a/koha-tmpl/intranet-tmpl/default/en/parameters/systempreferences.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/parameters/systempreferences.tmpl @@ -136,6 +136,42 @@

System preferences admin

+ + + + + + + + + + + +
+ Admin + + + Acquisitions + + + Authorities + + + Catalogue + + + Circulation + + + Members + + + OPAC + + + Others + +
-- 2.39.5