|
Lines 11471-11483
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Link Here
|
| 11471 |
|
11471 |
|
| 11472 |
my $sth2 = $dbh->prepare("SELECT * FROM subscription_numberpatterns WHERE id = ?"); |
11472 |
my $sth2 = $dbh->prepare("SELECT * FROM subscription_numberpatterns WHERE id = ?"); |
| 11473 |
|
11473 |
|
| 11474 |
my $sth3 = $dbh->prepare("UPDATE serials SET serialseq_x = ?, serialseq_y = ?, serialseq_z = ? WHERE serialid = ?"); |
11474 |
my $sth3 = $dbh->prepare("UPDATE serial SET serialseq_x = ?, serialseq_y = ?, serialseq_z = ? WHERE serialid = ?"); |
| 11475 |
|
11475 |
|
| 11476 |
foreach my $subscription ( $sth->fetchrow_hashref() ) { |
11476 |
foreach my $subscription ( $sth->fetchrow_hashref() ) { |
| 11477 |
next if !defined($subscription); |
11477 |
next if !defined($subscription); |
| 11478 |
my $number_pattern = $subscription->numberpattern(); |
|
|
| 11479 |
$sth2->execute( $subscription->{numberpattern} ); |
11478 |
$sth2->execute( $subscription->{numberpattern} ); |
| 11480 |
$number_pattern = $sth2->fetchrow_hashref(); |
11479 |
my $number_pattern = $sth2->fetchrow_hashref(); |
| 11481 |
|
11480 |
|
| 11482 |
my $numbering_method = $number_pattern->{numberingmethod}; |
11481 |
my $numbering_method = $number_pattern->{numberingmethod}; |
| 11483 |
# Get all the data between the enumeration values, we need |
11482 |
# Get all the data between the enumeration values, we need |
| 11484 |
- |
|
|