Changeset 4792 for trunk/gsdl/perllib/plugins/BibTexPlug.pm

Timestamp:

2003-06-25T09:45:41+12:00 (21 years ago)

Author:

davidb

Message:

Modified so BibTeX records with no key processed correctly.

File:

• trunk/gsdl/perllib/plugins/BibTexPlug.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -129 +129 @@
          'keywords', 'Keywords',
          'abstract', 'Abstract',
-         'copyright', 'Copyright'
+         'copyright', 'Copyright',
+         'note', 'Note',
 );
 
     # Metadata fields 
     my %metadata;
-    my ($EntryType, $EntryID, $Creator, $Keywords, $text);
+    my ($EntryType, $Creator, $Keywords, $text);
 
     my $verbosity = $self->{'verbosity'};
@@ -142 +143 @@
     # append line to previous if it doesn't start with "  <key> = "
 
-    my @input_lines=split('\n', $$textref);
+    my @input_lines=split(/\r?\n/, $$textref);
     my @all_lines;
     my $entry_line=shift @input_lines;
@@ -161 +162 @@
     push(@all_lines, "}");
 
-
-
     # Read and process each line in the bib file.
     my ($entryname, $name, $value, $line);
@@ -174 +173 @@
     $text .= "$line\n";
 
+
     print "Processing line = $line \n" if $verbosity>=4;
 
     # The first line is special, it contains the reference type and OID
-    if ($line =~ /\@(\w+)\W*\{\W*([\*\.\w\d:-]+)\W*$/) {
+    if ($line =~ /\@(\w+)\W*\{\W*([\*\.\w\d:-]*)\W*$/) {
         $EntryType = $1;
-        $EntryID = $2;
+        my $EntryID = (defined $2) ? $2 : "default";
         print "** $EntryType - \"$EntryID\" \n"
         if ($verbosity >= 4);
-        $self->{'key'} = $EntryID;
+
         next;
     }
@@ -775 +775 @@
     
     if ( $self->{'key'} eq "default") {
-    $doc_obj->set_OID();
+    $doc_obj->set_OID("$id\_$segment_number");
     } else {
     $doc_obj->set_OID($self->{'key'});
@@ -782 +782 @@
 
 1;
+
+