[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.40,1.41 addbooks.pl,1.21,1.22 additem-nomarc.pl,1.2,1.3 additem.pl,1.26,1.27 isbnsearch.pl,1.12,1.13 keywordsearch.pl,1.5,1.6 savebiblio.pl,1.10,1.11 saveitem.pl,1.9,1.10 websitesearch.pl,1.4,1.5
Paul POULAIN
tipaul at users.sourceforge.net
Fri Aug 13 18:37:51 CEST 2004
Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29442/acqui.simple
Modified Files:
addbiblio.pl addbooks.pl additem-nomarc.pl additem.pl
isbnsearch.pl keywordsearch.pl savebiblio.pl saveitem.pl
websitesearch.pl
Log Message:
adding frameworkcode to API in some subs
Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -r1.40 -r1.41
*** addbiblio.pl 29 Jun 2004 16:07:09 -0000 1.40
--- addbiblio.pl 13 Aug 2004 16:37:25 -0000 1.41
***************
*** 352,357 ****
$is_a_modif=1;
# if it's a modif, retrieve old biblio and bibitem numbers for the future modification of old-DB.
! ($oldbiblionumtagfield,$oldbiblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber");
! ($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblioitems.biblioitemnumber");
# search biblioitems value
my $sth=$dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
--- 352,357 ----
$is_a_modif=1;
# if it's a modif, retrieve old biblio and bibitem numbers for the future modification of old-DB.
! ($oldbiblionumtagfield,$oldbiblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber",$frameworkcode);
! ($oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblioitems.biblioitemnumber",$frameworkcode);
# search biblioitems value
my $sth=$dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** addbooks.pl 3 Jun 2004 09:59:37 -0000 1.21
--- addbooks.pl 13 Aug 2004 16:37:25 -0000 1.22
***************
*** 36,40 ****
use CGI;
use C4::Auth;
! use C4::Catalogue;
use C4::Biblio;
use C4::Output;
--- 36,40 ----
use CGI;
use C4::Auth;
! # use C4::Catalogue;
use C4::Biblio;
use C4::Output;
Index: additem-nomarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem-nomarc.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** additem-nomarc.pl 11 May 2003 06:59:11 -0000 1.2
--- additem-nomarc.pl 13 Aug 2004 16:37:25 -0000 1.3
***************
*** 21,24 ****
--- 21,27 ----
# $Log$
+ # Revision 1.3 2004/08/13 16:37:25 tipaul
+ # adding frameworkcode to API in some subs
+ #
# Revision 1.2 2003/05/11 06:59:11 rangi
# Mostly templated.
***************
*** 28,32 ****
use CGI;
use strict;
! use C4::Catalogue;
use C4::Biblio;
use C4::Output;
--- 31,35 ----
use CGI;
use strict;
! # use C4::Catalogue;
use C4::Biblio;
use C4::Output;
Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** additem.pl 29 Jun 2004 16:07:10 -0000 1.26
--- additem.pl 13 Aug 2004 16:37:25 -0000 1.27
***************
*** 139,143 ****
my @big_array;
#---- finds where items.itemnumber is stored
! my ($itemtagfield,$itemtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
my @itemnums; # array to store itemnums
foreach my $field (@fields) {
--- 139,143 ----
my @big_array;
#---- finds where items.itemnumber is stored
! my ($itemtagfield,$itemtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.itemnumber",$itemtype);
my @itemnums; # array to store itemnums
foreach my $field (@fields) {
Index: isbnsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/isbnsearch.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** isbnsearch.pl 4 May 2003 04:00:00 -0000 1.12
--- isbnsearch.pl 13 Aug 2004 16:37:25 -0000 1.13
***************
*** 21,25 ****
use CGI;
use C4::Auth;
! use C4::Catalogue;
use C4::Biblio;
use C4::Search;
--- 21,25 ----
use CGI;
use C4::Auth;
! # use C4::Catalogue;
use C4::Biblio;
use C4::Search;
Index: keywordsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/keywordsearch.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** keywordsearch.pl 14 Aug 2002 18:12:52 -0000 1.5
--- keywordsearch.pl 13 Aug 2004 16:37:25 -0000 1.6
***************
*** 21,25 ****
use CGI;
use strict;
! use C4::Catalogue;
use C4::Biblio;
use C4::Search;
--- 21,25 ----
use CGI;
use strict;
! # use C4::Catalogue;
use C4::Biblio;
use C4::Search;
Index: savebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** savebiblio.pl 26 Jun 2004 23:45:46 -0000 1.10
--- savebiblio.pl 13 Aug 2004 16:37:25 -0000 1.11
***************
*** 20,24 ****
use CGI;
use strict;
! use C4::Catalogue;
use C4::Biblio;
--- 20,24 ----
use CGI;
use strict;
! # use C4::Catalogue;
use C4::Biblio;
Index: saveitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/saveitem.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** saveitem.pl 26 Jun 2004 23:47:17 -0000 1.9
--- saveitem.pl 13 Aug 2004 16:37:25 -0000 1.10
***************
*** 22,26 ****
use CGI;
use strict;
! use C4::Catalogue;
use C4::Biblio;
--- 22,26 ----
use CGI;
use strict;
! # use C4::Catalogue;
use C4::Biblio;
Index: websitesearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/websitesearch.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** websitesearch.pl 14 Aug 2002 18:12:53 -0000 1.4
--- websitesearch.pl 13 Aug 2004 16:37:25 -0000 1.5
***************
*** 21,25 ****
use CGI;
use strict;
! use C4::Catalogue;
use C4::Biblio;
use C4::Output;
--- 21,25 ----
use CGI;
use strict;
! # use C4::Catalogue;
use C4::Biblio;
use C4::Output;
More information about the Koha-cvs
mailing list