<gml id="missionresearch_newreport">
	<info>
		<title>New Report</title>
		<versions>
			<version match="2.0" module="version2" />
		</versions>
	</info>
	<module id="version2">
		<objects>
			<object id="Handler" type="vbscript">
				<![CDATA[
					Const CategoryKey = "my-reports"
					Sub AddNewReportCategory()
						Dim oCat
						Set oCat = App.Modules.GiftWorks.Reports.GetNewCategory
						oCat.Key = CategoryKey
						oCat.Name = "My Reports"
						oCat.Description = "These are my reports that I have built."
						App.Modules.GiftWorks.Reports.Categories.Add oCat
					End Sub
					Sub AddNewReport()
						Dim oReport, oCat
						For Each oCat In App.Modules.GiftWorks.Reports.Categories
							If oCat.Key = CategoryKey Then
								Set oReport = App.Modules.GiftWorks.Reports.GetNewReport
								oReport.Key = "donors-by-number"
								oReport.Name = "Donors By Number Of Donations"
								oReport.Description = "This report let's me filter my donors by the number of gifts they have given."
								oReport.Path = App.Modules.missionresearch_newreport.Path
								oCat.Reports.Add oReport
							End If
						Next
					End Sub
					Sub EventHandler(Ev)
						Select Case Ev.Key
							Case "reports-categories"
								AddNewReportCategory
							Case "reports-categories-reports"
								AddNewReport
						End Select
					End Sub
				]]>
			</object>
		</objects>
		<taskmenu/>
		<handlers>
			<handler id="reports-categories" object="Handler" />
			<handler id="reports-categories-reports" object="Handler" />	
		</handlers>
	</module>
</gml>
