brentdax

sub pre_resolve_handler($request, $in_rev, $component) {
    if $request.userpath {
        # We've already resolved the user page
        my $page = $in_rev.resolve($component.name);
        my $rev  = $page.cur;					# Allows retroactive changes
        ck($request, $rev.attributes<fidelius:child>);
    }
}

sub pre_driver_handler($request, $in_rev) {
    my $page = $in_rev.page;
    my $rev  = $page.cur;
    ck($request, $rev.attributes<fidelius:self>);
}

WWW::Kontent::register_magic('pre', 'resolve', &pre_resolve_handler);
WWW::Kontent::register_magic('pre', 'driver',  &pre_driver_handler );