<%

sub sitemap_is_expanded
{
    my $document = shift;
    my $cgi = lib::cgi::CGI->get;
    my @nodes = $cgi->param ('x');
    foreach (@nodes) { return 1 if ($_ == $document->ID) }
    return;
}


sub sitemap_expand_URI ($)
{
    my $document = shift;
    my $cgi = lib::cgi::CGI->get;
    my %nodes = map { $_ => 1 } $cgi->param ('x');
    $nodes{$document->{ID}} = 1;
    $nodes{1} = 1;
    my $cgix = $cgi->new;
    $cgix->param ('x', keys %nodes);
    return $cgix->self_url;
}


sub sitemap_fold_URI ($)
{
    my $document = shift;
    my $cgi = lib::cgi::CGI->get;
    my %nodes = map { $_ => 1 } $cgi->param ('x');
    delete $nodes{$document->{ID}};
    $nodes{1} = 1;
    my $cgix = $cgi->new;
    $cgix->param ('x', keys %nodes);
    return $cgix->self_url;
}

%>