Lines 7010-7016
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
Link Here
|
7010 |
while ( my $subscription = $sth->fetchrow_hashref() ) { |
7010 |
while ( my $subscription = $sth->fetchrow_hashref() ) { |
7011 |
## parse out the labels and save them |
7011 |
## parse out the labels and save them |
7012 |
my $nm = $subscription->{'numberingmethod'}; |
7012 |
my $nm = $subscription->{'numberingmethod'}; |
7013 |
print "NUMBERING METHOD: '$nm'\n"; |
|
|
7014 |
my @labels = split(/\{[XYZ]\}[, ]?/, $nm); |
7013 |
my @labels = split(/\{[XYZ]\}[, ]?/, $nm); |
7015 |
@labels = map( $trim->( $_ ), @labels ); |
7014 |
@labels = map( $trim->( $_ ), @labels ); |
7016 |
my ( $x_label, $y_label, $z_label ) = @labels; |
7015 |
my ( $x_label, $y_label, $z_label ) = @labels; |
7017 |
- |
|
|