[Koha-cvs] CVS: koha/admin itemtypes.pl,1.10.2.1,1.10.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
	itemtypes.pl 
Log Message:
adding notforloan field management

Index: itemtypes.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/itemtypes.pl,v
retrieving revision 1.10.2.1
retrieving revision 1.10.2.2
diff -C2 -r1.10.2.1 -r1.10.2.2
*** itemtypes.pl	23 Dec 2003 17:58:04 -0000	1.10.2.1
--- itemtypes.pl	12 Jan 2004 19:20:33 -0000	1.10.2.2
***************
*** 97,101 ****
  	if ($itemtype) {
  		my $dbh = C4::Context->dbh;
! 		my $sth=$dbh->prepare("select itemtype,description,loanlength,renewalsallowed,rentalcharge from itemtypes where itemtype=?");
  		$sth->execute($itemtype);
  		$data=$sth->fetchrow_hashref;
--- 97,101 ----
  	if ($itemtype) {
  		my $dbh = C4::Context->dbh;
! 		my $sth=$dbh->prepare("select itemtype,description,loanlength,renewalsallowed,rentalcharge,notforloan from itemtypes where itemtype=?");
  		$sth->execute($itemtype);
  		$data=$sth->fetchrow_hashref;
***************
*** 106,110 ****
  							loanlength => $data->{'loanlength'},
  							renewalsallowed => $data->{'renewalsallowed'},
! 							rentalcharge => $data->{'rentalcharge'});
  ;
  													# END $OP eq ADD_FORM
--- 106,112 ----
  							loanlength => $data->{'loanlength'},
  							renewalsallowed => $data->{'renewalsallowed'},
! 							rentalcharge => $data->{'rentalcharge'},
! 							notforloan => $data->{'notforloan'}
! 							);
  ;
  													# END $OP eq ADD_FORM
***************
*** 113,117 ****
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
! 	my $query = "replace itemtypes (itemtype,description,loanlength,renewalsallowed,rentalcharge) values (";
  	$query.= $dbh->quote($input->param('itemtype')).",";
  	$query.= $dbh->quote($input->param('description')).",";
--- 115,119 ----
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
! 	my $query = "replace itemtypes (itemtype,description,loanlength,renewalsallowed,rentalcharge,notforloan) values (";
  	$query.= $dbh->quote($input->param('itemtype')).",";
  	$query.= $dbh->quote($input->param('description')).",";
***************
*** 122,126 ****
  		$query.= "1,";
  	}
! 	$query.= $dbh->quote($input->param('rentalcharge')).")";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
--- 124,133 ----
  		$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;