Revision 17

Date:
2008/10/12 14:06:38
Author:
dpavlin
Revision Log:
- post as we sould
- use enviroment variable DEBUG to toggle debug output
Files:

Legend:

 
Added
 
Removed
 
Modified

  • svn/index.cgi

     
    10 10 use JSON;
    11 11 use CGI;
    12 12
    13 my $debug = 0;
    13 my $debug = $ENV{'DEBUG'} || 0;
    14 14
    15 15 my $max_items = 500;
    16 16
    … …  
    41 41 $repository = (grep { m/^\Q$repository\E$/ } @repositories )[0];
    42 42
    43 43 sub select_repository {
    44 $q->start_form( -name => 'current_repository', -id => 'current_repository' ),
    44 $q->start_form( -name => 'current_repository', -id => 'current_repository', -method => 'post' ),
    45 45 "Select repository: ",
    46 46 $q->popup_menu( -name => 'repository', -values => [ @repositories ], -onChange => qq{document.getElementById('current_repository').submit();} ),
    47 47 $q->submit,