/[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 16 by dpavlin, Mon Oct 6 17:09:17 2008 UTC revision 17 by dpavlin, Sun Oct 12 14:06:38 2008 UTC
# Line 10  use Data::Dump qw/dump/; Line 10  use Data::Dump qw/dump/;
10  use JSON;  use JSON;
11  use CGI;  use CGI;
12    
13  my $debug = 0;  my $debug = $ENV{'DEBUG'} || 0;
14    
15  my $max_items = 500;  my $max_items = 500;
16    
# Line 41  my $repository = $q->param('repository') Line 41  my $repository = $q->param('repository')
41  $repository = (grep { m/^\Q$repository\E$/ } @repositories )[0];  $repository = (grep { m/^\Q$repository\E$/ } @repositories )[0];
42    
43  sub select_repository {  sub select_repository {
44          $q->start_form( -name => 'current_repository', -id => 'current_repository' ),          $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
45          "Select repository: ",          "Select repository: ",
46          $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => qq{document.getElementById('current_repository').submit();} ),          $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => qq{document.getElementById('current_repository').submit();} ),
47          $q->submit,          $q->submit,
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26