• Adds graphs for the first time. There are a total of 92 graphs: 14 student, 18 lesson, 19 course, 21 class, and 20 organization.
• New and redesigned reports featuring drill-downs and popup certificates. There are a total of 97 reports: 23 student, 17 lesson, 24 course, 14 class, and 19 organization.
• Reports and graphs can include multiple students, lessons, courses, classes, or organizations at a time.
• Reports can now be saved to PDF, Word, or Excel.
• Ability to sequence courses.
• Can limit access to courses on a particular date, once completed, or X days after first use.
• New Termination Date for students for only allowing access to the system for a fixed amount of time.
• Updated Tracker Store offers the ability to extend the Termination Date as well as email username/password to users.
• Ability to set the status, times, score, etc. for multiple students at once.
• Redesigned Global Settings screen that organizes information by tabs.
• New interface for selecting which reports you want included by category.
• Match certificate graphics to organization, lesson, course, or class.
• Choose individual lessons, courses, and classes to produce Continuing Education Unit (CEU) certificates.
• Choose "filter" or "search box" interface for Administrator and Reporter screens.
• Can optionally persist the filter or search box information between sessions.
• Highly-optimized SCORM communication that dramatically reduces delay when exiting lessons.
• Option to hide correct answers in student reports.
• Scheduler application can now send organization emails as well as course/class emails. Any student information such as username and password can now be included.
• Can choose to display lessons in a frame rather than a popup window. This avoids popup blocker issues as well as gives the e-Learning developer more control on exit behavior.
• Ability to organize "Open Enrollment" courses into a Catalog. Users can then choose which course(s) to add to their "My Courses" screen.
• Optional mobile student interface.
• Downloadable trial version

Making SCORM Calls

SCORM Runtime Environment Overview

LMSInitialize
LMSGetValue
LMSSetValue
LMSCommit
LMSFinish
LMSGetLastError
LMSGetErrorString
LMSGetDiagnostic

Initialize
GetValue
SetValue
Commit
Terminate
GetLastError
GetErrorString
GetDiagnostic

saveOnClose of this book = "No"

to handle enterApplication
	forward
	if sysRuntime = TRUE -- runtime ToolBook
		saveOnClose of this book = "No"
	else -- author level ToolBook
		saveOnClose of this book = "Ask"
	end if
end enterApplication

to handle buttonDown
	system _s_ScreenDC
	if _s_ScreenDC = "" then
		get ScreenDC() of self
	end if
	lastPosn = ""
	lastRGB = ""
	while KeyState(keyLeftButton) = "down"
		mPosn = mousePosition of mainWindow
		if objectFromPoint(mousePosition of focusWindow, focusWindow) <> self then
			if lastPosn <> mPosn then
				lastPosn = mPosn
				pixPos = pageUnitsToScreen(mPosn, mainWindow)
				RGB = pixelColor(_s_ScreenDC, item 1 of pixPos, item 2 of pixPos, TRUE)
				if lastRGB <> RGB then
					lastRGB = RGB
					redCol = getRed (RGB)
					greenCol = getGreen (RGB)
					blueCol = getBlue (RGB)
					RGB = redCol, greenCol, blueCol

					put RGB

				end if
			end if
		end if
	end while
	sysCursor = default
end buttonDown

to get ScreenDC
	system _s_ScreenDC
	-- Returns a DC to the Screen
	-- A DC is created if one does not exist
	if _s_ScreenDC = null then
		send LinkDLLs to self
		_s_ScreenDC = CreateDCA("DISPLAY", "", "","")
	end if

	return _s_ScreenDC
end ScreenDC

to get pixelColor hdc, nXPos, nYPos, HexFlag
	-- This is a wrapper for the GetPixel
	-- Function
	local RGB
	If hdc <> NULL
		RGB = GetPixel(hdc, nXPos, nYPos)
		if HexFlag = TRUE
			format RGB as "@h########"
		end if
	end if
	return RGB
