<%
' (SS,19/07/18) Added HTMLEncode to ShowSubcategoryListHeader, ShowSubcategoryListItem and ShowSubcategoryListItemWithPicture to prevent XSS
' (SS,05/04/19) Replaced getpic.asp with GetCategoryImageLink and GetSubcategoryImageLink. Removed Sub ShowSubcategoryListItemWithPictureOld.
' (SS,06/06/24) From HyperFlight, refinements for Express Music, moved back to HyperFlight too

' --- START OF SUBCATEGORY LIST TEMPLATES --- '

Const MAX_SUBCATEGORY_LIST_COLUMNS = 3

Sub ShowSubcategoryListHeader(ACategory, ACategoryDescription, AShowCategoryPicture)
' (SS,19/7/18) Added HTMLEncode to rendering of ACategory to prevent XSS
' (SS,6/4/19) replaced getpic.asp with GetCategoryImageLink
' (SS,6/6/24) added <div class="grid"> for isotope to sort grid alignment issue for longer subcategory names
%>
<!-- START OF SUBCATEGORY LIST -->       
      <div id="subcategory-list">
      	<div id="subcategory-list-heading"><h1><%=HTMLEncode(ACategory)%></h1></div>
				<div id="subcategory-list-content">
          <div id="subcategory-list-cat-details">
<%If AShowCategoryPicture Then%>
            <img id="subcategory-list-cat-image" src="<%=GetCategoryImageLink(ACategory, "l")%>" alt="category" width="75"> 
<%End If%>		
            <div id="subcategory-list-cat-description">
              <%=ACategoryDescription%>
            </div>
            <div class="clear"></div>
          </div>
          <div class="grid">
<%
End Sub

Sub ShowSubcategoryListFooter
%>
          </div>
          <div class="clear"></div>
        </div><!-- end #subcategory-list-content -->
        <div class="clear"></div> 
      </div><!-- end #subcategory-list -->
<!-- END OF SUBCATEGORY LIST -->
<%
End Sub

Sub ShowSubcategoryListItem_old(ACategory, ASubcategory, AIsStartItem, AIsEndItem)
' (SS,19/7/18) Added HTMLEncode to rendering of ASubcategory to prevent XSS
%>
<!-- START OF SUBCATEGORY LIST ITEM -->
          <a href="<%=GetSubcategoryLink(ACategory, ASubcategory)%>">
          <div class="subcategory-list-item">   
            <div class="subcategory-list-item-image"></div>
            <div class="subcategory-list-item-title"><h2><%=HTMLEncode(ASubcategory)%></h2></div>          
          </div>
          </a>
<!-- END OF SUBCATEGORY LIST ITEM -->
<%
End Sub

' (SS,6/6/24) replaced above with following
Sub ShowSubcategoryListItem(ACategory, ASubcategory, AIsStartItem, AIsEndItem)
  ' (SS,19/7/18) Added HTMLEncode to rendering of ASubcategory to prevent XSS
  ' (SS,6/6/24) calls ShowSubcategoryListItemWithPicture so that positioning is consistent and image to following image is shown
  ShowSubcategoryListItemWithPicture ACategory, ASubcategory, AIsStartItem, AIsEndItem
End Sub

Sub ShowSubcategoryListItemWithPicture(ACategory, ASubcategory, AIsStartItem, AIsEndItem)
' (SS,19/7/18) Added HTMLEncode to rendering of ASubcategory to prevent XSS
' (SS,6/4/19) replaced getpic.asp with GetSubcategoryImageLink
' (SS,6/6/24) added style="padding: 10px"
%>
<!-- START OF SUBCATEGORY LIST ITEM -->
        <div class="col-lg-3 col-md-4 col-sm-6 col-xs-12 grid-item" style="padding: 10px">
          <a href="<%=GetSubcategoryLink(ACategory, ASubcategory)%>">
          <div class="subcategory-list-item">   
            <img class="subcategory-list-item-image img-responsive" src="<%=GetSubcategoryImageLink(ACategory, ASubcategory, "l")%>" alt="<%=ASubcategory%>">
            <div class="subcategory-list-item-title"><%=HTMLEncode(ASubcategory)%></div>
          </div>
          </a>
        </div>
<!-- END OF SUBCATEGORY LIST ITEM -->
<%
End Sub

Sub ShowSubcategoryListStartRow
End Sub

Sub ShowSubcategoryListEndRow
End Sub

Sub ShowSubcategoryLineSeparator
End Sub

Sub ShowSubcategoryListMissingColumns(ACount)
End Sub

%>