<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables strTitle = Dic("Picture") &" " & Util.IfElse(g_fUsePictureId = True,p.ID,Trim(p.Name)) ]%> @[ Report.WriteText Session("Title") ]@
<%[ g_ichNotesStart = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength g_ichReferencesStart = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength WriteHtmlButtonToggle("HidePopUp") ]%>

@[ Report.WriteText strTitle ]@


<%[ Dim strDimension, c, strName Report.WriteLn "
" strDimension = p.PictureDimension(g_cxPictureSizeLarge & "x" & g_cyPictureSizeLarge) WriteHtmlPicture p, Util.GetWidth(strDimension), Util.GetHeight(strDimension), g_cxyPicturePadding, "right", g_cxPictureSizeLarge, g_cyPictureSizeLarge Report.WriteLn "
" 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") ]%>