Line # Revision Author
1 3 ahitrov@rambler.ru <%ARGS>
2
3 $s => undef
4 $id => undef
5 $move => undef
6 $p => 1
7 $use_section => undef
8 $class => undef
9
10 </%ARGS>
11 <%INIT>
12
13 my $sect;
14 if ($s && ($s !~ /\D/) && ($s > 0)) {
15 $sect = $keeper->get_section_by_id($s);
16 }
17
18 my %filter_params;
19 $filter_params{use_section} = $ARGS{use_section} if $ARGS{use_section};
20 $filter_params{class} = $ARGS{class} if $ARGS{class};
21 $filter_params{alpha} = $ARGS{alpha} if $ARGS{alpha};
22 $filter_params{alpha_search} = $ARGS{alpha_search} if $ARGS{alpha_search};
23 $filter_params{search_by} = $ARGS{search_by} if $ARGS{search_by};
24 $filter_params{search} = $ARGS{search} if $ARGS{search};
25 $filter_params{p} = $ARGS{p} if $ARGS{p} && $ARGS{p} > 1;
26 my $return_params = join ('&', map { $_.'='.$filter_params{$_} } keys %filter_params );
27
28 # �����������...
29 if ($move && $id && ($id !~ /\D/) && ($id > 0)) {
30 $sect->dmove($id, $move);
31 my @params;
32 push @params, 'id='.$s if $s;
33 push @params, 'p='.$p if $p > 1;
34 push @params, 'class='.$class if $class;
35 push @params, 'use_section='.$use_section if $use_section;
36 $m->redirect($s ? "sections.html?id=".$s.( $return_params ? '&'.$return_params : '' ) : 'index.html');
37 }
38
39 </%INIT>