X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=cgi%2Fversion.cgi;h=ab8f3c17a287604aa8e565165c961bd5987c0889;hb=8908354a3aa714d86e557c3e4eb8bebc7c6402d9;hp=046fec660fac33ed1d359b3f481a1fd1cd2156ff;hpb=439cc3070c8396865639bacbf98704cae68a24bd;p=debbugs.git
diff --git a/cgi/version.cgi b/cgi/version.cgi
index 046fec6..ab8f3c1 100755
--- a/cgi/version.cgi
+++ b/cgi/version.cgi
@@ -102,7 +102,7 @@ END
print '['.($cgi_var{collapse}?"Don't c":'C').'ollapse] ';
print '[Dot]
';
+ '">[Dot]
';
print '';
print <
@@ -232,7 +232,6 @@ if ($cgi_var{collapse}) {
# nodes that can be collapsed are those that have one child
# are in the same state as their parent, and are not in a suite
foreach my $key (keys %reversed_nodes) {
- my ($short_version) = $key =~ m{/(.+)$};
if (not exists $version_to_dist{$key}
and @{$reversed_nodes{$key}} <= 1
and defined $version->{parent}{$key}
@@ -282,7 +281,6 @@ if ($cgi_var{collapse}) {
}
foreach my $key (keys %all_states) {
- my ($short_version) = $key =~ m{/(.+)$};
next if exists $collapsed_nodes{$key};
next if $cgi_var{ignore_boring} and (not defined $all_states{$key}
or $all_states{$key} eq 'absent');