Merge pull request #157 from gluneau/patient-name_vs_DICOM_header_and…

…more Allows Dicom PatientName to have extra text after the visit label
aces · Oct 14, 2016 · ab47dd1 · ab47dd1
2 parents eb0910e + 9848ab3
commit ab47dd1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/uploadNeuroDB/NeuroDB/ImagingUpload.pm b/uploadNeuroDB/NeuroDB/ImagingUpload.pm
@@ -360,9 +360,9 @@ sub PatientNameMatch {
         exit 1;
     }
     my ($l,$pname,$t) = split /\[(.*?)\]/, $patient_name_string;
-    if ($pname ne  $this->{'pname'}) {
+    if ($pname !~ /^$this->{'pname'}/) {
         my $message = "\nThe patient-name $pname read ".
-                      "from the DICOM header does not match " .
+                      "from the DICOM header does not start with " .
         	      $this->{'pname'} . 
                       " from the mri_upload table\n";
     	$this->spool($message, 'Y', $notify_notsummary);