| Line 8... |
Line 8... |
| 8 |
|
8 |
|
| Line 9... |
Line 9... |
| 9 |
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
|
9 |
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
|
| 10 |
|
10 |
|
| 11 |
use strict;
|
11 |
use strict;
|
| 12 |
use cPanelUserConfig;
|
12 |
use cPanelUserConfig;
|
| 13 |
use CGI qw/param cookie header start_html url/;
|
13 |
use CGI qw/param cookie header start_html url url_param/;
|
| 14 |
use HTML::Tiny;
|
14 |
use HTML::Tiny;
|
| 15 |
use tableViewer;
|
15 |
use tableViewer;
|
| 16 |
use RollerCon;
|
16 |
use RollerCon;
|
| Line 93... |
Line 93... |
| 93 |
if ($filter eq "-blank-") {
|
93 |
if ($filter eq "-blank-") {
|
| 94 |
return "($colName = '' or isNull($colName) = 1)";
|
94 |
return "($colName = '' or isNull($colName) = 1)";
|
| 95 |
}
|
95 |
}
|
| 96 |
return "$colName = \"$filter\"";
|
96 |
return "$colName = \"$filter\"";
|
| 97 |
} else {
|
97 |
} else {
|
| 98 |
my $tmpFormValue = param ("filter-${colName}");
|
98 |
my $tmpFormValue = param ("filter-${colName}"); $tmpFormValue //= url_param ("filter-${colName}");
|
| 99 |
my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or exists $ORCUSER->{department}->{$_} } grep { !/^PER$/ } sort keys %{$DEPTS};
|
99 |
my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or exists $ORCUSER->{department}->{$_} } grep { !/^PER$/ } sort keys %{$DEPTS};
|
| 100 |
my $Options = "<OPTION></OPTION>".$categories;
|
100 |
my $Options = "<OPTION></OPTION>".$categories;
|
| Line 101... |
Line 101... |
| 101 |
|
101 |
|