[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