- my $dbh = C4::Context->dbh;
- my $query = "select * from systempreferences where variable=?";
- my $sth = $dbh->prepare($query);
- $sth->execute( $input->param('variable') );
- if ( $sth->rows ) {
- unless ( C4::Context->config('demo') ) {
- my $sth = $dbh->prepare("update systempreferences set value=?,explanation=?,type=?,options=? where variable=?");
- $sth->execute( $value, $input->param('explanation'), $input->param('variable'), $input->param('preftype'), $input->param('prefoptions') );
- logaction( 'SYSTEMPREFERENCE', 'MODIFY', undef, $input->param('variable') . " | " . $value );
- }
- } else {
- unless ( C4::Context->config('demo') ) {
- my $sth = $dbh->prepare("insert into systempreferences (variable,value,explanation) values (?,?,?,?,?)");
- $sth->execute( $input->param('variable'), $input->param('value'), $input->param('explanation'), $input->param('preftype'), $input->param('prefoptions') );
- logaction( 'SYSTEMPREFERENCE', 'ADD', undef, $input->param('variable') . " | " . $input->param('value') );
- }
- }
-