end pixelColor

to get getRed colorRef
	-- Extracts the red color from a colorRef
	-- value
	redValue = Chars 7 to 8 of colorRef
	redValue = validateAndFormat(redValue)
	return redValue
end getRed

to get getGreen colorRef
	-- Extracts the Green color from a colorRef
	-- value
	greenValue = Chars 5 to 6 of colorRef
	greenValue = validateAndFormat(greenValue)
	return greenValue
end getGreen

to get getBlue colorRef
	-- Extracts the Blue color from a colorRef
	-- value
	blueValue = Chars 3 to 4 of colorRef
	blueValue = validateAndFormat(blueValue)
	return blueValue
end getBlue

to get validateAndFormat val
	val = ReplaceString(val," ",0)
	If val = null then
		val = 0
	end if
	val = "0x" & val
	format val as "@d#"
	return val
end validateAndFormat

to get isValidRGB RGB
	local logical colorOK
	local int i, numItems
	colorOK = true
	i = 1
	numItems = ItemCount(RGB)
	while i <= numItems and colorOK
		rgbNum = item i of RGB
		colorOK = (isType("INT",rgbNum) and (rgbNum >= 0) and (rgbNum <= 255))
		increment i
	end while
	return colorOK and (i = 4)
end isValidRGB

to handle LinkDLLs
	linkDLL32 "user32.dll"
		DWORD GetDC(DWORD)
	end linkDLL32

	linkDLL32 "gdi32.dll"
		DWORD CreateDCA(STRING, STRING, STRING, STRING)
		LONG DeleteDC(DWORD)
		DWORD GetPixel(DWORD, LONG,LONG)
	end linkDLL32
end LinkDLLs

• Running content from my local file system (may be a security setting).
• When I'm on our company VPN.

public function ImplementExitClick(e:MouseEvent):void {
    var exitMessage:String = ReadStructureSetting("ExitBtn_Message", "");
    var returnString:String;
    var okToExit:Boolean = true;

    if (exitMessage != "") {
        returnString = ExternalInterface.call("confirmClose", exitMessage);
        okToExit = ConvertToBoolean(returnString);
    }
    if (okToExit == true) {
        var exitSuccess:Boolean = ExitTraining();

        if (exitSuccess == true) {
            this.AlreadyExited = true;
            ExternalInterface.call("closeWindow");
        }
    }
}

// Added for exit handling
ExternalInterface.addCallback("exitTraining", cleanUp);

public function cleanUp():void {
    if (this.AlreadyExited == false) {
        ExitTraining();
        this.AlreadyExited = true;
    }
}

Private Sub ExitBtn_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
    Dim examRefId As ExamEngineSettings = ExamReferenceId
    Dim exitMessage As String = examRefId.ReadExamSetting("ExitMessage", "")
    Dim okToExit As Boolean = True

    If exitMessage <> "" Then
        okToExit = Browser.HtmlPage.Window.Confirm(exitMessage)
    End If
    If okToExit = True Then
        ' Changed the following since this did not work if the content is in an iFrame.
        ' Instead, call ExitExam directly and set a variable to skip the exit on the
        ' subsequent closing of the browser window
        Dim exitSuccess As Boolean = examRefId.ExitExam()

        If exitSuccess = True Then
            examRefId.AlreadyExited = True
            Browser.HtmlPage.Window.Eval("window.close()")
        End If
    End If
End Sub

Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup
    Me.RootVisual = New Page()
    HtmlPage.Window.AttachEvent("onunload", AddressOf ExitExamHandler)
End Sub

Public Sub ExitExamHandler(ByVal sender As Object, ByVal e As EventArgs)
    Dim examRefId As ExamEngineSettings = ExamReferenceId

    If examRefId.AlreadyExited = False Then
        ExamReferenceId.ExitExam()
        examRefId.AlreadyExited = True
    End If
End Sub