[Koha-cvs] CVS: koha/value_builder unimarc_field_4XX.pl,1.3,1.4

[Henri-Damien LAURENT]

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

Modified Files:
	unimarc_field_4XX.pl 
Log Message:
Minor Bug Fixing

Index: unimarc_field_4XX.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** unimarc_field_4XX.pl	16 Mar 2005 17:40:00 -0000	1.3
--- unimarc_field_4XX.pl	18 Mar 2005 15:52:29 -0000	1.4
***************
*** 97,108 ****
  		$req->execute($bibnum);
  		($bibid,$bibnum) = $req->fetchrow;
! #		warn "bibid :".$bibid;
  		#get marc record
  		$marcrecord = MARCgetbiblio($dbh,$bibid);
! #		warn "record : ".$marcrecord->as_formatted;
! # 		my @loop_data =();
! # 		my $tag;
! # 		my @loop_data =();
! # 		my @subfields_data;
  		
  		my $subfield_value_9=$bibid;
--- 97,104 ----
  		$req->execute($bibnum);
  		($bibid,$bibnum) = $req->fetchrow;
! 		#warn "bibid :".$bibid;
  		#get marc record
  		$marcrecord = MARCgetbiblio($dbh,$bibid);
! 		warn "record : ".$marcrecord->as_formatted;
  		
  		my $subfield_value_9=$bibid;
***************
*** 120,124 ****
  		if ($marcrecord->field('100')){
  			my $publicationdate;
! 			warn "date de publication 1".substr($marcrecord->field('100')->subfield("a"),9,4)."   date de publication 2 ".substr($marcrecord->field('100')->subfield("a"),12,4);
  			$publicationdate = substr($marcrecord->field('100')->subfield("a"),9,4);
  			if (substr($marcrecord->field('100')->subfield("a"),12,4)>$publicationdate){
--- 116,120 ----
  		if ($marcrecord->field('100')){
  			my $publicationdate;
! 			#warn "date de publication 1".substr($marcrecord->field('100')->subfield("a"),9,4)."   date de publication 2 ".substr($marcrecord->field('100')->subfield("a"),12,4);
  			$publicationdate = substr($marcrecord->field('100')->subfield("a"),9,4);
  			if (substr($marcrecord->field('100')->subfield("a"),12,4)>$publicationdate){
***************
*** 169,192 ****
  		my $subfield_value_y = $marcrecord->field('013')->subfield("a") if ($marcrecord->field('013'));
  		if ($marcrecord->field('010')){
! 			my $subfield_value_y = $marcrecord->field('010')->subfield("a");
  		}
- # 		my @subf;
- # 		#=(a,c,d,e,h,i,p,t,u,v,x,y,0,9);
- # 			# loop through each subfield
- # 		for my $i (0..$#subf) {
- # 			$subf[$i][0] = "@" unless $subf[$i][0];
- # 			my %subfield_data;
- # 			$subfield_data{marc_value}=$subf[$i][1];
- # 			$subfield_data{marc_subfield}=$subf[$i][0];
- # 			$subfield_data{marc_tag}="";#$field->tag();
- # 			push(@subfields_data, \%subfield_data);
- # 		}
- # 		if ($#subfields_data>=0) {
- # 			my %tag_data;
- # 			$tag_data{tag}="";#$field->tag().' -'. "";
- # 			$tag_data{subfield} = \@subfields_data;
- # 			push (@loop_data, \%tag_data);
- # 		}
- #		$template->param("0XX" =>\@loop_data);
  		$template->param(fillinput => 1,
  						index => $query->param('index')."",
--- 165,170 ----
  		my $subfield_value_y = $marcrecord->field('013')->subfield("a") if ($marcrecord->field('013'));
  		if ($marcrecord->field('010')){
! 			$subfield_value_y = $marcrecord->field('010')->subfield("a");
  		}
  		$template->param(fillinput => 1,
  						index => $query->param('index')."",