[Koha-cvs] CVS: koha detail.pl,1.23,1.24 ISBDdetail.pl,1.3,1.4

[Paul POULAIN]

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

Modified Files:
	detail.pl ISBDdetail.pl 
Log Message:


Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** detail.pl	11 Feb 2004 08:35:31 -0000	1.23
--- detail.pl	8 Dec 2004 10:30:29 -0000	1.24
***************
*** 49,52 ****
--- 49,53 ----
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);
+ my ($subjectcount, $subjects) = &subject($biblionumber);
  
  $dat->{'count'}=@items;
***************
*** 55,59 ****
  $dat->{'additional'}=$addauthor->[0]->{'author'};
  for (my $i = 1; $i < $authorcount; $i++) {
!         $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
  } # for
  
--- 56,65 ----
  $dat->{'additional'}=$addauthor->[0]->{'author'};
  for (my $i = 1; $i < $authorcount; $i++) {
! 	$dat->{'additional'} .= " ; " . $addauthor->[$i]->{'author'};
! } # for
! 
! $dat->{'subjects'}=$subjects->[0]->{'subject'};
! for (my $i = 1; $i < $subjectcount; $i++) {
! 	$dat->{'subjects'} .= ", " . $subjects->[$i]->{'subject'};
  } # for
  

Index: ISBDdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/ISBDdetail.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** ISBDdetail.pl	25 Oct 2004 13:28:23 -0000	1.3
--- ISBDdetail.pl	8 Dec 2004 10:30:29 -0000	1.4
***************
*** 80,84 ****
  	my $blocres;
  	foreach my $isbdfield (split /#/,$bloc) {
- 	warn "ISBDFIELD : $isbdfield";
  # 		$isbdfield= /(.?.?.?)/;
  		$isbdfield =~ /(\d\d\d)\|(.*)\|(.*)\|(.*)/;
--- 80,83 ----