"
strName = Util.IfElse(g_fUse_PictureId,Trim(p.Name),"")
Report.WritePhraseDic "PhPictureDetails", Util.IfElse(g_fHidePictureName, "", strName), p.Date.ToStringNarrative, StrHtmlHyperlink(p.Place), ""
WriteHtmlFootnoteRef p.Source
If Not Util.IsNothing(p.Source) Then g_collFootnotes.AddUnique(p.Source)
WriteHtmlAdditionalInformation p
WriteHtmlAnnotation Dic("AnnotationPicture"), p.Comment
Set c = p.Cache
WriteHtmlAnnotation Dic("AnnotationPictureTechnical"), Util.FormatPhrase(Dic("PhPictureTechnical"), c.Dimension, c.Megapixels, c.FileSizeKB, c.Dpi, c.Bpp, p.Path.relative)
WriteHtmlAllFootnotes p.Sources
WriteHtmlReferences p, False
Report.Writeln "
"
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If g_ichReferencesStart >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt ichReferencesStart, ichReferencesEnd
End If
If (g_ichNotesStart >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt g_ichNotesStart, ichNotesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Places") ]%>