summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--config/pikul_codes.tag13
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&nbsp;$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&nbsp;$codes[$i]</option>";
}
- $elements .= q'
- </select>';
+ $elements .= q(
+ </select>);
return $elements;
}
EOR