ffzg/recall_notices.pl: added --interval and --dedup

[koha.git] / opac / opac-authorities-home.pl

diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl
index d92166b..3ea2719 100755 (executable)
--- a/opac/opac-authorities-home.pl
+++ b/opac/opac-authorities-home.pl
@@ -18,8 +18,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use URI::Escape;
@@ -124,7 +123,7 @@ if ( $op eq "do_search" ) {
 
     # Opac search history
     if (C4::Context->preference('EnableOpacSearchHistory')) {
-        unless ( $startfrom ) {
+        if ( $startfrom == 1) {
             my $path_info = $query->url(-path_info=>1);
             my $query_cgi_history = $query->url(-query=>1);
             $query_cgi_history =~ s/^$path_info\?//;