Changeset 156

Timestamp:

Jun 8, 2016, 9:30:23 PM (8 years ago)

Author:

g7moreau

Message:

• Pb of label in dot format (no "")

File:

• trunk/klask (modified) (2 diffs)

trunk/klask

@@ -2266 +2266 @@
          for my $sw (keys %{$db_building{$building}->{$loc}}) {
 
-            print "\"$sw:$db_switch_output_port{$sw}\" [label = $db_switch_output_port{$sw}, color = black, fillcolor = lightblue,  peripheries = 2, style = filled];\n";
+            print "\"$sw:$db_switch_output_port{$sw}\" [label = \"$db_switch_output_port{$sw}\", color = black, fillcolor = lightblue,  peripheries = 2, style = filled];\n";
 
             my $swname  = $sw;
@@ -2279 +2279 @@
                next if not $sw_connect eq $sw;
                next if $port_connect eq $db_switch_output_port{$sw};
-               print "\"$sw:$port_connect\" [label = $port_connect, color = black, fillcolor = plum,  peripheries = 1, style = filled];\n";
+               print "\"$sw:$port_connect\" [label = \"$port_connect\", color = black, fillcolor = plum,  peripheries = 1, style = filled];\n";
                print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, arrowhead= normal, arrowtail = inv]\n";
               }