equal
deleted
inserted
replaced
55 sub unseen { |
55 sub unseen { |
56 my $item = shift; |
56 my $item = shift; |
57 my $delay = shift // $DEFAULT{delay}; |
57 my $delay = shift // $DEFAULT{delay}; |
58 my $db = shift // $DEFAULT{db}; |
58 my $db = shift // $DEFAULT{db}; |
59 my $now = time(); |
59 my $now = time(); |
60 my ($auto) = $item =~ /.*?\/(.+?)$/; |
60 my ($auto) = $item =~ /.*?\/(.+?)$/ # remove the /<autokey> from the item |
|
61 and $item =~ s/\/.*?$//; |
61 my $rc; |
62 my $rc; |
62 |
63 |
63 connectDB(\my %h, $db); |
64 connectDB(\my %h, $db); |
64 |
65 |
65 return 'no' # not unseen, ergo known |
66 return 'no' # not unseen, ergo known |