A.4. help

    UserTag help PosNumber 1
    UserTag help Order name
    UserTag help Routine <<EOR
    sub parse_help {
        my ($var, $value) = @_;
        my (@files);
        my (@items);
        my ($c, $chunk, $item, $help, $key);
        unless (defined $value && $value) {
            $c = {};
            return $c;
        }
        $c = $C->{'Help'};
        $var = lc $var;
        $C->{'Source'}->{'Help'} = $value;
        @files = get_files($C->{'PageDir'}, split /\s+/, $value);
        foreach $chunk (@files) {
            @items = split /\r?\n\r?\n/, $chunk;
            foreach $item (@items) {
                ($key,$help) = split /\s*\n/, $item, 2;
                if(defined $c->{$key}) {
                    $c->{$key} .= $help;
                }
                else {
                    $c->{$key} = $help;
                }
    
            }
        }
        return $c;
    }
    
    sub {
        my($help) = shift;
        # Move this to control section?
        if ($::Values->{mv_helpon}) {
            delete $::Values->{mv_helpoff};
            undef $::Values->{mv_helpon};
        }
        return '' if defined $::Values->{'mv_helpoff'};
        if (defined $Vend::Cfg->{'Help'}{$help}) {
            return $Vend::Cfg->{'Help'}{$help};
        }
        else {
            return '';
        }
    }
    EOR
    
    AddDirective Help help