[Koha-cvs] CVS: koha/acqui.simple addbooks.pl,1.9,1.10 additem.pl,1.4,1.5 isbnsearch.pl,1.2,1.3 addbookslccn.pl,1.5,1.6 keywordsearch.pl,1.3,1.4 bulkmarcimport.pl,1.5,1.6 marcimport.pl,1.11,1.12 savebiblio.pl,1.4,1.5 saveitem.pl,1.4,1.5 viewmarc.pl,1.2,1.3 websitesearch.pl,1.2,1.3

Paul POULAIN tipaul at users.sourceforge.net
Wed Jul 24 18:24:23 CEST 2002


Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv7886

Modified Files:
	addbooks.pl additem.pl isbnsearch.pl addbookslccn.pl 
	keywordsearch.pl bulkmarcimport.pl marcimport.pl savebiblio.pl 
	saveitem.pl viewmarc.pl websitesearch.pl 
Log Message:
Now, the acqui.simple system...
marcimport.pl has been almost completly rewritten, so LOT OF BUGS TO COME !!! You've been warned. It seems to work, but...

As with my former messages, nothing seems to have been changed... but ...
* marcimport now uses HTML::Template.
* marcimport now uses MARC::Record. that means that when you import a record, the old-DB is populated with the data as in version 1.2, but the MARC-DB part is filled with full MARC::Record.

<IMPORTANT NOTE>
to get correct response times, you MUST add an index on isbn, issn and lccn rows in biblioitem table. Note this should be done in 1.2 too...
</IMPORTANT NOTE>

<IMPORTANT NOTE2>
acqui.simple manage biblio, biblioitems and items tables quite properly. Normal acquisition system manages biblio, biblioitems BUT NOT items. That will be done in the near future...
</IMPORTANT NOTE2>

what's next now ? 
* bug tracking, of course... Surely a dozen of dozens...
* LOT of developpments, i'll surely write a mail to koha-devel tomorrow (as it's time for dinner in France, and i plan to play NeverwinterNights after dinner ;-) ...



Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** addbooks.pl	22 May 2002 18:35:25 -0000	1.9
--- addbooks.pl	24 Jul 2002 16:24:20 -0000	1.10
***************
*** 2,13 ****
--- 2,24 ----
  
  #
+ # Modified saas at users.sf.net 12:00 01 April 2001
+ # The biblioitemnumber was not correctly initialised
+ # The max(barcode) value was broken - koha 'barcode' is a string value!
+ # - If left blank, barcode value now defaults to max(biblionumber) 
+ 
+ #
  # TODO
  #
  # Add info on biblioitems and items already entered as you enter new ones
  #
+ # Add info on biblioitems and items already entered as you enter new ones
  
+ use C4::Database;
  use CGI;
  use strict;
+ use C4::Catalogue;
+ use C4::Biblio;
  use C4::Output;
+ use C4::Circulation::Circ2;
  
  my $input = new CGI;

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** additem.pl	22 May 2002 18:35:25 -0000	1.4
--- additem.pl	24 Jul 2002 16:24:20 -0000	1.5
***************
*** 3,7 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  use C4::Output;
  
--- 3,8 ----
  use CGI;
  use strict;
! use C4::Catalogue;
! use C4::Biblio;
  use C4::Output;
  

Index: isbnsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/isbnsearch.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** isbnsearch.pl	22 May 2002 18:35:25 -0000	1.2
--- isbnsearch.pl	24 Jul 2002 16:24:20 -0000	1.3
***************
*** 3,7 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  use C4::Search;
  use C4::Output;
--- 3,8 ----
  use CGI;
  use strict;
! use C4::Catalogue;
! use C4::Biblio;
  use C4::Search;
  use C4::Output;

Index: addbookslccn.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** addbookslccn.pl	20 Jun 2002 17:33:14 -0000	1.5
--- addbookslccn.pl	24 Jul 2002 16:24:20 -0000	1.6
***************
*** 17,21 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  use C4::Biblio;
  use C4::Output;
--- 17,21 ----
  use CGI;
  use strict;
! use C4::Catalogue;
  use C4::Biblio;
  use C4::Output;

Index: keywordsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/keywordsearch.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** keywordsearch.pl	22 May 2002 18:35:25 -0000	1.3
--- keywordsearch.pl	24 Jul 2002 16:24:20 -0000	1.4
***************
*** 3,7 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  use C4::Search;
  use C4::Output;
--- 3,8 ----
  use CGI;
  use strict;
! use C4::Catalogue;
! use C4::Biblio;
  use C4::Search;
  use C4::Output;

Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/bulkmarcimport.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** bulkmarcimport.pl	20 Jun 2002 17:45:30 -0000	1.5
--- bulkmarcimport.pl	24 Jul 2002 16:24:20 -0000	1.6
***************
*** 32,36 ****
  use DBI;
  #use strict;
! use C4::Acquisitions;
  use C4::Biblio;
  use C4::Output;
--- 32,36 ----
  use DBI;
  #use strict;
! use C4::Catalogue;
  use C4::Biblio;
  use C4::Output;

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** marcimport.pl	20 Jun 2002 15:56:51 -0000	1.11
--- marcimport.pl	24 Jul 2002 16:24:20 -0000	1.12
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  # Script for handling import of MARC data into Koha db
  #   and Z39.50 lookups
***************
*** 7,12 ****
  
[...2069 lines suppressed...]
+ # Revision 1.6.2.30  2002/06/28 18:07:27  tonnesen
+ # marcimport.pl will print an error message if it can not signal the
+ # processz3950queue program.  The message contains instructions for starting the
+ # daemon.
+ #
+ # Revision 1.6.2.29  2002/06/27 18:35:01  tonnesen
+ # $deweyinput was always defined (it's an HTML input field).  Check against
+ # $bib->{dewey} instead.
+ #
+ # Revision 1.6.2.28  2002/06/27 17:41:26  tonnesen
+ # Applying patch from Matt Kraai to pick F or NF based on presense of a dewey
+ # number when adding a book via marcimport.pl
+ #
+ # Revision 1.6.2.27  2002/06/26 15:52:55  amillar
+ # Fix display of marc tag labels and indicators
+ #
+ # Revision 1.6.2.26  2002/06/26 14:28:35  amillar
+ # Removed subroutines now existing in modules: extractmarcfields,
+ #  parsemarcfileformat, addz3950queue, getkeytableselectoptions
+ #

Index: savebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** savebiblio.pl	22 May 2002 18:35:25 -0000	1.4
--- savebiblio.pl	24 Jul 2002 16:24:20 -0000	1.5
***************
*** 3,7 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  
  my $input = new CGI;
--- 3,8 ----
  use CGI;
  use strict;
! use C4::Catalogue;
! use C4::Biblio;
  
  my $input = new CGI;

Index: saveitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/saveitem.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** saveitem.pl	22 May 2002 18:35:25 -0000	1.4
--- saveitem.pl	24 Jul 2002 16:24:20 -0000	1.5
***************
*** 3,7 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  
  my $input            = new CGI;
--- 3,8 ----
  use CGI;
  use strict;
! use C4::Catalogue;
! use C4::Biblio;
  
  my $input            = new CGI;

Index: viewmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/viewmarc.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** viewmarc.pl	20 Jun 2002 17:33:16 -0000	1.2
--- viewmarc.pl	24 Jul 2002 16:24:20 -0000	1.3
***************
*** 12,16 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  use C4::Biblio;
  use C4::Output;
--- 12,16 ----
  use CGI;
  use strict;
! use C4::Catalogue;
  use C4::Biblio;
  use C4::Output;

Index: websitesearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/websitesearch.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** websitesearch.pl	22 May 2002 18:35:25 -0000	1.2
--- websitesearch.pl	24 Jul 2002 16:24:20 -0000	1.3
***************
*** 3,7 ****
  use CGI;
  use strict;
! use C4::Acquisitions;
  use C4::Output;
  
--- 3,8 ----
  use CGI;
  use strict;
! use C4::Catalogue;
! use C4::Biblio;
  use C4::Output;
  





More information about the Koha-cvs mailing list