diff options
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 { |