[Koha-cvs] CVS: koha/acqui.simple isbnsearch.pl,1.8,1.9 marcimport.pl,1.27,1.28

[Paul POULAIN]

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

Modified Files:
	isbnsearch.pl marcimport.pl 
Log Message:
user can now search in breeding farm with isbn/issn or title. Title/name are stored in breeding farm and showed when a search is done

Index: isbnsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/isbnsearch.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** isbnsearch.pl	23 Jan 2003 12:26:41 -0000	1.8
--- isbnsearch.pl	28 Jan 2003 15:00:30 -0000	1.9
***************
*** 55,59 ****
  	};
  	if (! $num) { $num = 10 };
! 	($count, @results) = isbnsearch($isbn);
  
  	if ($count < ($offset + $num)) {
--- 55,59 ----
  	};
  	if (! $num) { $num = 10 };
! 	($count, @results) = isbnsearch($isbn,$title);
  
  	if ($count < ($offset + $num)) {

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -r1.27 -r1.28
*** marcimport.pl	26 Jan 2003 23:21:49 -0000	1.27
--- marcimport.pl	28 Jan 2003 15:00:31 -0000	1.28
***************
*** 132,138 ****
  					$recoded = $marcrecord->as_usmarc();
  						if ($breedingid) {
! 							$replacesql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$oldbiblio->{title},$oldbiblio->{author},$recoded,$breedingid);
  						} else {
! 							$insertsql ->execute($filename,$oldbiblio->{isbn}.$oldbiblio->{issn},$oldbiblio->{title},$oldbiblio->{author},$recoded);
  						}
  					$imported++;
--- 132,138 ----
  					$recoded = $marcrecord->as_usmarc();
  						if ($breedingid) {
! 							$replacesql ->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded,$breedingid);
  						} else {
! 							$insertsql ->execute($filename,substr($oldbiblio->{isbn}.$oldbiblio->{issn},0,10),$oldbiblio->{title},$oldbiblio->{author},$recoded);
  						}
  					$imported++;
***************
*** 811,814 ****
--- 811,817 ----
  # log cleared, as marcimport is (almost) rewritten from scratch.
  # $Log$
+ # Revision 1.28  2003/01/28 15:00:31  tipaul
+ # user can now search in breeding farm with isbn/issn or title. Title/name are stored in breeding farm and showed when a search is done
+ #
  # Revision 1.27  2003/01/26 23:21:49  acli
  # Handle non-latin1 charsets