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

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8422/admin

Modified Files:
	itemtypes.pl 
Log Message:
fixes for notforloan management

Index: itemtypes.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/itemtypes.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** itemtypes.pl	18 Aug 2004 16:05:14 -0000	1.14
--- itemtypes.pl	13 Sep 2004 15:20:28 -0000	1.15
***************
*** 114,133 ****
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
! 	my $query = "replace itemtypes (itemtype,description,renewalsallowed,rentalcharge,notforloan) values (";
! 	$query.= $dbh->quote($input->param('itemtype')).",";
! 	$query.= $dbh->quote($input->param('description')).",";
! 	if ($input->param('renewalsallowed') ne 1) {
! 		$query.= "0,";
! 	} else {
! 		$query.= "1,";
! 	}
! 	$query.= $dbh->quote($input->param('rentalcharge')).",";
! 	if ($input->param('notforloan') ne 1) {
! 		$query.= "0)";
! 	} else {
! 		$query.= "1)";
! 	}
! 	my $sth=$dbh->prepare($query);
! 	$sth->execute;
  	$sth->finish;
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=itemtypes.pl\"></html>";
--- 114,122 ----
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
! 	my $sth=$dbh->prepare("replace itemtypes (itemtype,description,renewalsallowed,rentalcharge,notforloan) values (?,?,?,?,?)");
! 	$sth->execute(
! 		$input->param('itemtype'),$input->param('description'),
! 		$input->param('renewalsallowed'),$input->param('rentalcharge'),
! 		$input->param('notforloan')?1:0);
  	$sth->finish;
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=itemtypes.pl\"></html>";