<%[@ 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()]%>
<%[ Session("NotesStart") = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength Session("ReferencesStart") = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength WriteHtmlButtonToggle("HidePopUp") ]%>

@[ Report.Write strTitle ]@

<%[ Dim strDimension, c, strName, strMap strMap = p.Session("AreaMap") If strMap = "" Then Report.WriteLn "
" strDimension = p.PictureDimension(Session("cxPictureSizeLarge") & "x" & Session("cyPictureSizeLarge")) WriteHtmlPicture p, p, Util.GetWidth(strDimension), Util.GetHeight(strDimension), Session("cxyPicturePadding"), "right", Session("cxPictureSizeLarge"), Session("cyPictureSizeLarge") Report.WriteLn "
" End If strName = Util.IfElse(g_fUse_PictureId,Trim(p.Name),"") If strMap <> "" Then Report.Write "
" Report.WriteFormattedLn "", p.Path.report Report.WriteFormattedLn "{}", strMap Report.WriteFormattedLn "
{}
", Dic("PictureMapHint") Report.WriteLn "
" 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()]%>