diff options
| -rw-r--r-- | config/pikul_codes.tag | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/config/pikul_codes.tag b/config/pikul_codes.tag index 377aad2..4169c0b 100644 --- a/config/pikul_codes.tag +++ b/config/pikul_codes.tag @@ -26,11 +26,16 @@ sub { my $elements = '<select name="mv_shipmode" id="ship_widget" class="form-control" onchange="this.form.submit()">'; my $mv_shipmode = $Tag->value('mv_shipmode'); for my $i (0 .. $#codes) { - $elements .= qq! - <option name="mv_shipmode" value="$table! . qq!_$codes[$i]"! . ($mv_shipmode ? ($mv_shipmode eq $table . "_$codes[$i]" ? ' selected' : '') : $i ? '' : ' selected') . qq!>$table $codes[$i]</option>!; + $elements .= qq( + <option name="mv_shipmode" value="$table) + . qq(_$codes[$i]") + . ($mv_shipmode + ? ($mv_shipmode eq $table . "_$codes[$i]" ? ' selected' : '') + : $i ? '' : ' selected') + . ">$table $codes[$i]</option>"; } - $elements .= q' - </select>'; + $elements .= q( + </select>); return $elements; } EOR |