licmanual.tcl

windml3.0.3

# A callout is made to update the license request values and update
# the table display.
#
# SYNOPSIS
# .tS
# floatTextManualCB
# .tE
#
# PARAMETERS: N/A
#
# RETURNS: N/A
#
# ERRORS: N/A
#
#

proc floatTextManualCB {} {
    global ctrlVals

    set ix [controlSelectionGet $ctrlVals(mainWindow).licManualTable]

    # if the user is making selections in the table, simply 
    # return so that the text callback does not automatically
    # update the table at the same time.

    if {$ctrlVals(tableUpdate) == 1} {
        return
    }

    # set the inputUpdate variable to 1 so that the table
    # callback does not automatically update the text
    # entry box at the same time.

    set ctrlVals(inputUpdate) 1    

    manualLicRequestedUpdate $ix

    set ctrlVals(inputUpdate) 0
}

proc nodelockChoiceManualCB {} {
    global ctrlVals

    set ix [controlSelectionGet $ctrlVals(mainWindow).licManualTable]

    # if the user is making selections in the table, simply 
    # return so that the text callback does not automatically
    # update the table at the same time.

    if {$ctrlVals(tableUpdate) == 1} {
        return
    }

    # set the inputUpdate variable to 1 so that the table
    # callback does not automatically update the radio
    # choices at the same time.

    set ctrlVals(inputUpdate) 1    

    manualNodelockChoiceCB $ix

    set ctrlVals(inputUpdate) 0
}

#############################################################################
#
# licTableManualUpdate - updates manual floating license table with specified 
#                        values
#
# This procedure updates the floating license table for the specified
# feature and number of licenses requested.  This is called when the
# user updates the number of requsted licenses in the text entry box.
#
# SYNOPSIS
# .tS
# licTableManualUpdate
# .tE
#
# PARAMETERS: 
#     featIx - feature index, corresponding to the selection in the table
#     numRequested - number of requested licenses
#
# RETURNS: N/A
#
# ERRORS: N/A
#
#

proc licTableManualUpdate {featIx numRequested} {
    global lmVals ctrlVals setupVals

    set length [llength $lmVals(lmLicensedProductNames)]
    for {set ix 0} {$ix < $length} {incr ix} {
        # get all the values for the current feature

        set featureVals [lindex [controlValuesGet $ctrlVals(mainWindow).licManualTable] $ix]
   
        if { $ix == $featIx } {
            # then get just the first two values, the third value (requested)
            # will be set here
        
            set featureVals [lrange $featureVals 0 1]

            if {$setupVals(lmInstType) == "floating"} {
                lappend featureVals $numRequested
            } else {
                # node locked

                if {$numRequested == 1} {
                    lappend featureVals "Yes"
                } else {
                    lappend featureVals "No"
                }
            }
        } 

        lappend licTableVals $featureVals         
    } 

    controlFocusSet $ctrlVals(mainWindow).licManualTable  
    controlValuesSet $ctrlVals(mainWindow).licManualTable $licTableVals            
    controlSelectionSet $ctrlVals(mainWindow).licManualTable $featIx
           
    if {$ctrlVals(inputUpdate) == 1} {
        # if the user is updating the text entry box, put focus
        # back on the entry box

        if {$setupVals(lmInstType) == "floating"} {
            controlFocusSet $ctrlVals(mainWindow).textManualRequested
        }
    }            
}

#############################################################################
#
# manualLicRequestedUpdate 
#
# This procedure does the work for the manual license text box callback
# procedures.  It updates the temporary array to be displayed on the 
# Email or Phone/Fax License Request Summary page and controls
# enabling or disabling of the Next button.
#
# SYNOPSIS
# .tS
# manualRequestedUpdate ix
# .tE
#
# PARAMETERS: N/A
# ix - the index or order in which the licensed product is displayed
#
# RETURNS: n/a
#
# ERRORS: N/A
#
proc manualLicRequestedUpdate {ix} {
    global ctrlVals lmVals setupVals

    if { [isGUImode] } {
        if { $setupVals(lmInstType) == "floating" } {
            if {[controlValuesGet wizardDialog.textManualRequested] != ""} {
                set input [controlValuesGet wizardDialog.textManualRequested]
                if {[isNumeric $input "License Count Input Error" wizardDialog.textManualRequested]} {

                    #update licensed product(s) information
                    set lmVals(lmFeaturesRequested) \
                            [lreplace $lmVals(lmFeaturesRequested) $ix $ix $input]
                    licTableManualUpdate $ix $input
                }
            }
        } else {
            if {[controlValuesGet wizardDialog.${ix}Requested] != ""} {
                set input [controlValuesGet wizardDialog.${ix}Requested]
                if {[isNumeric $input "License Count Input Error" wizardDialog.${ix}Requested]} {

                    #update licensed product(s) information
                    set lmVals(lmFeaturesRequested) \
                        [lreplace $lmVals(lmFeaturesRequested) $ix $ix $input]
                }
            } else {
                 set lmVals(lmFeaturesRequested) \
                    [lreplace $lmVals(lmFeaturesRequested) $ix $ix 0]
            }
        }
        

        if { [checkLMFeaturesRequestedFields] } {
            controlEnable wizardDialog.nextButt 1
        } else {
            controlEnable wizardDialog.nextButt 0
        }

    } else { # TEXT mode

        set name [lindex $lmVals(lmLicensedProductNames) $ix]

        puts "Enter the number of licenses to be requested for $name product."

        set ret [prompt]
        switch -regexp -- $ret {
            "^-$" {
                pageCreate(licManual)
            }
            "[ ]+" {
                puts "Error: Invalid input."
                while {[prompt "Press <Enter> to continue."] != "" } {
                }
                pageCreate(licManual)
            }
            "^[0-9]+" { 
                set lmVals(lmFeaturesRequested) \
                        [lreplace $lmVals(lmFeaturesRequested) $ix $ix $ret]
            }
            "[eE][xX][iI][tT]" {  
                return 0  
            }
            default {
                puts "Error: Invalid input."
                while {[prompt "Press <Enter> to continue."] != "" } {
                }
                pageCreate(licManual)
            }
        }
    }
}

