<% $json %>
<%once>

    use JSON::XS;

</%once>
<%args>

	$id	=> undef
	$aid	=> undef
	$s	=> undef
	$move	=> undef

</%args>
<%init>

    my %result;
    warn Dumper(\%ARGS);

    if ( $id && $s && $s =~ /^\d+$/ && $move && $move =~ /^(up|down|first|last|before|after)$/ && (!$aid || $aid && $aid =~ /^\d+$/) ) {
	my $check_id = 1;
	my @ids;
	if ( ref $id eq 'ARRAY' ) {
		foreach my $data ( @$id ) {
			if ( $data =~ /^\d+$/ ) {
				push @ids, $data;
			} else {
				$check_id = 0;
				last;
			}
		}
	} elsif ( $id =~ /^[\d,]+$/ ) {
		@ids = split(/,/, $id);
	} else {
		$check_id = 0;
	}
	if ( $check_id ) {
		my $section = $keeper->get_section_by_id( $s );
		if ( ref $section ) {
			if ( $section->_sorted ) {
				if ( $section->dmove( \@ids, $move, $aid ) ) {
					my $position = $section->_get_document_pos( $ids[0] );
					warn Dumper( $position );
					if ( ref $position && exists $position->{index} ) {
						if ( exists $position->{before} ) {
							$result{before} = $position->{before};
							$result{success} = 1;
						}
						if ( exists $position->{after} ) {
							$result{after} = $position->{after};
							$result{success} = 1;
						}
						if ( exists $position->{first} ) {
							$result{first} = 1;
							$result{success} = 1;
						}
						if ( exists $position->{last} ) {
							$result{last} = 1;
							$result{success} = 1;
						}
						unless ( exists $result{success} ) {
							$result{error} = Encode::decode('utf-8', 'Ошибка индексации. Для разбора полетов обратитесь к разработчикам');
						}
					} else {
						$result{error} = Encode::decode('utf-8', 'Ошибка индексации. Для разбора полетов обратитесь к разработчикам');
					}
				} else {
					$result{error} = Encode::decode('utf-8', 'Ошибка перемещения. Для разбора полетов обратитесь к разработчикам');
				}
			} else {
				$result{error} = Encode::decode('utf-8', 'В данной секции отключен режим ручной сортировки');
			}
		} else {
			$result{error} = Encode::decode('utf-8', 'Секция не найдена');
		}
	} else {
		$result{error} = Encode::decode('utf-8', 'Переданы неверные параметры');
	}
    } else {
	$result{error} = Encode::decode('utf-8', 'Переданы неверные параметры');
    }

    my $json = encode_json \%result;

</%init>