Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fixing insert bug

Browse source
This commit is contained in:
chris 1999-12-21 21:31:45 +00:00
parent 6d6fab2b94
commit 77447a6532
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Database.pm
View file

@ -66,14 +66,14 @@ sub sqlinsert {
my $dbh=C4Connect;
my $query="INSERT INTO $table \(";
while (my ($key,$value) = each %data){
if ($key ne 'type'){
if ($key ne 'type' && $key ne 'updtype'){
$query=$query."$key,";
}
}
$query=~ s/\,$/\)/;
$query=$query." VALUES (";
while (my ($key,$value) = each %data){
if ($key ne 'type'){
if ($key ne 'type' && $key ne 'updtype'){
$query=$query."'$value',";
}
}

2
insertdata.pl
View file

@ -53,7 +53,7 @@ if ($data{'type'} eq 'biblio'){
$keyfld = "borrowernumber";
} else {
my $bornum=getmax('borrowers','borrowernumber');
my $num=$bornum->{'max'};
my $num=$bornum->{'max(borrowernumber)'};
$num++;
$data{'borrowernumber'}=$num;
$data{'branchcode'}="L";