Advertisement
ossiejhmoore

Untitled

Oct 18th, 2017
126
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.07 KB | None | 0 0
  1. /**
  2. * Builds the Admin index page entries for this module.
  3. *
  4. * Inputs: prgCtx - Program context for the request.
  5. * request - Information submitted with the request.
  6. *
  7. * Output: retVal.ok - Operation success flag
  8. * retVal.ErrMsg - Error message if the operation fails
  9. * retVal.ApiError - Actual error encountered
  10. * retVal.Data - Describe the data returned (if any)
  11. */
  12.  
  13. function Assoc Execute( Object prgCtx, Record request )
  14.  
  15. Assoc retVal
  16. retVal.ok = false
  17. retVal.ErrMsg = Undefined
  18. retVal.ApiError = Undefined
  19. retVal.Data = Undefined
  20.  
  21. String scriptName = request.SCRIPT_NAME
  22. String modName = os.FileName(this)
  23. Assoc sections
  24. Assoc section_1 = ._NewSection()
  25. Assoc section_1_1 = ._NewSection()
  26.  
  27.  
  28. //Admin Section
  29. section_1.anchorName = [CAPNFDLU_LABEL.AdminPagesAnchorName]
  30. section_1.heading = [CAPNFDLU_LABEL.AdminPagesTabName]
  31. sections.(modName) = section_1
  32.  
  33. //Configure Module Parameters
  34. section_1_1.anchorHREF = Str.Format("%1?func=capnfdlu.ConfigureModuleParameters", scriptName)
  35. section_1_1.heading = [CAPNFDLU_LABEL.AdminPagesConfigureModuleParametersHeading]
  36. section_1_1.text = [CAPNFDLU_LABEL.AdminPagesConfigureModuleParametersText]
  37. section_1.sections.( section_1_1.heading ) = section_1_1
  38. retVal.ok = true
  39. retVal.sections = sections
  40.  
  41. if (!retVal.ok)
  42. if (IsUndefined(retVal.ErrMsg))
  43. retVal.ErrMsg = Str.Format("Unknown exception while executing CAPNFDLU's AdminIndexCallback.Execute")
  44. end
  45. end
  46. return retVal
  47. end
  48.  
  49.  
  50.  
  51.  
  52.  
  53. CAPNFDLU_LABEL.AdminPagesAnchorName = capnfdlu
  54. CAPNFDLU_LABEL.AdminPagesTabName = capSpire Download Utility for Newfield
  55. CAPNFDLU_LABEL.AdminPagesConfigureModuleParametersHeading = Configure Module Parameters
  56. CAPNFDLU_LABEL.AdminPagesConfigureModuleParametersText = Configure settings for this module.
  57.  
  58. CAPNFDLU_CONFIGADDITIONALPARAMS_LABEL.PageTitle = capSpire Download Utility : Configure Module Parameters
  59. CAPNFDLU_CONFIGADDITIONALPARAMS_LABEL.PageHeading = capSpire Download Utility Configure Additional Parameters
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement