order by last post

[ndwebbie.git] / memberIntel.pl

diff --git a/memberIntel.pl b/memberIntel.pl
index 6aa1e0ebb2771f715c10d0aa417e059c9ff9c061..66e0dcd7b70f00be6e2f8cde8b8a345dfb3be91e 100644 (file)
--- a/memberIntel.pl
+++ b/memberIntel.pl
@@ -19,11 +19,8 @@
 
 use strict;
 use warnings FATAL => 'all';
-no warnings qw(uninitialized);
-use POSIX;
 our $BODY;
 our $DBH;
-our $LOG;
 my $error;
 
 $ND::TEMPLATE->param(TITLE => 'Member Intel');
@@ -31,10 +28,12 @@ $ND::TEMPLATE->param(TITLE => 'Member Intel');
 die "You don't have access" unless isHC();
 
 my $showticks = 'AND i.tick > tick()';
-if (param('show') eq 'all'){
-       $showticks = '';
-}elsif (param('show') =~ /^(\d+)$/){
-       $showticks = "AND (i.tick - i.eta) > (tick() - $1)";
+if (defined param('show')){
+       if (param('show') eq 'all'){
+               $showticks = '';
+       }elsif (param('show') =~ /^(\d+)$/){
+               $showticks = "AND (i.tick - i.eta) > (tick() - $1)";
+       }
 }