#############################################################################
#
# manualNodelockChoiceCB
#
# This procedure does the work for the node locked license check box 
# callback procedures.  It updates the temporary array to be displayed on
# the Email or Phone/Fax License Request Summary page
#
# SYNOPSIS
# .tS
# manualNodelockChoiceCB ix
# .tE
#
# PARAMETERS: N/A
# ix - the index or order in which the licensed product is displayed
#
# RETURNS: n/a
#
# ERRORS: N/A
#
proc manualNodelockChoiceCB {ix} {
    global ctrlVals lmVals setupVals

    if { [isGUImode] } {
        if {[controlChecked wizardDialog.yesManualChoice] == 1} {
            #update licensed product(s) information
            set lmVals(lmFeaturesRequested) \
                    [lreplace $lmVals(lmFeaturesRequested) $ix $ix 1]

        } else {
            set lmVals(lmFeaturesRequested) \
                    [lreplace $lmVals(lmFeaturesRequested) $ix $ix 0]
        }

        licTableManualUpdate $ix [controlChecked wizardDialog.yesManualChoice]

        if { [checkLMFeaturesRequestedFields] } {
            controlEnable wizardDialog.nextButt 1
        } else {
            controlEnable wizardDialog.nextButt 0
        }

    } else { # TEXT mode
        set oldValue [lindex $lmVals(lmFeaturesRequested) $ix]
        
        if { $oldValue == 1 } {
            set lmVals(lmFeaturesRequested) \
                    [lreplace $lmVals(lmFeaturesRequested) $ix $ix 0]
        } else {
            set lmVals(lmFeaturesRequested) \
                    [lreplace $lmVals(lmFeaturesRequested) $ix $ix 1]
        }
    }
}


######################################################################
# Dialog Text Messages
######################################################################

set strTable(LICMANUAL_TITLE_EMAIL) "Email License Configuration"

set strTable(LICMANUAL_TITLE_PHONE) "Phone/Fax License Configuration"

set strTable(LICMANUAL_MSG_COMMON) \
    "Please refer to the Sales Acknowledgement Agreement for \
     the number of licenses available for the installed product(s)."

set strTable(LICMANUAL_UPDATE1) \
	"Please enter the number of licenses to be requested for\
     this host for all the installed product(s) listed below. \
     [strTableGet LICMANUAL_MSG_COMMON]"

set  strTable(LICMANUAL_TEXT) \
    "Enter the item number for the products for which you\
     would like to request a license or press \<Return\> to\
     accept this configuration."

set strTable(LICMANUAL_UPDATE2) \
	"After configuring floating licenses, click <Next> to continue."

set strTable(LICMANUAL_ELM_UPDATE2) \
	"After configuring licenses, click <Next> to continue."

set strTable(LICMANUAL_NODELOCK1) \
	"Please select the node locked licenses desired for this host from\
	the following list of installed product(s):"

set  strTable(LICMANUAL_NODELOCK2) \
	"After configuring node locked licenses, click <Next> to continue."

set strTable(LICMANUAL_ZERO_ERROR) \
    "You must enter a non-zero value for at least one product."

set strTable(LICMANUAL_TABLE_FLOATING) \
        "Select a product in the table above, then enter the number of\
        licenses to be allocated."

set strTable(LICMANUAL_TABLE_NODELOCKED) \
        "Select a product above, then specify whether to\
        request a node locked license."

set strTable(LICMANUAL_COL1) "Licensed Product"

set strTable(LICMANUAL_COL2) "Feature ID"

set strTable(LICMANUAL_COL3) "No. of licenses\nto be allocated"

set strTable(LICMANUAL_NODELOCK) "Request a node\nlocked license"