Commit 62d32728 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Remove debugging code.

parent 34936626
...@@ -404,22 +404,16 @@ sub SetLinkType($$) ...@@ -404,22 +404,16 @@ sub SetLinkType($$)
return -1 return -1
if (IsVersion0($link)); if (IsVersion0($link));
print STDERR "SetLinkType: 1\n";
my @types = FindNodes("n:link_type", $link)->get_nodelist(); my @types = FindNodes("n:link_type", $link)->get_nodelist();
foreach my $type (@types) { foreach my $type (@types) {
$link->removeChild($type); $link->removeChild($type);
print STDERR "SetLinkType: 2\n";
} }
return 0 return 0
if (!defined($newtype)); if (!defined($newtype));
print STDERR "SetLinkType: 3\n";
my $type = AddElement("link_type", $link); my $type = AddElement("link_type", $link);
return -1 return -1
if (!defined($type)); if (!defined($type));
print STDERR "SetLinkType: 4\n";
SetText("name", $type, $newtype); SetText("name", $type, $newtype);
return 0; return 0;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment