--- cvs-head/script/index_ora	2001/12/31 14:07:22	55
+++ cvs-head/script/index_ora	2002/01/23 12:22:54	65
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
 #                              -*- Mode: Perl -*- 
 # $Basename$
-# $Revision: 1.1 $
+# $Revision: 1.4 $
 # Author          : Ulrich Pfeifer
 # Created On      : Mon Dec 31 13:57:11 2001
 # Last Modified By: Ulrich Pfeifer
-# Last Modified On: Mon Dec 31 14:37:43 2001
+# Last Modified On: Fri Jan  4 15:59:20 2002
 # Language        : CPerl
 # 
 # (C) Copyright 2001, UUNET Deutschland GmbH, Germany
@@ -79,15 +79,19 @@
   or die "Couldn't tie to file: $!\n";
 
 my $tb = $db->create_table(name     => $OPT{table},
-                           attr     => ['text', 'author', 'title',
+                           attr     => ['author', 'isbn', 'title',
                                         'headline', 'docid'],
                            layout   => $layout,
                            access   => $access,
                            invindex =>
                            [
                             'title'  => $stem,
+                            'about'  => $stem,
                             'text'   => $text,
                             'author' => $text,
+                            'colophon' => $text,
+                            'author' => $sound,
+                            'isbn'   => $text,
                            ]
                           );
 die "Couldn't create table $OPT{table}: $@\n" unless $tb;
@@ -97,7 +101,7 @@
   my $record   = $layout->split($value);
   my $headline = $record->{title};
   $headline =~ s/\s+/ /sg;
-  printf "%s\n", substr($headline,0,80);
+  printf "%15s %s\n", $record->{isbn}, substr($headline,0,60);
   $tb->insert('docid'  => $did,
               headline => $headline,
               %{$record});