[Koha-cvs] CVS: koha/value_builder unimarc_field_4XX.pl,1.4.2.1,1.4.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	unimarc_field_4XX.pl 
Log Message:
synch'ing plugin from HEAD branch (where hdl wrote this plugin)

Index: unimarc_field_4XX.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** unimarc_field_4XX.pl	20 Mar 2005 21:18:09 -0000	1.4.2.1
--- unimarc_field_4XX.pl	19 May 2005 22:50:29 -0000	1.4.2.2
***************
*** 104,108 ****
  		my $subfield_value_9=$bibid;
  		my $subfield_value_0;
! 		$subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field;
  		my $subfield_value_a;
  		if ($marcrecord->field('200')){
--- 104,108 ----
  		my $subfield_value_9=$bibid;
  		my $subfield_value_0;
! 		$subfield_value_0=$marcrecord->field('001')->data if $marcrecord->field('001');
  		my $subfield_value_a;
  		if ($marcrecord->field('200')){
***************
*** 113,127 ****
  			$subfield_value_a=$marcrecord->field('701')->subfield("a");
  		}
! 		my $subfield_value_c = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210'));
! 		my $subfield_value_d;
! 		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){
! 			$publicationdate=substr($marcrecord->field('100')->subfield("a"),12,4);
! 			}
! 			$subfield_value_d=$publicationdate;
! 		}
  		my $subfield_value_e= $marcrecord->field('205')->subfield("a") if ($marcrecord->field('205'));
  		
--- 113,119 ----
  			$subfield_value_a=$marcrecord->field('701')->subfield("a");
  		}
! 		my $subfield_value_c = $marcrecord->field('210')->subfield("a") if ($marcrecord->field('210'));
! 		my $subfield_value_d = $marcrecord->field('210')->subfield("d") if ($marcrecord->field('210'));
! 		
  		my $subfield_value_e= $marcrecord->field('205')->subfield("a") if ($marcrecord->field('205'));
  		
***************
*** 155,159 ****
  		}
  		
! 		my $subfield_value_u = $marcrecord->field('856')->subfield("p") if ($marcrecord->field('856'));
  		
  		my $subfield_value_v;
--- 147,151 ----
  		}
  		
! 		my $subfield_value_u = $marcrecord->field('856')->subfield("u") if ($marcrecord->field('856'));
  		
  		my $subfield_value_v;