###Custom print subordinate comment macro Start #macro(PrintChilds $DataItemY) #set($childList = $Module.GetComments($DataItemY.ID)) #if($childList.Count>0)

#foreach($DataItemX in $childList) #if($DataItemX.ParentID == $DataItemY.ID)

#if( $DataItemX.WebSite != '' ) $DataItemX.UserName #else $DataItemX.UserName #end

$DataItemX.ContentText

$DataItemX.CreateTime | #if( $LoginComment ==0 || $Module.Userid > 0) ${xf.ViewReplyButton($DataItemX,"Reply")} #end

#end #end

#end #end ###Custom print subordinate comment macro end

#if($DataList.Count >0)

${xf.ViewLanguage("CommentList","Comments")}

#foreach($DataItem in $DataList) #if($DataItem.ParentID == 0)

#if( $DataItem.WebSite != '' ) $DataItem.UserName #else $DataItem.UserName #end

$DataItem.ContentText

$DataItem.CreateTime | #if( $LoginComment ==0 || $Module.Userid > 0) ${xf.ViewReplyButton($DataItem,"Reply")} #end

#PrintChilds($DataItem)

#end #end

#end

${Pager}

#if( $LoginComment ==0 || $Module.Userid > 0)

${xf.ViewLanguage("CommentTitle","Post a Comment")}

${CommentNotify}
${xf.ViewCommentTextBox("UserName",200,true,"")}
${xf.ViewCommentTextBox("Email",200,true,"email")}
${xf.ViewCommentTextBox("WebSite",200,false,"url")}
${xf.ViewCommentTextArea(300,12,true)}
${xf.ViewHtmlButton("Submit",true)}

#else ${xf.ViewLanguage("CommentLogin","You need to login in order to comment")} #end