Update of systempreferences table structure and admin script. Contains now a "help" fields that shows what param is supposed to do what. The params will be in the sample-DB. I've dumped the 3 I know. If there are others, let me know :
INSERT INTO systempreferences VALUES ('template', 'french', 'Template default name. Not used for instance'); INSERT INTO systempreferences VALUES ('autoBarcode', '', '1 or else. If 1, Barcode is auto-calculated'); INSERT INTO systempreferences VALUES ('acquisitions', 'normal', 'normal or simple : will use acquisition system found in directory acqui.simple or acquisition');
This commit is contained in:
parent
b1dd6ad93b
commit
c00363a571
1 changed files with 9 additions and 12 deletions
|
@ -31,7 +31,7 @@ sub StringSearch {
|
|||
$searchstring=~ s/\'/\\\'/g;
|
||||
my @data=split(' ',$searchstring);
|
||||
my $count=@data;
|
||||
my $query="Select variable,value from systempreferences where (variable like \"$data[0]%\") order by variable";
|
||||
my $query="Select variable,value,explanation from systempreferences where (variable like \"$data[0]%\") order by variable";
|
||||
my $sth=$dbh->prepare($query);
|
||||
$sth->execute;
|
||||
my @results;
|
||||
|
@ -49,7 +49,7 @@ sub StringSearch {
|
|||
my $input = new CGI;
|
||||
my $searchfield=$input->param('searchfield');
|
||||
my $pkfield="variable";
|
||||
my $reqsel="select variable,value from systempreferences where $pkfield='$searchfield'";
|
||||
my $reqsel="select variable,value,explanation from systempreferences where $pkfield='$searchfield'";
|
||||
my $reqdel="delete from systempreferences where $pkfield='$searchfield'";
|
||||
my $offset=$input->param('offset');
|
||||
my $script_name="/cgi-bin/koha/admin/systempreferences.pl";
|
||||
|
@ -70,7 +70,7 @@ if ($op eq 'add_form') {
|
|||
my $data;
|
||||
if ($searchfield) {
|
||||
my $dbh = &C4Connect;
|
||||
my $sth=$dbh->prepare("select variable,value from systempreferences where variable='$searchfield'");
|
||||
my $sth=$dbh->prepare("select variable,value,explanation from systempreferences where variable='$searchfield'");
|
||||
$sth->execute;
|
||||
$data=$sth->fetchrow_hashref;
|
||||
$sth->finish;
|
||||
|
@ -138,6 +138,7 @@ printend
|
|||
}
|
||||
print "<form action='$script_name' name=Aform method=post>";
|
||||
print "<input type=hidden name=op value='add_validate'>";
|
||||
print "<input type=hidden name=explanation value='".$data->{'explanation'}."'>";
|
||||
print "<table>";
|
||||
if ($searchfield) {
|
||||
print "<tr><td>Variable</td><td><input type=hidden name=variable value='$searchfield'>$searchfield</td></tr>";
|
||||
|
@ -154,9 +155,10 @@ printend
|
|||
# called by add_form, used to insert/modify data in DB
|
||||
} elsif ($op eq 'add_validate') {
|
||||
my $dbh=C4Connect;
|
||||
my $query = "replace systempreferences (variable,value) values (";
|
||||
my $query = "replace systempreferences (variable,value,explanation) values (";
|
||||
$query.= $dbh->quote($input->param('variable')).",";
|
||||
$query.= $dbh->quote($input->param('value')).")";
|
||||
$query.= $dbh->quote($input->param('value')).",";
|
||||
$query.= $dbh->quote($input->param('explanation')).")";
|
||||
my $sth=$dbh->prepare($query);
|
||||
$sth->execute;
|
||||
$sth->finish;
|
||||
|
@ -200,18 +202,13 @@ printend
|
|||
print mkheadr(2,'System preferences admin');
|
||||
print mkformnotable("$script_name",@inputs);
|
||||
print <<printend
|
||||
<b>Hints :</b>
|
||||
2 variables are useful in this table :
|
||||
<li><i>acquisitions</i>, which value may be "simple" or "normal"</li>
|
||||
<li><i>autoMemberNum</i> which may be 1 or 0</li>
|
||||
<br><br>
|
||||
printend
|
||||
;
|
||||
if ($searchfield ne '') {
|
||||
print "You Searched for <b>$searchfield<b><p>";
|
||||
}
|
||||
print mktablehdr;
|
||||
print mktablerow(4,'#99cc33',bold('Variable'),bold('Value'),
|
||||
print mktablerow(5,'#99cc33',bold('Variable'),bold('Value'),bold('Explanation'),
|
||||
' ',' ','/images/background-mem.gif');
|
||||
my $env;
|
||||
my ($count,$results)=StringSearch($env,$searchfield,'web');
|
||||
|
@ -222,7 +219,7 @@ printend
|
|||
} else {
|
||||
$toggle="white";
|
||||
}
|
||||
print mktablerow(4,$toggle,$results->[$i]{'variable'},$results->[$i]{'value'},
|
||||
print mktablerow(5,$toggle,$results->[$i]{'variable'},$results->[$i]{'value'},$results->[$i]{'explanation'},
|
||||
mklink("$script_name?op=add_form&searchfield=".$results->[$i]{'variable'},'Edit'),
|
||||
mklink("$script_name?op=delete_confirm&searchfield=".$results->[$i]{'variable'},'Delete',''));
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue