fixes formNODE.pl (issue #32)

IPGP · Sep 30, 2019 · 18edf56 · 18edf56
1 parent 027fa98
commit 18edf56
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/CODE/cgi-bin/formNODE.pl b/CODE/cgi-bin/formNODE.pl
@@ -583,7 +583,7 @@ =head1 Query string parameters
 				$chan{$chpCLB[2]} = "$chpCLB[3] ($chpCLB[6] $chpCLB[19])";
 			}
 			print "<SELECT name=\"chanlist\" multiple size=\"5\" onMouseOut=\"nd()\" onmouseover=\"overlib('$__{help_creationstation_chanlist}')\" id=\"chanlist\">";
-			for (sort(keys(%chan))) {
+			for (sort{ $a <=> $b } (keys(%chan))) {
 				print "<option".($_ ~~ @select || !defined($usrCHAN) ? " selected":"")." value=\"$_\">"."$_: $chan{$_}</option>\n";
 			}
 			print "</SELECT>";