X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FIndex.pm;h=a5407d1efef8aa7ca9c094465c91ad3c934b692c;hb=760115f054691248910831fa69f14ec78c982f0d;hp=8409c8486d197d78b31fbc79780057ad10a7ca2f;hpb=5f9bbec7285083086e4fd42b658b6f29b2546de5;p=pr0n

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index 8409c84..a5407d1 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -225,11 +225,16 @@ sub handler {
 					my $eqspec = $e->{'model'};
 					$eqspec .= ', ' . $e->{'lens'} if (defined($e->{'lens'}));
 
+					my %newsettings = %defsettings;
+					$newsettings{'model'} = $e->{'model'};
+					$newsettings{'lens'} = defined($e->{'lens'}) ? $e->{'lens'} : '';
+					my $url = "/$event/" . Sesse::pr0n::Common::get_query_string(\%newsettings, \%defsettings);
+
 					# This isn't correct for all languages. Fix if we ever need to care. :-)
 					if ($e->{'num'} == 1) {
-						Sesse::pr0n::Templates::print_template($r, "equipment-item-singular", { eqspec => $eqspec });
+						Sesse::pr0n::Templates::print_template($r, "equipment-item-singular", { eqspec => $eqspec, filterurl => $url });
 					} else {
-						Sesse::pr0n::Templates::print_template($r, "equipment-item", { eqspec => $eqspec, num => $e->{'num'} });
+						Sesse::pr0n::Templates::print_template($r, "equipment-item", { eqspec => $eqspec, num => $e->{'num'}, filterurl => $url });
 					}
 				}
 				Sesse::pr0n::Templates::print_template($r, "equipment-end");