/[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 36 by dpavlin, Sat Oct 25 15:38:03 2008 UTC revision 43 by dpavlin, Mon Oct 27 19:06:06 2008 UTC
# Line 43  warn "# limit: ", $q->param('limit'); Line 43  warn "# limit: ", $q->param('limit');
43    
44  sub select_repository {  sub select_repository {
45          my $onChange = qq{document.getElementById('current_repository').submit();};          my $onChange = qq{document.getElementById('current_repository').submit();};
46            # we want to activete javascript magic refresh after we hit submit for the first time, and not always
47            $onChange = '' unless $q->param('did_submit');
48          return (          return (
49                  $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),                  $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
50                  "From repository ",                  "From repository ",
51                  $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ),                  $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => $onChange ),
52                  " show ",                  " show ",
53                  $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 ),
54                  " revisions with ",                  " revisions and ",
55                  $q->checkbox(-name=>'path', -checked=>1, -value=>'ON', -label=>'path modifications', -onChange => $onChange ),                  $q->checkbox(-name=>'path', -checked=>1, -value=>'ON', -label=>'path modifications', -onChange => $onChange ),
56                  $q->submit,                  " ",
57                    $q->submit(-name=>'did_submit', -value=>'in Exhibit'),
58                  $q->end_form                  $q->end_form
59          );          );
60  }  }
Legend:
Removed from v.36  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.26