<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ strTitle = Dic("PictureGallery") InitGlobalVariables fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder)=g_strPrivateFolder) ]%> @[ Report.WriteText strTitle]@ <%[If fPrivateFolder Then Report.WriteFormattedLn "",g_strBaseUrl]%>
<%[ g_ichNotesStart = Report.BufferLength WriteHtmlButtonToggle("Notes") ichNotesEnd = Report.BufferLength g_ichReferencesStart = Report.BufferLength WriteHtmlButtonToggle("OtherDetails") ichReferencesEnd = Report.BufferLength ]%>

@[ Report.WriteText strTitle ]@


<%[ Pictures.SortBy("Name") Dim strDimension, c, strName For Each p In Pictures If p.References.Count > 0 And CustomTag(p, "_Exclude") <> "Y" Then If fPrivateFolder Or Not isPrivate(p) 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 "
" Report.WriteFormattedLn "", p.ID Report.WriteT3 "

",Util.IfElse(g_fUsePictureId = True,p.ID,Trim(p.Name)),"

" 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 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 "


" End If End If Next ' 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") ]%>