|
Lines 42-47
foreach (qw/ numberingmethod label1 label2 label3 add1 add2 add3
Link Here
|
| 42 |
} |
42 |
} |
| 43 |
# patternname is label in database |
43 |
# patternname is label in database |
| 44 |
$numberpattern->{'label'} = $input->param('patternname'); |
44 |
$numberpattern->{'label'} = $input->param('patternname'); |
|
|
45 |
$numberpattern->{'description'} = $input->param('patternname'); |
| 45 |
|
46 |
|
| 46 |
# Check if pattern already exist in database |
47 |
# Check if pattern already exist in database |
| 47 |
my $dbh = C4::Context->dbh; |
48 |
my $dbh = C4::Context->dbh; |
| 48 |
- |
|
|