loncom/homework/cleanxml/xml_to_loncapa.pm - diff

Return to xml_to_loncapa.pm CVS log

Up to [LON-CAPA] / loncom / homework / cleanxml

-version 1.6, 2016/01/08 20:32:42
+version 1.7, 2016/01/20 00:41:31
  Line 255  sub add_endouttext {
    } else {
      $parent->appendChild($endouttext);
    }
+   # replace spaces afterwards by a \n + indentation
+   my $next = $endouttext->nextSibling;
+   if (defined $next && $next->nodeType == XML_TEXT_NODE) {
+     my $v = $next->nodeValue;
+     if ($v =~ /^ /) {
+       $v =~ s/^ +//;
+       if ($parent->firstChild->nodeType == XML_TEXT_NODE &&
+           $parent->firstChild->nodeValue =~ /^\n +$/) {
+         $v = $parent->firstChild->nodeValue.$v;
+       } else {
+         $v = "\n".$v;
+       }
+       $next->setData($v);
+     }
+   }
  }
  # Convert paragraph children when one contains an inline response into content + <br>