diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-12-15 15:45:05 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-12-15 15:45:05 -0600 |
| commit | d1248617107f659af9d03cf1ef6d783571a0cba8 (patch) | |
| tree | 06ce6d250704f2cddca023e81b63f25b19c9aa48 /knetworkconf/backends/parse.pl.in | |
| parent | 72fee035e994371467475e062b46287d68fa3f57 (diff) | |
| download | tdeadmin-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.in | 10 |
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) { |