summaryrefslogtreecommitdiffstats
path: root/knetworkconf/backends/parse.pl.in
diff options
context:
space:
mode:
authorTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-12-15 15:45:05 -0600
committerTimothy Pearson <kb9vqf@pearsoncomputing.net>2011-12-15 15:45:05 -0600
commitd1248617107f659af9d03cf1ef6d783571a0cba8 (patch)
tree06ce6d250704f2cddca023e81b63f25b19c9aa48 /knetworkconf/backends/parse.pl.in
parent72fee035e994371467475e062b46287d68fa3f57 (diff)
downloadtdeadmin-d1248617107f659af9d03cf1ef6d783571a0cba8.tar.gz
tdeadmin-d1248617107f659af9d03cf1ef6d783571a0cba8.zip
Rename a number of old tq methods that are no longer tq specific
Diffstat (limited to 'knetworkconf/backends/parse.pl.in')
-rw-r--r--knetworkconf/backends/parse.pl.in10
1 files changed, 5 insertions, 5 deletions
diff --git a/knetworkconf/backends/parse.pl.in b/knetworkconf/backends/parse.pl.in
index 0a02012..25c9373 100644
--- a/knetworkconf/backends/parse.pl.in
+++ b/knetworkconf/backends/parse.pl.in
@@ -1451,12 +1451,12 @@ sub gst_parse_xml
sub gst_parse_xml_child_names
{
my ($file, $varpath) = @_;
- my ($model, $branch, @tqchildren);
+ my ($model, $branch, @children);
($model) = &gst_xml_model_scan ($file);
$branch = &gst_xml_model_find ($model, $varpath);
- if (!$branch) { return @tqchildren; }
+ if (!$branch) { return @children; }
my @list = @$branch;
shift @list; # Attributes
@@ -1465,7 +1465,7 @@ sub gst_parse_xml_child_names
{
if ($list [0] ne "__unparsed__" && $list [0] ne "0")
{
- push @tqchildren, shift @list;
+ push @children, shift @list;
}
else
{
@@ -1475,7 +1475,7 @@ sub gst_parse_xml_child_names
shift @list;
}
- return @tqchildren;
+ return @children;
}
sub gst_parse_alchemist
@@ -1505,7 +1505,7 @@ sub gst_parse_alchemist_print_option
return undef if (!$branch);
- $options = &gst_xml_model_get_tqchildren ($branch);
+ $options = &gst_xml_model_get_children ($branch);
foreach $o (@$options)
{