Ties need to add a notation element, too

pae2xml.pl

@@ -494,7 +494,12 @@ sub parse_note {
 ';
   }
 
+  $tienotation = "";
   if ($tie eq "+") {
+    if ($TIE) {
+      $tienotation = "					<tied type=\"stop\"/>\n";
+    }
+    $tienotation .= "					<tied type=\"start\"/>\n";
     if (!$TIE) {
       $TIE = 1;
       print OUT '				<tie type="start"/>
@@ -504,23 +509,29 @@ sub parse_note {
     if ($TIE) {
       print OUT '				<tie type="stop"/>
 ';
+      $tienotation = "					<tied type=\"stop\"/>\n";
       $TIE = 0;
     }
   }
 
   print OUT $addition;
 
-  my $notationbracket = $fermata || ($trill eq "t") || ($notation ne "");
+  my $notationbracket = $fermata || $tienotation || ($trill eq "t") || ($notation ne "");
   if ($notationbracket) {
     print OUT "				<notations>\n";
   }
-  if ($fermata) { print OUT '
+  if ($tienotation) {
+    print OUT $tienotation;
+  }
+  if ($fermata) {
+    print OUT '
 					<fermata type="upright"/>'."\n"; }
-  if ($trill eq "t") { print OUT '					<ornaments>
+  if ($trill eq "t") {
+    print OUT '					<ornaments>
 						<trill-mark/>
 					</ornaments>
 ';
-		     }
+  }
   if ($notation ne "") {
     print OUT "                         $notation\n";
   }

sample_files/Ties.pae

+Test Composer
+Test case for Ties
+1.1.1: S Ties
+plain&easy: %G-2@c$bB '4C+C+CD/8DD+DC2A/
+
+Test Library
+00000000
\ No newline at end of file