sub setup_page_content {
my ($page) = @_;
$_REQUEST {__allow_check___query} = 1;
delete $_REQUEST {__the_table};
eval { $_REQUEST {__page_content} = $page -> {content} = call_for_role (($_REQUEST {id} ? 'get_item_of_' : 'select_') . $page -> {type})};
$_REQUEST {__allow_check___query} = 0;
$@ and return $_REQUEST {error} = $@;
$_USER -> {id} and !$_REQUEST {__only_menu} and $_REQUEST {__edit_query} or return;
my $is_dump = delete $_REQUEST {__dump};
setup_skin ();
$_REQUEST {__allow_check___query} = 1;
call_for_role (($_REQUEST {id} ? 'draw_item_of_' : 'draw_') . $page -> {type}, $page -> {content});
$_REQUEST {__allow_check___query} = 0;
$_REQUEST {__dump} = $is_dump;
$_REQUEST {id___query} ||= sql_select_id (
$conf -> {systables} -> {__queries} => {
id_user => $_USER -> {id},
type => $_REQUEST {type},
label => '',
order_context => $_REQUEST {__order_context} || '',
}, ['id_user', 'type', 'label'],
);
require_both '__queries';
check___query ();
$_REQUEST {type} = $page -> {type} = '__queries';
$_REQUEST {id} = $_REQUEST {id___query};
eval { $_REQUEST {__page_content} = $page -> {content} = call_for_role ('get_item_of___queries', $page -> {content}) };
$@ and return $_REQUEST {error} = $@;
delete $_REQUEST {__skin};
}
sub fix___query {
$conf -> {core_store_table_order} or return;
$_REQUEST {__order_context} ||= '';
@_ORDER > 0 or return;
if ($_REQUEST {id___query}) {
my $is_there_some_order;
foreach my $o (@_ORDER) {
$is_there_some_order ||= $_QUERY -> {content} -> {columns} -> {$o -> {order}} -> {ord};
foreach my $filter (@{$o -> {filters}}) {
$_QUERY -> {content} -> {filters} -> {$filter -> {name}} = $_REQUEST {$filter -> {name}};
}
}
$is_there_some_order or return;
my $id___query = $_REQUEST {id___query};
$_REQUEST {id___query} = sql_select_id (
$conf -> {systables} -> {__queries} => {
fake => 0,
id_user => $_USER -> {id},
type => $_REQUEST {type},
-dump => Dumper ($_QUERY -> {content}),
label => '',
order_context => $_REQUEST {__order_context},
}, ['id_user', 'type', 'label', 'order_context'],
);
!$id___query or $_REQUEST {id___query} == $id___query or sql_do ("UPDATE $conf->{systables}->{__queries} SET parent = ? WHERE id = ?", $id___query, $_REQUEST {id___query});
}
else {
my $content = {filters => {}, columns => {}};
my $n = 1;
foreach my $o (@_ORDER) {
$content -> {columns} -> {$o -> {order}} = {ord => $n ++};
foreach my $filter (@{$o -> {filters}}) {
$content -> {filters} -> {$filter -> {name}} = $_REQUEST {$filter -> {name}};
}
}
sql_select_id (
$conf -> {systables} -> {__queries} => {
fake => 0,
id_user => $_USER -> {id},
type => $_REQUEST {type},
-dump => Dumper ($content),
label => '',
order_context => $_REQUEST {__order_context},
}, ['id_user', 'type', 'label', 'order_context'],
);
}
}
sub check___query {
return if $_QUERY;
$_REQUEST {__allow_check___query} or return;
$conf -> {core_store_table_order} or return;
$_REQUEST {__order_context} ||= '';
if ($_REQUEST {id___query} == -1) {
sql_do ("DELETE FROM $conf->{systables}->{__queries} WHERE fake = 0 AND label = '' AND id_user = ? AND type = ? AND order_context = ?", $_USER -> {id}, $_REQUEST {type}, $_REQUEST {__order_context});
}
else {
$_REQUEST {id___query} ||= sql_select_scalar ("SELECT id FROM $conf->{systables}->{__queries} WHERE fake = 0 AND label = '' AND id_user = ? AND type = ? AND order_context = ?", $_USER -> {id}, $_REQUEST {type}, $_REQUEST {__order_context});
}
unless ($_REQUEST {id___query}) {
our $_QUERY = {};
our @_COLUMNS = ();
return;
}
our $_QUERY = sql_select_hash ($conf -> {systables} -> {__queries} => , $_REQUEST {id___query});
if ($_QUERY -> {label}) {
$_REQUEST {id___query} = sql_select_id (
$conf -> {systables} -> {__queries} => {
id_user => $_USER -> {id},
type => $_QUERY -> {type},
label => '',
order_context => $_REQUEST {__order_context},
-fake => 0,
-dump => $_QUERY -> {dump},
-parent => $_QUERY -> {id},
}, ['id_user', 'type', 'label', 'order_context'],
);
}
our $_QUERY = sql_select_hash (<<EOS, $_REQUEST {id___query});
SELECT
q.*
, p.label AS parent_label
FROM
$conf->{systables}->{__queries} AS q
LEFT JOIN $conf->{systables}->{__queries} AS p ON q.parent = p.id
WHERE
q.id = ?
EOS
my $VAR1;
eval $_QUERY -> {dump};
$_QUERY -> {content} = $VAR1;
my $filters = $_QUERY -> {content} -> {filters};
foreach my $key (keys %$filters) {
next if exists $_REQUEST {$key};
if ($key =~ /^id_/) {
$filters -> {$key} = $_USER -> {id} if $filters -> {$key} eq '$_USER -> {id}';
}
elsif ($key =~ /^dt_/ && $filters -> {$key} =~ /[^\d\.]/) {
my ($y, $m, $d) = Date::Calc::Today;
my $q = sprintf ('%02d', $m - (($m - 1) % 3));
my $m = sprintf ('%02d', $m);
my $d = sprintf ('%02d', $d);
$filters -> {$key} =~ s{ãããã}{$y};
$filters -> {$key} =~ s{ìì}{$m};
$filters -> {$key} =~ s{êâ}{$q};
$filters -> {$key} =~ s{ää}{$d};
}
$_REQUEST {$key} = $filters -> {$key};
}
my $is_there_some_columns;
foreach my $key (keys %{$_QUERY -> {content} -> {columns}}) {
if ($_QUERY -> {content} -> {columns} -> {$key} -> {ord}) {
$is_there_some_columns = 1;
last;
}
}
unless ($is_there_some_columns) {
sql_do ("DELETE FROM $conf->{systables}->{__queries} WHERE id = ?", $_REQUEST {id___query});
delete $_REQUEST {id___query};
$_QUERY = undef;
}
}
sub get_item_of___queries {
my ($data) = @_;
delete $_REQUEST {__read_only};
return $data;
}
sub do_drop_filters___queries {
my $_QUERY = sql_select_hash ($conf -> {systables} -> {__queries} => $_REQUEST {id});
my $VAR1;
eval $_QUERY -> {dump};
$_QUERY -> {content} = $VAR1;
delete $_QUERY -> {content} -> {filters};
sql_do ("UPDATE $conf->{systables}->{__queries} SET dump = ? WHERE id = ?", Dumper ($_QUERY -> {content}), $_REQUEST {id});
my $esc_href = esc_href ();
foreach my $key (keys %_REQUEST) {
$key =~ /^_filter_(\w+)$/ or next;
my $filter = $1;
$filter =~ s/_\d+//;
$esc_href =~ s/([\?\&]$filter=)[^\&]*//;
}
$esc_href =~ s/([\?\&]__last_query_string=)(\-?\d+)/$1$_REQUEST{__last_query_string}/;
$esc_href .= '&__edit_query=1';
redirect ($esc_href, {kind => 'js'});
}
sub do_update___queries {
my $content = {};
my @order = ();
foreach my $key (keys %_REQUEST) {
$key =~ /^_(\w+)_desc$/ or next;
my $order = $1;
$content -> {columns} -> {$order} = {
ord => $_REQUEST {"_${order}_ord"},
sort => $_REQUEST {"_${order}_sort"},
desc => $_REQUEST {"_${order}_desc"},
};
if ($_REQUEST {"_${order}_sort"}) {
$order [ $_REQUEST {"_${order}_sort"} ] = $order;
$order [ $_REQUEST {"_${order}_sort"} ] .= ' DESC' if $_REQUEST {"_${order}_desc"};
}
}
$content -> {order} = join ', ', grep { $_ } @order;
foreach my $cbx (split /,/, $_REQUEST {__form_checkboxes_custom}) {
if ($cbx =~ /(\d+)_(\d+)/) {
$content -> {filters} -> {$1} .= '';
}
}
foreach my $key (keys %_REQUEST) {
$key =~ /^_filter_(\w+)$/ or next;
my $filter = $1;
if ($filter =~ /(\d+)_(\d+)/) {
$content -> {filters} -> {$1} .= ','
if $content -> {filters} -> {$1};
$content -> {filters} -> {$1} .= $2;
} else {
$content -> {filters} -> {$filter} = $_REQUEST {$key} || '';
}
}
sql_do ("UPDATE $conf->{systables}->{__queries} SET dump = ? WHERE id = ?", Dumper ($content), $_REQUEST {id});
my $esc_href = esc_href ();
foreach my $filter (keys (%{$content -> {filters}})) {
unless ($esc_href =~ s/([\?\&]$filter=)[^\&]*/$1$content->{filters}->{$filter}/) {
$esc_href .= "&$filter=$content->{filters}->{$filter}";
};
}
$esc_href =~ s/\bstart=\d+\&?//;
redirect ($esc_href, {kind => 'js'});
}
sub draw_item_of___queries {
my ($data) = @_;
my @fields = (
{
type => 'banner',
label => 'Ñòîëáöû è ôèëüòðû',
},
);
$_REQUEST {__form_checkboxes_custom} = '';
foreach my $o (@_ORDER) {
next
if $o -> {__hidden};
my @f = (
{
label => $o -> {title} || $o -> {label},
type => 'hgroup',
nobr => 1,
cell_width => '50%',
items => [
{
label => 'ïîêàç',
size => 2,
name => $o -> {order} . '_ord',
value => $_QUERY -> {content} -> {columns} -> {$o -> {order}} -> {ord},
},
{
label => 'ñîðòèðîâêà',
size => 2,
name => $o -> {order} . '_sort',
value => $_QUERY -> {content} -> {columns} -> {$o -> {order}} -> {sort},
},
{
name => $o -> {order} . '_desc',
type => 'select',
values => [{id => 1, label => 'óáûâàíèå'}],
empty => 'âîçðàñòàíèå',
value => $_QUERY -> {content} -> {columns} -> {$o -> {order}} -> {desc},
},
],
},
);
foreach my $filter (@{$o -> {filters}}) {
my %f = %$filter;
$f {value} ||= $_QUERY -> {content} -> {filters} -> {$f {name}};
delete $f {type}
if $f {type} eq 'input_text';
$f {type} =~ s/^input_//;
if ($f {type} eq 'select') {
$f {values} = [grep {$_ -> {id} != -1} @{$f {values}}];
if ($f {other}) {
$f {name} = '_' . $f {name};
$f {value} ||= $_QUERY -> {content} -> {filters} -> {$f {name}};
}
} elsif ($f {type} eq 'date') {
$f {no_read_only} = 1;
} elsif ($f {type} eq 'checkbox') {
$f {checked} = $f {value};
} elsif ($f {type} eq 'radio') {
$data -> {"filter_$f{name}"} = $f {value};
} elsif ($f {type} eq 'checkboxes') {
$data -> {'filter_' . $f {name}} = [split /,/, $f {value}];
delete $f {value};
$_REQUEST {__form_checkboxes_custom} .= ',' . join ',', map {"_$f{name}_$_->{id}"} @{$f {values}};
}
$f {name} = 'filter_' . $f {name};
push @f, \%f;
}
push @fields, \@f;
}
return draw_form ({
keep_params => ['__form_checkboxes_custom'],
right_buttons => [
{
icon => 'delete',
label => 'Î÷èñòèòü ôèëüòðû',
href => "javaScript:document.form.action.value='drop_filters'; document.form.fireEvent('onsubmit'); document.form.submit()",
target => 'invisible',
keep_esc => 1,
off => $_REQUEST {__read_only},
},
],
no_edit => $_REQUEST {'__page_content'} -> {no_del},
},
$data,
\@fields
);
}
1;