$errmsg = "XML file parsing error: $err";
}
if( $doc ) {
- if( $doc->documentElement->nodeName eq 'GraphML' ) {
+ if( $doc->documentElement->nodeName eq 'graphml' ) {
$type = 'CollateX';
} elsif( $doc->documentElement->nodeName ne 'TEI' ) {
$errmsg = 'Unrecognized XML type ' . $doc->documentElement->nodeName;
if( $c->req->method eq 'POST' ) {
if( $ok eq 'full' ) {
my $dot = $c->request->body_params->{'dot'};
- # Graph::Reader::Dot does not handle bare unicode. We get around this
- # by wrapping all words in double quotes, as long as they aren't already
- # wrapped, and as long as they aren't the initial '(di)?graph .*'.
- # Horrible HACK.
- my @dlines = split( "\n", $dot );
- my $wdot = '';
- foreach( @dlines ) {
- unless( /^(di)?graph/ ) { # Skip the first line
- s/(?<!")\b(\w+)\b(?!")/"$1"/g;
- }
- $wdot .= "$_\n";
- }
- # $dot =~ s/(?<!")\b(?!(?:digraph|stemma)\b)(\w+)\b(?!")/"$1"/g;
- $dot = $wdot;
- print STDERR "$dot\n";
try {
if( $stemmaid eq 'n' ) {
# We are adding a new stemma.