better mapping to Aleph search syntax

diff --git a/Aleph.pm b/Aleph.pm
index 8dda877..2c5641c 100644 (file)
--- a/Aleph.pm
+++ b/Aleph.pm
@@ -51,12 +51,12 @@ sub diag {
 
 sub usemap {{
        4               => 'WTI',
-       1003    => 'WTI',
-       16              => 'CU',
-       21              => 'SU',
-#      12              => '',
+       1003    => 'AUT',
+       16              => 'DDC',
+       21              => 'SUB',
+       12              => 'LCN',
 #      1007    => '',
-#      1016    => '',
+       1016    => 'WRD',
 }};
 
 our $session_id;