|
Lines 84-91
elsif ( $op eq 'cud-add_form_4' ) {
Link Here
|
| 84 |
my $columnstring = join( ',', @columns ); |
84 |
my $columnstring = join( ',', @columns ); |
| 85 |
my $forbidden = Koha::Report->new->check_columns( undef, \@columns ); |
85 |
my $forbidden = Koha::Report->new->check_columns( undef, \@columns ); |
| 86 |
my @column_loop; |
86 |
my @column_loop; |
| 87 |
foreach my $column (@columns) { |
87 |
unless ($forbidden) { |
| 88 |
unless ($forbidden) { |
88 |
foreach my $column (@columns) { |
| 89 |
my %tmp_hash; |
89 |
my %tmp_hash; |
| 90 |
$tmp_hash{'name'} = $column; |
90 |
$tmp_hash{'name'} = $column; |
| 91 |
my $type = get_column_type($column); |
91 |
my $type = get_column_type($column); |
|
Lines 115-130
elsif ( $op eq 'cud-add_form_4' ) {
Link Here
|
| 115 |
'columnstring' => $columnstring, |
115 |
'columnstring' => $columnstring, |
| 116 |
); |
116 |
); |
| 117 |
} else { |
117 |
} else { |
| 118 |
my $columns = get_columns( $area, $input ); |
118 |
$template->param( 'new_dictionary' => 1, passworderr => 1 ); |
| 119 |
$template->param( |
|
|
| 120 |
'step_3' => 1, |
| 121 |
'area' => $area, |
| 122 |
'definition_name' => $definition_name, |
| 123 |
'definition_description' => $definition_description, |
| 124 |
'columns' => \@column_loop, |
| 125 |
'columnstring' => $columnstring, |
| 126 |
'passworderr' => 1, |
| 127 |
); |
| 128 |
} |
119 |
} |
| 129 |
|
120 |
|
| 130 |
} |
121 |
} |
| 131 |
- |
|
|