%[@ IncludeFile "Code/Util.vbs" ]%>
<%[@ IncludeFile "Code/Lang.vbs" ]%>
<%[If Session("Book") Then Report.AbortTemplate]%>
<%[
If p.References.Count = 0 Or p.Session("IsExcluded") Then Report.AbortPage
strTitle = Dic("Picture") &" " & Util.IfElse(Session("fUsePictureId") = True,p.ID,StrFormatText(p, StrParseText(Trim(p.Name), True)))
]%>
@[ Report.WriteText Session("Title") ]@
<%[
If Session("VideoJs") Then
]%>
<%[
End If
]%>
@[GoogleAnalytics]@
<%[if session("fUseCurvyBoxes") then CurvyBoxOpen()]%>
"
End If
Report.WritePhraseDic "PhPictureDetails", Util.IfElse(Session("fHidePictureName"), "", strName), p.Date.ToStringNarrative, StrHtmlHyperlink(p.Place), ""
WriteHtmlFootnoteRef p.Source
If Not Util.IsNothing(p.Source) Then Session("Footnotes").AddUnique(p.Source)
WriteHtmlExtraNarrative p
WriteHtmlAdditionalInformation p
WriteHtmlAnnotation p, Dic("AnnotationPicture"), p.Comment
Set c = p.Cache
If Session("fShowTechnicalData") Then WriteHtmlAnnotation p, Dic("AnnotationPictureTechnical"), Util.FormatPhrase(Dic("PhPictureTechnical"), c.Dimension, c.Megapixels, c.FileSizeKB, c.Dpi, c.Bpp, p.Path.relative)
WriteHtmlAllFootnotes p.Sources, True
WriteHtmlReferences p, False
Report.Writeln ""
' remove any unecessary items (reverse order to avoid invalidating buffer pointers)
If Session("ReferencesStart") >= 0 Then
' We have no place references, so remove the "Show All References | Hide All References"
Report.BufferRemoveAt Session("ReferencesStart"), ichReferencesEnd
End If
If (Session("NotesStart") >= 0) Then
' We have no annotations, so remove the "Show All Notes | Hide All Notes"
Report.BufferRemoveAt Session("NotesStart"), ichNotesEnd
End If
]%>
<%[ WriteHtmlFramesetSafeguard("Places") ]%>
<%[if session("fUseCurvyBoxes") then CurvyBoxClose()]%>