diff options
author | Yorhel <git@yorhel.nl> | 2019-10-14 18:24:06 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2019-10-14 18:24:06 +0200 |
commit | b7c525893bdd374d067e34d307bf0bc32df73f97 (patch) | |
tree | 1a3609d44bc3746fd8dfd66e73e0bd360255613d /lib/VNWeb/Misc/History.pm | |
parent | b539ea56c2406a110ca6666e9f42c3b4af8e1a10 (diff) |
v2rw: Convert user listing
Diffstat (limited to 'lib/VNWeb/Misc/History.pm')
-rw-r--r-- | lib/VNWeb/Misc/History.pm | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/lib/VNWeb/Misc/History.pm b/lib/VNWeb/Misc/History.pm index 5251d4ea..c96d07cc 100644 --- a/lib/VNWeb/Misc/History.pm +++ b/lib/VNWeb/Misc/History.pm @@ -51,15 +51,6 @@ sub fetch { } -sub _filturl { - my($filt) = @_; - return '?'.join '&', map { - my $k = $_; - ref $filt->{$k} ? map "$k=$_", sort $filt->{$k}->@* : "$k=$filt->{$k}" - } sort keys %$filt; -} - - # Also used by User::Page. # %opt: nopage => 1/0, results => $num sub tablebox_ { @@ -67,7 +58,7 @@ sub tablebox_ { my($lst, $np) = fetch $type, $id, $filt, \%opt; - my sub url { _filturl {%$filt, p => $_} } + my sub url { '?'.query_encode %$filt, p => $_ } paginate_ \&url, $filt->{p}, $np, 't' unless $opt{nopage}; div_ class => 'mainbox browse history', sub { |