namespace eval ::playland {
    variable logoPath /internet/playland/ressourcen/images/layout/wizard_logo

    proc wizardLogo {args} {
        variable logoPath
        return [format {<npsPreviewImage%s/>}\
                [::wizardLib::html::htmlAttrs [list\
                src $logoPath\
                style "float:left;margin:1em;margin-right:3em;"]]]
    }

    proc homeFolder {objId} {
        return [lindex [obj withId $objId get objectsToRoot] 3]
    }
}
