[Koha-cvs] CVS: koha/z3950 processz3950queue,1.13.2.1,1.13.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/z3950
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22225/z3950

Modified Files:
      Tag: rel_2_2
        processz3950queue 
Log Message:
fix for UNIMARC BNF behaviour (now work as expected)

Index: processz3950queue
===================================================================
RCS file: /cvsroot/koha/koha/z3950/processz3950queue,v
retrieving revision 1.13.2.1
retrieving revision 1.13.2.2
diff -C2 -r1.13.2.1 -r1.13.2.2
*** processz3950queue   30 Mar 2005 09:53:39 -0000      1.13.2.1
--- processz3950queue   16 Jun 2005 15:51:05 -0000      1.13.2.2
***************
*** 281,292 ****
                                                                        for 
($i=1; $i<=(($numresults<80) ? ($numresults) : (80)); $i++) {
                                                                                
my $rec=$rs->record($i);
!                                                                               
my $marcdata;
!                                                                               
# use render() or rawdata() depending on the type of the returned record
!                                                                               
if (ref($rec) eq "Net::Z3950::Record::USMARC") {
!                                                                               
        $marcdata = $rec->rawdata();
!                                                                               
}
!                                                                               
if (ref($rec) eq "Net::Z3950::Record::UNIMARC") {
!                                                                               
        $marcdata = $rec->rawdata();
!                                                                               
}
                                                                                
$globalencoding = ref($rec);
                                                                                
$result.=$marcdata;
--- 281,285 ----
                                                                        for 
($i=1; $i<=(($numresults<80) ? ($numresults) : (80)); $i++) {
                                                                                
my $rec=$rs->record($i);
!                                                                               
my $marcdata = $rec->rawdata();
                                                                                
$globalencoding = ref($rec);
                                                                                
$result.=$marcdata;