• Off Campus ($835)
• CC Inn Double ($915)
• CC Inn Single ($980)
• Apartment Multiple Occupancy ($1,030)
• Apartment Single ($1,255)

• Flash for Beginners - Dane Williams
• Introduction to ToolBook - Tom Hall
• Programming for e-Learning Developers: Flex - Jeff Rhodes

• e-Learning with Flash - Dane Williams
• Intermediate ToolBook - Tom Hall
• Programming for e-Learning Developers: .NET - Jeff Rhodes

• Introduction to Flash ActionScript 3.0 - Dan Carr
• Programming for e-Learning Developers: ToolBook - Jeff Rhodes

• Intermediate/Advanced Flash ActionScript 3.0 - Dan Carr
• Rapid Development Tricks with ToolBook: Templates, Smart Styles, Importing from PowerPoint, and Best Practices - Bill Hurley
• Using the ToolBook Translation System - Jeff Rhodes

• One Preconference Session ($150)
• Two Preconference Sessions ($285)
• Three Preconference Sessions ($420)
• Four Preconference Sessions ($555)

• Geolocation support for mobile content
• Support for Apple iPad and Windows mobile devices
• Simplified Quick Start tab on the Startup Dialog
• iPhone Support for drag & drop
• Smoother Resizing of Graphics
• Exit Buttons Functionality and Appearance Improved
• Prompt to Resize Page When Changing Styles
• Paste Unformatted Text Menu Item
• Checkbox added to Publish to Web Wizard to Enable Diagnostics

callingBookId = book (item 1 of sysBooks)

shortName = chars max(1, maxChars - 31) to maxChars of fullImageFile 
tempRef = "bitmap" && quote & shortName & quote && "of" && callingBookId 
oldImageRef = normalGraphic of placeholderId 
if isObject (tempRef)
        replace resource tempRef with imageFile
        normalGraphic of placeholderId = tempRef
        errString = ASYM_RestoreSuspend(blkSus) 
else
        import bitmap resource imageFile as shortName
        normalGraphic of placeholderId = bitmap shortName
        errString = ASYM_RestoreSuspend(blkSus) 
end if

leftVal = 4403

objList = getObjectList(selection, "", FALSE)

while objList <> null
	pop objList into objId
	item 1 of position of objId = leftVal
end while

confirmClose = function (message) {
    return window.confirm(message);
}

var returnString:String = ExternalInterface.call("confirmClose", exitMessage);

var okToExit:Boolean = Boolean(returnString);

var okToExit:Boolean = ConvertToBoolean(returnString);

public function ConvertToBoolean(inputVal:String):Boolean {
    var returnVal:Boolean;
			
    if (inputVal == "true") { // need to check string since Boolean() looks for 1 or 0
        returnVal = true;
        	}
    else {
        returnVal = false; 
    }
        	
    return returnVal;			
}

Public Function DetermineCompletionStatus(ByVal completionStatusObj As Object, _
    ByVal expirationDateObj As Object, ByVal currentDays_CriticalObj As Object, _
    ByVal currentDays_AlertObj As Object, Optional ByVal isCourse as Boolean = True) As String
    
    Dim completionStatus As String
    Dim expirationDateId, currencyCriticalDate, currencyAlertDate As DateTime
    Dim currencyCriticalDays, currencyAlertDays As Integer
    Dim checkExpiration As Boolean = isCourse
    Dim defaultStatus as String = "Not Started"
    
    If isCourse = False Then
    	defaultStatus = "not attempted"
    End If
    

    If IsDBNull(completionStatusObj) = True Then
        completionStatus = defaultStatus
    Else
        completionStatus = CStr(completionStatusObj)
        If completionStatus = ""
        	completionStatus = defaultStatus
        End If
    End If

    Dim returnString As String = completionStatus

    If IsDBNull(expirationDateObj) = True OrElse expirationDateObj Is String.Empty OrElse _
        IsNothing(expirationDateObj) = True OrElse expirationDateObj.ToString = "" Then
        
        expirationDateId = DateTime.MinValue
    Else
        Try
            expirationDateId = Convert.ToDateTime(expirationDateObj)
        Catch ex As Exception
            expirationDateId = DateTime.MinValue
        End Try

        If expirationDateId > DateTime.MinValue Then
            If IsDBNull(currentDays_CriticalObj) = True OrElse IsNothing(currentDays_CriticalObj) = True OrElse _
                currentDays_CriticalObj.ToString = "" OrElse currentDays_CriticalObj.ToString = "-10" Then
                
                currencyCriticalDays = 0
                currencyCriticalDate = expirationDateId
            Else
                currencyCriticalDays = CInt(currentDays_CriticalObj)
                currencyCriticalDate = expirationDateId.AddDays(-(currencyCriticalDays))
            End If

            If IsDBNull(currentDays_AlertObj) = True OrElse IsNothing(currentDays_AlertObj) = True OrElse _
                currentDays_AlertObj.ToString = "" OrElse currentDays_AlertObj.ToString = "0" OrElse _
                currentDays_AlertObj.ToString = "-10" Then
                
                currencyAlertDays = 0
                currencyAlertDate = expirationDateId
            Else
                currencyAlertDays = CInt(currentDays_AlertObj)
                currencyAlertDate = expirationDateId.AddDays(-(currencyAlertDays))
            End If
        End If
    End If
    
    Select Case completionStatus.ToLower
    Case "completed", "passed"
	' expiration Date

	checkExpiration = True
    End Select

    If checkExpiration = True Then
        If expirationDateId <> DateTime.MinValue Then
            If (expirationDateId <= Now) Then
                Dim expiredString As String = "Expired"

                returnString = expiredString
            ElseIf (currencyCriticalDate <= Now) Then
                returnString = "Critical"
            ElseIf (currencyAlertDate <= Now) Then
                returnString = "Alert"
            End If
        End If
    End If

	returnString = StrConv(returnString, VbStrConv.ProperCase)
    Return returnString
End Function

=Code.DetermineCompletionStatus(Fields!CompletionStatus.Value, Fields!ExpirationDate.Value, _
    Fields!CurrencyDaysFlag_Critical.Value, Fields!CurrencyDaysFlag_Alert.Value)