--- svn/index.cgi 2008/10/27 22:03:31 48 +++ svn/index.cgi 2008/10/28 19:10:16 49 @@ -52,12 +52,21 @@ my $onChange = qq{document.getElementById('current_repository').submit();}; # we want to activete javascript magic refresh after we hit submit for the first time, and not always $onChange = '' unless $q->param('did_submit'); + my $first_letter = substr($repositories[0],0,1); return ( $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ), "From repository ", $q->param('did_submit') ? $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ) : - $q->radio_group( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ), # , -linebreak => 'true' ), + "
$first_letter | " . join( '', map { + my $delimiter = ''; + if ( substr($_,0,1) ne $first_letter ) { + $first_letter = substr($_,0,1); + $delimiter = " | |
---|---|---|
$first_letter | "; + } + $delimiter . $q->radio_group( -name => 'repository', -values => [ $_ ] ) + } @repositories ) . " |