[Koha-devel] CVS: koha/acqui.simple addbookslccn.pl,1.2,1.3 addbooks.pl,1.3,1.4
Chris Cormack
rangi at users.sourceforge.net
Sat Mar 30 22:51:07 CET 2002
Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv14281
Modified Files:
addbookslccn.pl addbooks.pl
Log Message:
Fixed the holding branch insertion code. It was inserting the correct
homebranch but was still inserting the wrong home branch
Index: addbookslccn.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** addbookslccn.pl 31 Mar 2002 02:48:18 -0000 1.2
--- addbookslccn.pl 31 Mar 2002 06:50:08 -0000 1.3
***************
*** 260,264 ****
$sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber,
! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', $q_homebranch, '$date', $replacementprice)");
$sth->execute;
}
--- 260,264 ----
$sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber,
! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, $q_homebranch, '$date', $replacementprice)");
$sth->execute;
}
Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** addbooks.pl 31 Mar 2002 01:18:36 -0000 1.3
--- addbooks.pl 31 Mar 2002 06:50:08 -0000 1.4
***************
*** 262,269 ****
my $date=(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
my $q_homebranch=$dbh->quote($input->param('homebranch'));
! $sth=$dbh->prepare("insert into items (itemnumber, biblionumber,
biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber,
! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, 'STWE', $q_homebranch, '$date', $replacementprice)");
$sth->execute;
}
--- 262,271 ----
my $date=(1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
my $q_homebranch=$dbh->quote($input->param('homebranch'));
! my $query="insert into items (itemnumber, biblionumber,
biblioitemnumber,barcode, itemnotes, holdingbranch, homebranch, dateaccessioned, replacementprice) values ($itemnumber,
! $biblionumber, $biblioitemnumber, $barcode, $q_itemnotes, $q_homebranch, $q_homebranch, '$date', $replacementprice)";
! $sth=$dbh->prepare($query);
$sth->execute;
+ # print $query;
}
***************
*** 322,328 ****
foreach my $key (sort(keys %$branches)) {
print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
! # $key, '=', $branches->{$key}, "\n";
! }
! # <option value='STWE'>Stewart Elementary<option value='MEZ'>Meziadin Elementary
print << "EOF";
</select></td></tr>
--- 324,328 ----
foreach my $key (sort(keys %$branches)) {
print "<option value=\"$key\">$branches->{$key}->{'branchname'}</option>";
! }
print << "EOF";
</select></td></tr>
More information about the Koha-devel
mailing list