||| Copyright (C) 1998-2006, Sumisho Computer Systems Corp.  All Rights Reserved.
|||
||| Maintained by: Curl Solutions

{curl 5.0 applet}
{applet manifest = "CurlWBT/manifest.mcurl",
    {compiler-directives careful? = true}
}

{import * from COM.CURL.WBT.SPLASH-SCREEN}
{let splash-screen-subapplet:WBTSplashScreenManager =
    {new WBTSplashScreenManager}
}
{splash-screen-subapplet.show
    {url "CurlWBT/splash-screen.curl"}
}

{import * from COM.CURL.WBT.VIEW}

{document-style PlainDocument}

|| Close and destroy the splash screen.
{splash-screen-subapplet.close}

{value
    let content-home:Url = {url "content"}
    let course-name:String = "ApplicationDevelopment"
    
    || accept course as query arg
    let query:String = {get-base-url}.query    
    {if query.size > 1 then
        set course-name = {query.tail 1}}
    
    {launch-wbt
        course-name,
        "wbtstudent",
        use-local-data? = false,
        clear-local-data? = false
    }
}