<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables If p.References.Count = 0 Or CustomTag(p, "_Exclude") = "Y" Then Report.AbortPage strTitle = Dic("Picture") &" " & Util.IfElse(g_fUsePictureId = True,p.ID,StrParseText(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, strMap strMap = CustomTag(p, "_AreaMap") If strMap = "" Then 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 "
" 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(g_fHidePictureName, "", strName), p.Date.ToStringNarrative, StrHtmlHyperlink(p.Place), "" WriteHtmlFootnoteRef p.Source If Not Util.IsNothing(p.Source) Then g_collFootnotes.AddUnique(p.Source) WriteHtmlExtraNarrative p WriteHtmlAdditionalInformation p WriteHtmlAnnotation p, Dic("AnnotationPicture"), p.Comment Set c = p.Cache WriteHtmlAnnotation p, 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 g_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") ]%>