Changeset 30038 in osm

Timestamp:

2013-11-03T11:54:08+01:00 (11 years ago)

Author:

simon04

Message:

I18n, convpreset: respect delimiter for <combo> values

File:

• applications/editors/josm/i18n/convpreset.pl (modified) (1 diff)

applications/editors/josm/i18n/convpreset.pl

@@ -136 +136 @@
     print "/* item $item $type $n */" . ($tctx ? " trc($tctx, $n);" : " tr($n);");
     # display_values / values
-    my $sp = ($type eq "combo" ? ",":";");
+    my $sp = ($line =~ /delimiter="(.*?)"/) ? $1 : ($type eq "combo" ? ",":";");
     my $vals = ($line =~ /display_values="(.*?)"/) ? $1 : ($line =~ /values="(.*?)"/) ? $1 : undef;
     if($vals)
     {
-      my @combo_values = split $sp,$vals;
+      my @combo_values = split "\Q$sp\E" ,$vals;
       foreach my $val (@combo_values)
       {