diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-12-16 09:58:15 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2011-12-16 09:58:15 -0600 |
| commit | 377fa3a2775cdb3194315bb83e21744dc7c97bbf (patch) | |
| tree | b6f515484589d67271adb168a1ead39f1c98493d /knetworkconf/backends/replace.pl.in | |
| parent | d1248617107f659af9d03cf1ef6d783571a0cba8 (diff) | |
| download | tdeadmin-377fa3a2775cdb3194315bb83e21744dc7c97bbf.tar.gz tdeadmin-377fa3a2775cdb3194315bb83e21744dc7c97bbf.zip | |
Revert "Rename a number of old tq methods that are no longer tq specific"
This reverts commit d1248617107f659af9d03cf1ef6d783571a0cba8.
Diffstat (limited to 'knetworkconf/backends/replace.pl.in')
| -rw-r--r-- | knetworkconf/backends/replace.pl.in | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/knetworkconf/backends/replace.pl.in b/knetworkconf/backends/replace.pl.in index a72e3ef..8114f19 100644 --- a/knetworkconf/backends/replace.pl.in +++ b/knetworkconf/backends/replace.pl.in @@ -1457,22 +1457,22 @@ sub gst_replace_alchemist_ensure_list_types for $elem (@path) { next if ($elem eq ""); - my @children = @$branch; - shift @children; # Attributes + my @tqchildren = @$branch; + shift @tqchildren; # Attributes $branch = undef; - while (@children) + while (@tqchildren) { - if ($children [0] eq $elem) + if ($tqchildren [0] eq $elem) { - shift @children; - $branch = shift @children; + shift @tqchildren; + $branch = shift @tqchildren; &gst_xml_model_set_attribute ($branch, "TYPE", "LIST"); last; } - shift @children; - shift @children; + shift @tqchildren; + shift @tqchildren; } last if ($branch == undef); @@ -1532,7 +1532,7 @@ sub gst_replace_alchemist_print_option # See if option is already defined. - $options = &gst_xml_model_get_children ($branch); + $options = &gst_xml_model_get_tqchildren ($branch); foreach $o (@$options) { |