A.2. buttonbar

# Returns a buttonbar by number
UserTag buttonbar Order type
UserTag buttonbar PosNumber 1
UserTag buttonbar Interpolate 1
UserTag buttonbar Routine <<EOR
sub get_files {
    my($dir, @files) = @_;
    my(@out);
    my($file, $contents);
    foreach $file (@files) {
        config_error(
          "No leading ../.. allowed if NoAbsolute set. Contact administrator.\n")
        if $file =~ m#^\.\./.*\.\.# and $Global::NoAbsolute;
        push(@out,"\n") unless
            push(@out,readfile("$dir/$file.html"));
    }

    @out;
}

sub parse_buttonbar {
    my ($var, $value) = @_;
    return [] unless $value;
    my @c;
    my @vals = grep /\S/, split /\s+/, $value;
    for(@vals) {
        push @c, Vend::Util::readfile("pages/$_.html");
    }
    return \@c;
}

sub {
    my($buttonbar) = @_;
    if (defined $Vend::Cfg->{'ButtonBars'}->[$buttonbar]) {
        return $Vend::Cfg->{'ButtonBars'}->[$buttonbar];
    }
    else {
        return '';
    }
}
EOR

AddDirective ButtonBars  buttonbar