Attachment #6143 for bug #6679

View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All




#        use Data::Dumper;warn "BIGLOOP IN".Dumper(@BIGLOOP);
    }
    foreach my $num (sort keys %numbers){
	my @tmpcolhdr;
	my @tmprowhdr;
        @tmpcolhdr = @{$numbers{$num}->{'col_hdr'}} if ($numbers{$num}->{'col_hdr'});
        @tmprowhdr = @{$numbers{$num}->{"row_hdr"}} if ($numbers{$num}->{'row_hdr'});
      my @lines;
      my @lists;
      my %BIGLOOPcell;
      foreach my $row (@tmprowhdr){
        my $tmprowvalue=$row->{rowvalue};
	  my $rowcode;
          $rowcode=$1 if $tmprowvalue=~/[0-9]([0-9])\./;
        my @cells;
        if (scalar(@tmpcolhdr)>0){
        #cas du tableau bidim
          foreach my $col (@tmpcolhdr){
            my $tmpcolvalue=$col->{colvalue};
	      my $colcode;
              $colcode=$1 if $tmpcolvalue=~/[0-9]\.([0-9])/;
            my %cell;
            $cell{celvalue}=$num.$rowcode.$colcode;
            $cell{rowvalue}=$tmprowvalue;

Lines 1-6 Link Here

(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-7 / +9 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Copyright 2000-2002 Katipo Communications	3	# Copyright Biblibre 2007
4	#	4	#
5	# This file is part of Koha.	5	# This file is part of Koha.
6	#	6	#
Lines 204-215 sub plugin { Link Here
204	elsif ( $marcrecord->field('200') ) {	204	elsif ( $marcrecord->field('200') ) {
205	$subfield_value_a = $marcrecord->subfield( '200', 'f' );	205	$subfield_value_a = $marcrecord->subfield( '200', 'f' );
206	}	206	}
207	my $subfield_value_c = $marcrecord->field('210')->subfield("a")	207	my $subfield_value_c;
		208	my $subfield_value_d;
		209	my $subfield_value_e;
		210	$subfield_value_c = $marcrecord->field('210')->subfield("a")
208	if ( $marcrecord->field('210') );	211	if ( $marcrecord->field('210') );
209	my $subfield_value_d = $marcrecord->field('210')->subfield("d")	212	$subfield_value_d = $marcrecord->field('210')->subfield("d")
210	if ( $marcrecord->field('210') );	213	if ( $marcrecord->field('210') );
211		214	$subfield_value_e = $marcrecord->field('205')->subfield("a")
212	my $subfield_value_e = $marcrecord->field('205')->subfield("a")
213	if ( $marcrecord->field('205') );	215	if ( $marcrecord->field('205') );
214		216
215	my $subfield_value_h;	217	my $subfield_value_h;
Lines 246-252 sub plugin { Link Here
246	$subfield_value_i = $marcrecord->field('500')->subfield("i");	248	$subfield_value_i = $marcrecord->field('500')->subfield("i");
247	}	249	}
248		250
249	my $subfield_value_p = $marcrecord->field('215')->subfield("a")	251	my $subfield_value_p;
		252	$subfield_value_p = $marcrecord->field('215')->subfield("a")
250	if ( $marcrecord->field('215') );	253	if ( $marcrecord->field('215') );
251		254
252	my $subfield_value_t;	255	my $subfield_value_t;
253	-

Return to bug 6679

Lines 118-137 my ($input) = @_; Link Here

(-)a/cataloguing/value_builder/macles.pl (-4 / +8 lines)
118	# use Data::Dumper;warn "BIGLOOP IN".Dumper(@BIGLOOP);	118	# use Data::Dumper;warn "BIGLOOP IN".Dumper(@BIGLOOP);
119	}	119	}
120	foreach my $num (sort keys %numbers){	120	foreach my $num (sort keys %numbers){
121	my @tmpcolhdr = @{$numbers{$num}->{'col_hdr'}} if ($numbers{$num}->{'col_hdr'});	121	my @tmpcolhdr;
122	my @tmprowhdr = @{$numbers{$num}->{"row_hdr"}} if ($numbers{$num}->{'row_hdr'});	122	my @tmprowhdr;
		123	@tmpcolhdr = @{$numbers{$num}->{'col_hdr'}} if ($numbers{$num}->{'col_hdr'});
		124	@tmprowhdr = @{$numbers{$num}->{"row_hdr"}} if ($numbers{$num}->{'row_hdr'});
123	my @lines;	125	my @lines;
124	my @lists;	126	my @lists;
125	my %BIGLOOPcell;	127	my %BIGLOOPcell;
126	foreach my $row (@tmprowhdr){	128	foreach my $row (@tmprowhdr){
127	my $tmprowvalue=$row->{rowvalue};	129	my $tmprowvalue=$row->{rowvalue};
128	my $rowcode=$1 if $tmprowvalue=~/[0-9]([0-9])\./;	130	my $rowcode;
		131	$rowcode=$1 if $tmprowvalue=~/[0-9]([0-9])\./;
129	my @cells;	132	my @cells;
130	if (scalar(@tmpcolhdr)>0){	133	if (scalar(@tmpcolhdr)>0){
131	#cas du tableau bidim	134	#cas du tableau bidim
132	foreach my $col (@tmpcolhdr){	135	foreach my $col (@tmpcolhdr){
133	my $tmpcolvalue=$col->{colvalue};	136	my $tmpcolvalue=$col->{colvalue};
134	my $colcode=$1 if $tmpcolvalue=~/[0-9]\.([0-9])/;	137	my $colcode;
		138	$colcode=$1 if $tmpcolvalue=~/[0-9]\.([0-9])/;
135	my %cell;	139	my %cell;
136	$cell{celvalue}=$num.$rowcode.$colcode;	140	$cell{celvalue}=$num.$rowcode.$colcode;
137	$cell{rowvalue}=$tmprowvalue;	141	$cell{rowvalue}=$tmprowvalue;