Advertisement
Guest User

troublesave

a guest
Sep 2nd, 2014
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.35 KB | None | 0 0
  1. <cfcomponent displayname="Lectures" extends="com.sebtools.Records" output="no">
  2.  
  3. <cffunction name="exportLecture" access="public" returntype="numeric" output="no" hint="I export a lecture to AAT.">
  4.  
  5. <cfset var qCategory = Parent.AAT.Categories.getCategories(CategoryName="RESEARCH, TEACHING AND CLINICAL CONTRIBUTIONS: REPORT OF TEACHING: LOCAL CONTRIBUTIONS: GRADUATE MEDICAL COURSES, SEMINARS AND INVITED TEACHING PRESENTATIONS: TEACHING ROLES",fieldlist="CategoryID",maxrows=1)>
  6. <cfset var sAAT = {}>
  7. <cfset var AATContent = "">
  8.  
  9. <cfsavecontent variable="AATContent"><cfoutput>
  10. <table border="0" cellspacing="0" cellpadding="10" width="850">
  11. <tbody>
  12. <tr>
  13. <td style="vertical-align:top">#Year(Arguments.ActivityDateStart)#</td>
  14. <td style="vertical-align:top">
  15. <em>Department/Residency Conference -- OU School of Community Medicine</em> ( #Arguments.Instructor# )<br />
  16. Teaching Role: Lecturer -- <em>#Arguments.LectureName#</em> (#DateFormat(Arguments.ActivityDateStart,"m/d/yyyy")#)
  17. </td>
  18. </tr>
  19. </tbody>
  20. </table>
  21. </cfoutput></cfsavecontent>
  22.  
  23. <cfif StructKeyExists(Arguments,"ActivityID")>
  24. <cfset sAAT["ActivityID"] = Arguments.ActivityID>
  25. </cfif>
  26.  
  27. <cfset sAAT["PersonIDs"] = Arguments.EDPersons>
  28. <cfset sAAT["CategoryID"] = qCategory.CategoryID>
  29. <cfset sAAT["ActivityName"] = "Department/Residency Conference Lecture">
  30. <cfset sAAT["ActivityDateStart"] = Arguments.ActivityDateStart>
  31. <cfset sAAT["ActivityDescription"] = AATContent>
  32.  
  33. <cfreturn Parent.AAT.Activities.saveActivity(ArgumentCollection=sAAT)>
  34. </cffunction>
  35.  
  36. <cffunction name="saveLecture" access="public" returntype="string" output="no" hint="I save one Lecture.">
  37.  
  38. <cfset var LectureID = 0>
  39. <cfset var qLecture = 0>
  40. <cfset var qConference = Parent.Conferences.getConference(arguments.ConferenceID)>
  41. <cfset var sExport = Duplicate(Arguments)>
  42. <cfset var sUpdate = {}>
  43.  
  44. <cfset LectureID = saveRecord(argumentCollection=arguments)>
  45.  
  46. <!--- Export new lectures to AAT --->
  47. <!---
  48. New lecture (no LectureID argument) = add new AAT activity
  49. Existing lecture with a corresponding AAT Activity = update AAT Activity
  50. Existing lecture with no corresponding AAT Activity = do nothing
  51. --->
  52.  
  53. <cfif NOT StructKeyExists(Arguments,"LectureID") AND LectureID>
  54.  
  55. <cfset qLecture = getLecture(LectureID=LectureID,fieldlist="Instructor")>
  56.  
  57. <cfset sExport["ActivityDateStart"] = qConference.ConferenceDate>
  58. <cfset sExport["Instructor"] = qLecture.Instructor>
  59.  
  60. <cfset sUpdate["LectureID"] = LectureID>
  61. <cfset sUpdate["AATActivityID"] = exportLecture(ArgumentCollection=sExport)>
  62.  
  63. <cfset saveRecord(ArgumentCollection=sUpdate)>
  64.  
  65. <cfelseif StructKeyExists(Arguments,"LectureID")>
  66.  
  67. <cfset qLecture = getLecture(LectureID=LectureID,fieldlist="Instructor,AATActivityID,LectureName")>
  68.  
  69. <cfif isBoolean(qLecture.AATActivityID) AND qLecture.AATActivityID>
  70.  
  71. <!--- Must get updated lecture --->
  72. <cfset sExport["ActivityID"] = qLecture.AATActivityID>
  73. <cfset sExport["ActivityDateStart"] = qConference.ConferenceDate>
  74. <cfset sExport["Instructor"] = qLecture.Instructor>
  75. <cfset sExport["LectureName"] = qLecture.LectureName>
  76. <cfset exportLecture(ArgumentCollection=sExport)>
  77. </cfif>
  78.  
  79. </cfif>
  80.  
  81. <cfreturn LectureID>
  82. </cffunction>
  83.  
  84. </cfcomponent>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement