[Refdb-cvs] CVS: refdb/scripts med2ris.pl.in,1.3,1.3.2.1

[Markus H. <mho...@us...>]

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"