--- cvs-head/script/sman	2000/05/09 11:29:45	20
+++ cvs-head/script/sman	2004/05/24 13:41:28	86
@@ -15,9 +15,11 @@
 
 use Term::ReadLine;
 use Getopt::Long;
-use Fcntl;
+use Fcntl qw(O_RDONLY);
 use Config;
 
+use '/data/wait/lib';
+
 require WAIT::Config;
 require WAIT::Database;
 require WAIT::Query::Base;
@@ -39,7 +41,15 @@
            'table=s',
            'filter=i',
            'max=i',
-           'pager:s') || die "Usage: ...\n";
+           'pager:s') || die "
+Usage: $0
+          [--database database]
+          [--dir      dir     ]
+          [--table    table   ]
+          [--filter   integer ]
+          [--max      integer ]
+          [--pager    pager   ]
+";
 
 my $db = WAIT::Database->open(name      => $OPT{database},
                               mode      => O_RDONLY,
@@ -225,9 +235,9 @@
 # WHAT DOES HE DO HERE? ULI???
 # Re: some indexing scripts did use pathnames relative to the table directory
 # especially the cpanwait script does this. uli
-#  if ($tdid !~ m(^/)) {
-#    $tdid = $tb->dir . '/' . $tdid;
-#  }
+  if ($tdid !~ m(^/)) {
+    $tdid = $tb->dir . '/' . $tdid;
+  }
 
   # The main task of all that follows from here is highlighting. WAIT
   # is designed to make it possible to show the user why a certain