From dc1c652efd67103e9d6b42754c84a52fae97487a Mon Sep 17 00:00:00 2001
From: Anatasof Wirapraja <anata@darapsa.co.id>
Date: Mon, 5 Jul 2021 17:25:03 +0700
Subject: add All-Products catalog to index

---
 pages/index.html | 99 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)

(limited to 'pages/index.html')

diff --git a/pages/index.html b/pages/index.html
index 177d828..373c59c 100644
--- a/pages/index.html
+++ b/pages/index.html
@@ -10,5 +10,104 @@
 			<p class="text-muted">__DESCRIPTION__</p>
 		</div>
 	</div>
+	<!-- Catalog Content -->
+	<div class="container p-4">
+	  <div class="row text-center text-lg-left pt-2">[search-region][on-match][tmp meta_header][calcn]
+			  return unless $Values->{more_link};
+			  (my $more_page = $Session->{last_url}) =~ s|^/.*/([^\..]+)(?:\.html)?|$1|;
+			  if ($more_page =~ /^(Next|Prev)/) {
+					  $Tag->tag({ op => 'header' }, qq{Cache-control: no-cache\nCache-control: no-store\nPragma: no-cache\nExpires: 0\nContent-type: text/html});
+			  }
+			  ## $mc set above.
+			  my $ml = $Values->{mv_matchlimit} || '';
+			  my $fm = $Values->{mv_first_match} || '';
+			  my ($canon, $rel_prev, $rel_next);
+				  #Debug("more_page=$more_page, ml=$ml, fm=$fm, mc=$mc");
+			  my ($prev, $next);
+			  REL: {
+					  last REL if $mc < $ml;
+					  if ($fm == 0 || $fm == 1) {  # first page
+						  $rel_next = $Values->{more_link} . '/2';
+					  } elsif (($mc - $fm - $ml) <= 0) {  # last page
+						  $prev = sprintf("%.0f", (($fm+$ml) / $ml) - 1);
+						  $rel_prev = $Values->{more_link} . '/' . ($prev ? $prev : '1');
+					  } else {  # page 2 to second-to-last
+						  $prev = sprintf("%.0f", ($fm / $ml));
+						  $next = $prev + 2;
+						  $rel_prev = $Values->{more_link} . "/$prev";
+						  $rel_next = $Values->{more_link} . "/$next";
+					  }
+				  }
+				  CANON: {
+					  last CANON if $more_page !~ /^1|(Next|Prev)/;
+					  if ($more_page eq '1') {
+						  $canon = '';
+					  } else {
+						  $canon = sprintf("%.0f", ($fm+$ml) / $ml);
+						  $canon = '' if $canon == 1;
+					  }
+					  $canon = $Values->{more_link} . ($canon ? "/$canon" : '');
+				  }
+				  my @out;
+				  my $url = ($Variable->{SAMPLEURL} . $Variable->{CGI_URL}) || '';
+				  my $ext = $Scratch->{mv_add_dot_html} ? '.html' : '';
+				  $url !~ /\/$/ and $url .= '/';
+				  push @out, qq{<link rel="prev" href="$url$rel_prev$ext">} if $rel_prev;
+				  push @out, qq{<link rel="next" href="$url$rel_next$ext">} if $rel_next;
+				  $Tag->tmp('rel_next', 1) if $rel_next;
+				  push @out, qq{<link rel="canonical" href="$url$canon$ext">} if $canon;
+				  if ($prev || $next) { $Scratch->{page_title} = $Scratch->{page_title} . ' - Page ' . (($prev || $next)+1) };
+				  return "\t" . join "\n\t", @out;
+				  [/calcn][/tmp][/on-match][tmp bw_more][more-list][first-anchor][/first-anchor][last-anchor][/last-anchor][link-template]<li><a href="[area href=|[value more_link]/$ANCHOR$|]">$ANCHOR$</a></li>[/link-template]
+				  <nav>
+				<ul class="pagination">
+			  {PREV_LINK}{MORE_LIST}[if scratch rel_next]{NEXT_LINK}[/if]
+				</ul>
+				  </nav>
+				  [/more-list][/tmp][calc]
+				  my $more = $Scratch->{bw_more};
+				  $more and $more =~ s,<strong>,<li class="active"><a href="#">,;
+				  $more and $more =~ s,</strong> *,</a></li>,g;
+				  $Scratch->{bw_more} = $more;
+				  return $Values->{more_link} ? $more : undef;
+				  [/calc][search-list]
+		<!-- Product -->
+		<div class="col-lg-6 col-md-6">
+		  <div class=" container">
+			<a href="[area [item-code]]" class="d-block h-100">
+			  <img src="__IMAGE_DIR__/thumb/[item-field thumb]" class="img-fluid img-thumbnail" alt="[item-description]" title="[item-code]">
+		   </a>
+		  </div>
+		  <div class="container">
+			<h5 class="text-truncate">[item-description]</h5>
+			<h6 class="text-primary">[item-price]</h6>
+		  </div>
+		</div>
+		<!-- End of Product -->
+		[/search-list][no-match]
+				  <div>[comment]
+				Don't show the search string if it was empty, since it looks weird
+				and the user will see the error below anyway.
+				[/comment][tmp matchstring][value-extended name=mv_searchspec joiner=" | " filter=encode_entities][/tmp][if scratch matchstring]
+					[msg arg.0="[scratch matchstring]"]Sorry, no matches for <B>%s</B>.[/msg]
+					[/if][if value mv_search_error]
+				<B>
+				  [L]Errors[/L]:
+				  <BR>[value-extended name=mv_search_error joiner="<BR>" filter=encode_entities]
+				</B>
+				[/if]
+				  </div>
+				  [/no-match][if value more_link][scratch bw_more][else][more-list]
+			  <div class=morelist>
+				[msg arg.0="[matches]" arg.1="[match-count]"]Matches %s of %s found.[/msg]
+				[link-template]<a href="$URL$" target="_top" class="morelink">$ANCHOR$</a>[/link-template]
+				<BR>[more]<BR>
+			  </div>
+			  [/more-list]
+				  [/else]
+				  [/if][/search-region]
+	  </div>
+	</div>
+	<!-- .End of Catalog Content -->
 </div>
 __BOTTOM__
\ No newline at end of file
-- 
cgit v1.2.3