Files/Grab info from PubMed for eprint
From EPrints
We use it by having a custom html page (not in the eprints pages) that submits directly to a slightly modified eprint creation/submission page perl_lib/EPrints/SubmissionForm.pm:
Here's the code for the html form:
<form action="http://eprintserver/perl/users/submit" method="GET"> <input type="TEXT" name="pubmedid" size=10></input> <input type="hidden" name="_action_new" value="1"/> <BUTTON name="submit" value="submit" type="submit">Submit</BUTTON> </form>
and in the perl_lib/EPrints/SubmissionForm.pm, after the new eprint has been created (around line 426), I inserted:
# import from PubMedID here
$self->{pubmedid}=$self->{session}->param( "pubmedid" );
if($self->{pubmedid}) {
EPrints::Utils::import_pubmed($self->{eprint}, $self->{pubmedid});
$self->{eprint}->commit();
}
Note that the import_pubmed code was originally missing some helper functions. This has been fixed.
