use cascade_ws_asset as a;
use cascade_ws_property as p;
use cascade_ws_utility as u;
use cascade_ws_exception as e;
u\DebugUtility::setTimeSpaceLimits();
try {
    $site_name = "hrintra";
    $at = $cascade->getSite($site_name)->getAssetTree();
    $at->traverse(array(a\Page::TYPE => array("assetTreeSetPageDisplayName")));
    u\DebugUtility::outputDuration($start_time);
} catch (\Exception $e) {
    echo S_PRE . $e . E_PRE;
    u\DebugUtility::outputDuration($start_time);
} catch (\Error $er) {
    echo S_PRE . $er . E_PRE;
    u\DebugUtility::outputDuration($start_time);
}
function assetTreeSetPageDisplayName(aohs\AssetOperationHandlerService $service, p\Child $child, array $params = NULL, array &$results = NULL)
{
    $type = $child->getType();
    if ($type != a\Page::TYPE) {
        return;
    }
    $default_title = "THIS PAGE NEEDS A TITLE";
    $page = $child->getAsset($service);
    $page_md = $page->getMetadata();
    $page_title = $page_md->getTitle();
    $page_h1 = $page->getText("main-content-title");
    if ($page_title == "" || $page_h1 == "") {
        if ($page_title == "") {
            $page_md->setTitle($default_title);