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 |
|
|
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, |