• comments counter in picture overview

    By heinz koton 2 decades ago

    a little enhancement:

    in view "HTML\PhotosForPublic"

    replace in the html column:

    comments:=@If(@IsAvailable(RESPONSECOUNT);" comments: "+"("+@Text(RESPONSECOUNT)+")";"");

    subject := @If(@IsAvailable(Subject);Subject;"Album: "+AlbumName);

    subject := @ReplaceSubstring(Subject;"&";"&");

    subject := @ReplaceSubstring(Subject;"\"";""");





    webdbname := @WebDbName;

    res := @If(@IsNumber(PHOTO_THUMB_HEIGHT);" height=\"" + @Text(PHOTO_THUMB_HEIGHT) + "\" width=\"" + @Text(PHOTO_THUMB_WIDTH) + "\"";"");



    link := "/"+webdbname+@If(Form="Album_sub";"/albums/";"/pictures/")+PermaLink;



    image1 := "<img align=\"left\" src=\"/"+WebDbName+"/pictures/"+@If(Form="Album_sub" & AlbumPictureChoice != "" ;@Word( AlbumPictureChoice ; ":" ; 1 );PermaLink)+"/$File/"+@If(Form="Album_sub";AlbumPictureThumbnail;PHOTO_THUMB_FILENAME)+"\"" + res + " alt=\"" + Subject + "\" title=\"Open " + Subject + "\" class=\"showThumbs\">";



    image2 := "<img align=\"left\" src=\"/"+WebDbName+@If(Form="Album_sub" & AlbumPictureChoice != "" ;@If(Form="Album_sub";AlbumPicture;PermaLink)+"/$File/"+@If(Form="Album_sub";AlbumPictureThumbnail;PHOTO_THUMB_FILENAME);"/no_preview_available.gif")+"\" border=\"0\" title=\"Open " +
    Subject + "\" class=\"showThumbs\">";



    @If(@If(Form="Album_sub";AlbumPictureThumbnail;PHOTO_THUMB_FILENAME) = ""; image:=image2;image:=image1);



    AlbumHTML := "<a href=\""+link+"\">"+@NewLine

    +image+"</a>" + Album_Description+"" ;





    Album_SubHTML :=

        &quot;&lt;div class=\&quot;StoryContents\&quot;&gt;&lt;p class=\&quot;StoryContentsText\&quot; &gt;&quot; + @NewLine +<br/>
        &quot;&lt;table&gt;&lt;tr&gt;&lt;td&gt;&quot; + albumHTML  +&quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;+ @NewLine +<br/>
        &quot;&lt;/div&gt;&quot; + @NewLine;<br/>
    



    PictureHTML := "<span class=\"Thumbnail\">" + @NewLine +

    &quot;&lt;a href=\&quot;&quot;+link+&quot;\&quot;&gt;&quot;+@NewLine +<br/>
    image+&quot;&lt;/a&gt;&lt;br clear=\&quot;right\&quot;&gt;&quot;+ @NewLine +<br/>
    _Subject+comments+&quot;&lt;br clear=\&quot;all\&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot; + @NewLine;<br/>
    



    @If(Form="Album_sub"; Album_SubHTML ; PictureHTML )