[snips-users] URL length in genweb.cgi

[Victor Gamov <vit at lipetsk ru>]

to fix problem with long URL during switch between different severities
use the following patch to genweb.cgi

*** genweb.cgi.orig	Thu May  9 20:48:08 2002
--- genweb.cgi	Thu May  9 20:41:34 2002
***************
*** 398,410 ****
        {
  	my $newq;
  	($newq=$query) =~ s/view=[A-Za-z]+//;
! 	$newq .= '&' if $newq;
! 	$newq .="view=$v";
  	print "<TD valign=middle><FORM action=\"$path\" method=\"get\">
  	<input type=submit name=view value=\"$v\">\n";
  	foreach  (split /&/, $newq) {
  	  my ($key, @val) = split /=/;
! 	  print $thiscgi->hidden(-name => $key, -value=>\ at val);
  	}
          print "\n  </FORM></TD>\n";
        }
--- 398,410 ----
        {
  	my $newq;
  	($newq=$query) =~ s/view=[A-Za-z]+//;
! 	$newq .= '&' if ($newq ne "");
! 	$newq .= "view=$v";
  	print "<TD valign=middle><FORM action=\"$path\" method=\"get\">
  	<input type=submit name=view value=\"$v\">\n";
  	foreach  (split /&/, $newq) {
  	  my ($key, @val) = split /=/;
! 	  print $thiscgi->hidden(-name => $key, -value=>\ at val) if ($key ne "view");
  	}
          print "\n  </FORM></TD>\n";
        }