[Koha-cvs] CVS: koha/admin systempreferences.pl,1.14,1.15

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv27188/admin

Modified Files:
	systempreferences.pl 
Log Message:
demo mode added

Index: systempreferences.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/systempreferences.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** systempreferences.pl	11 Jun 2003 18:57:18 -0000	1.14
--- systempreferences.pl	1 Aug 2003 14:24:47 -0000	1.15
***************
*** 97,150 ****
  
  if ($op eq 'update_and_reedit') {
!     foreach ($input->param) {
! 	warn "$_: ".$input->param($_)."\n";
!     }
!     my $value='';
!     if (my $currentorder=$input->param('currentorder')) {
! 	my @currentorder=split /\|/, $currentorder;
! 	my $orderchanged=0;
! 	foreach my $param ($input->param) {
! 	    if ($param=~m#up-(\d+).x#) {
! 		my $temp=$currentorder[$1];
! 		$currentorder[$1]=$currentorder[$1-1];
! 		$currentorder[$1-1]=$temp;
! 		$orderchanged=1;
! 		last;
! 	    } elsif ($param=~m#down-(\d+).x#) {
! 		my $temp=$currentorder[$1];
! 		$currentorder[$1]=$currentorder[$1+1];
! 		$currentorder[$1+1]=$temp;
! 		$orderchanged=1;
! 		last;
! 	    }
! 	}
! 	$value=join ' ', @currentorder;
! 	if ($orderchanged) {
! 	    $op='add_form';
! 	    $template->param(script_name => $script_name,
! 						    $op              => 1); # we show only the TMPL_VAR names $op
! 	} else {
! 	    $op='';
! 	    $searchfield='';
! 	    $template->param(script_name => $script_name,
! 						else              => 1); # we show only the TMPL_VAR names $op
! 	}
!     }
!     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) {
! 	    my $query = "update systempreferences set value=?,explanation=? where variable=?";
! 	    my $sth=$dbh->prepare($query);
! 	    $sth->execute($value, $input->param('explanation'), $input->param('variable'));
! 	    $sth->finish;
      } else {
! 	    my $query = "insert into systempreferences (variable,value,explanation) values (?,?,?)";
! 	    my $sth=$dbh->prepare($query);
! 	    $sth->execute($input->param('variable'), $input->param('value'), $input->param('explanation'));
! 	    $sth->finish;
!     }
!     $sth->finish;
  
  }
--- 97,153 ----
  
  if ($op eq 'update_and_reedit') {
! 	foreach ($input->param) {
! 	}
! 	my $value='';
! 	if (my $currentorder=$input->param('currentorder')) {
! 		my @currentorder=split /\|/, $currentorder;
! 		my $orderchanged=0;
! 		foreach my $param ($input->param) {
! 			if ($param=~m#up-(\d+).x#) {
! 				my $temp=$currentorder[$1];
! 				$currentorder[$1]=$currentorder[$1-1];
! 				$currentorder[$1-1]=$temp;
! 				$orderchanged=1;
! 				last;
! 			} elsif ($param=~m#down-(\d+).x#) {
! 				my $temp=$currentorder[$1];
! 				$currentorder[$1]=$currentorder[$1+1];
! 				$currentorder[$1+1]=$temp;
! 				$orderchanged=1;
! 				last;
! 			}
! 		}
! 		$value=join ' ', @currentorder;
! 		if ($orderchanged) {
! 			$op='add_form';
! 			$template->param(script_name => $script_name,
! 							$op              => 1); # we show only the TMPL_VAR names $op
! 		} else {
! 			$op='';
! 			$searchfield='';
! 			$template->param(script_name => $script_name,
! 							else              => 1); # we show only the TMPL_VAR names $op
! 		}
! 	}
! 	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') eq 1) {
! 			my $query = "update systempreferences set value=?,explanation=? where variable=?";
! 			my $sth=$dbh->prepare($query);
! 			$sth->execute($value, $input->param('explanation'), $input->param('variable'));
! 			$sth->finish;
! 		}
      } else {
! 		unless (C4::Context->config('demo') eq 1) {
! 			my $query = "insert into systempreferences (variable,value,explanation) values (?,?,?)";
! 			my $sth=$dbh->prepare($query);
! 			$sth->execute($input->param('variable'), $input->param('value'), $input->param('explanation'));
! 			$sth->finish;
! 		}
! 	}
! 	$sth->finish;
  
  }
***************
*** 238,250 ****
  	$sth->execute($input->param('variable'));
  	if ($sth->rows) {
! 		my $query = "update systempreferences set value=?,explanation=? where variable=?";
! 		my $sth=$dbh->prepare($query);
! 		$sth->execute($input->param('value'), $input->param('explanation'), $input->param('variable'));
! 		$sth->finish;
  	} else {
! 		my $query = "insert into systempreferences (variable,value,explanation) values (?,?,?)";
! 		my $sth=$dbh->prepare($query);
! 		$sth->execute($input->param('variable'), $input->param('value'), $input->param('explanation'));
! 		$sth->finish;
  	}
  	$sth->finish;
--- 241,257 ----
  	$sth->execute($input->param('variable'));
  	if ($sth->rows) {
! 		unless (C4::Context->config('demo') eq 1) {
! 			my $query = "update systempreferences set value=?,explanation=? where variable=?";
! 			my $sth=$dbh->prepare($query);
! 			$sth->execute($input->param('value'), $input->param('explanation'), $input->param('variable'));
! 			$sth->finish;
! 		}
  	} else {
! 		unless (C4::Context->config('demo') eq 1) {
! 			my $query = "insert into systempreferences (variable,value,explanation) values (?,?,?)";
! 			my $sth=$dbh->prepare($query);
! 			$sth->execute($input->param('variable'), $input->param('value'), $input->param('explanation'));
! 			$sth->finish;
! 		}
  	}
  	$sth->finish;