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

(-)a/cataloguing/value_builder/macles.pl (-4 / +8 lines)
Lines 118-137 my ($input) = @_; Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-7 / +9 lines)
Lines 1-6 Link Here
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