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