[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]

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;