Show mod_ATest.pl syntax highlighted
%DSO_MODS = (
'VALIDATE_ID' => sub {
my ($DSObj,$id) = @_;
if($id =~ m/^\s*([[:alpha:]]{2}\d{6}).*/){
## Clean up all XX###### accession numbers
return "$1";
}elsif($id =~ m/^\s*([[:alpha:]]{1}\d{5}).*/){
## Clean up all X##### accession numbers
return "$1";
}else{
$id =~ s/^\s+//;
return $id;
}
}
);
See more files for this project here