Update of /cvsroot/refdb/refdb/scripts
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1304
Modified Files:
Tag: Release_0_9_5_stable
med2ris.pl.in
Log Message:
handle MedlineDate element
Index: med2ris.pl.in
===================================================================
RCS file: /cvsroot/refdb/refdb/scripts/med2ris.pl.in,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -u -U2 -r1.3 -r1.3.2.1
--- med2ris.pl.in 30 Apr 2003 21:36:51 -0000 1.3
+++ med2ris.pl.in 18 Aug 2004 23:02:19 -0000 1.3.2.1
@@ -638,4 +638,12 @@
$currpubdate{$elname} = $string;
}
+ elsif ($elname eq "MedlineDate") {
+ ## apparently common in older citations, contains plain text date
+ $currpubdate{"Year"} = $string;
+ ## make no attempt to extract anything but a 4-digit year
+ $currpubdate{"Year"} =~ s/.*(\d{4,}).*/$1/;
+ $currpubdate{"Month"} = "";
+ $currpubdate{"Day"} = "";
+ }
elsif ($elname eq "FirstName"
|| $elname eq "ForeName"
|
