/[simile]/svn/index.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /svn/index.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 48 by dpavlin, Mon Oct 27 22:03:31 2008 UTC revision 49 by dpavlin, Tue Oct 28 19:10:16 2008 UTC
# Line 52  sub select_repository { Line 52  sub select_repository {
52          my $onChange = qq{document.getElementById('current_repository').submit();};          my $onChange = qq{document.getElementById('current_repository').submit();};
53          # we want to activete javascript magic refresh after we hit submit for the first time, and not always          # we want to activete javascript magic refresh after we hit submit for the first time, and not always
54          $onChange = '' unless $q->param('did_submit');          $onChange = '' unless $q->param('did_submit');
55            my $first_letter = substr($repositories[0],0,1);
56          return (          return (
57                  $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),                  $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
58                  "From repository ",                  "From repository ",
59                  $q->param('did_submit') ?                  $q->param('did_submit') ?
60                          $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ) :                          $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ) :
61                          $q->radio_group( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ), # , -linebreak => 'true' ),                          "<table><tr><th>$first_letter</th><td>" . join( '', map {
62                                    my $delimiter = '';
63                                    if ( substr($_,0,1) ne $first_letter ) {
64                                            $first_letter = substr($_,0,1);
65                                            $delimiter = "</td></tr>\n<tr><th>$first_letter</th><td>";
66                                    }
67                                    $delimiter . $q->radio_group( -name => 'repository', -values => [ $_ ] )
68                            } @repositories ) . "<td></tr></table>",
69                            #$q->radio_group( -name => 'repository', -values => [ map { "$_, " } @repositories ], -onChange => $onChange ), # , -linebreak => 'true' ),
70                  " show ",                  " show ",
71                  $q->popup_menu( -name => 'limit', -values => [ qw/100 500 1000 5000 10000/ ], -onChange => $onChange ),                  $q->popup_menu( -name => 'limit', -values => [ qw/100 500 1000 5000 10000/ ], -onChange => $onChange ),
72                  " revisions and ",                  " revisions and ",
Legend:
Removed from v.48  
changed lines
  Added in v.49
  ViewVC Help
Powered by ViewVC 1.1.26