From 03e820d08c0722ccc362c32117acfa1558e03d00 Mon Sep 17 00:00:00 2001
From: hdl <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 => "<p>You Searched for <strong>$searchfield</strong></p>");
 	}
 	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 @@
 	
 	<!-- TMPL_IF NAME="else" -->
 	<h1>System preferences admin</h1>
+	<table>
+		<tr>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=Admin">Admin
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=Acquisitions">Acquisitions
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=Authorities">Authorities
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=Catalogue">Catalogue
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=Circulation">Circulation
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=Members">Members
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=OPAC">OPAC
+				</a>
+			</td>
+			<td>
+				<a href="/cgi-bin/koha/admin/systempreferences.pl?tab=">Others
+				</a>
+			</td>
+		</tr>
+	</table>
 	<form action="/cgi-bin/koha/admin/systempreferences.pl" method="post">
 		<input type="text" name="searchfield" value="">
 		<input type="reset" name="reset" value="clr">
-- 
2.39.5