Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1866 -r2047
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1866)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 2047)
@@ -41,6 +41,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFotoIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set Photos = ##class(%ListOfObjects).%New()
+	
+	For iVRRead=1:1:..CaptureInfo.VRRead.Count() {
+		For iReader=1:1:..CaptureInfo.VRRead.GetAt(iVRRead).Reader.Count() {
+			For iSequence=1:1:..CaptureInfo.VRRead.GetAt(iVRRead).Reader.GetAt(iReader).Sequence.Count() {
+				Set Sequence = ..CaptureInfo.VRRead.GetAt(iVRRead).Reader.GetAt(iReader).Sequence.GetAt(iSequence)
+				For iCamera=1:1:Sequence.Camera.Count() {
+					For iPhoto=1:1:Sequence.Camera.GetAt(iCamera).Photo.Count() {
+						Do Photos.Insert(Sequence.Camera.GetAt(iCamera).Photo.GetAt(iPhoto))
+					}	
+				}
+			}			
+		}
+	}
+	Set PhotoIt = ##class(TECH.ListIterator).%New(Photos)
+	Quit PhotoIt
+]]></Implementation>
+</Method>
+
 <Method name="HasDetectionData">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[