diff options
| author | Timothy Pearson <[email protected]> | 2011-12-15 15:45:05 -0600 |
|---|---|---|
| committer | Timothy Pearson <[email protected]> | 2011-12-15 15:45:05 -0600 |
| commit | d1248617107f659af9d03cf1ef6d783571a0cba8 (patch) | |
| tree | 06ce6d250704f2cddca023e81b63f25b19c9aa48 /knetworkconf/backends/replace.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/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 8114f19..a72e3ef 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 @tqchildren = @$branch; - shift @tqchildren; # Attributes + my @children = @$branch; + shift @children; # Attributes $branch = undef; - while (@tqchildren) + while (@children) { - if ($tqchildren [0] eq $elem) + if ($children [0] eq $elem) { - shift @tqchildren; - $branch = shift @tqchildren; + shift @children; + $branch = shift @children; &gst_xml_model_set_attribute ($branch, "TYPE", "LIST"); last; } - shift @tqchildren; - shift @tqchildren; + shift @children; + shift @children; } 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_tqchildren ($branch); + $options = &gst_xml_model_get_children ($branch); foreach $o (@$options) { |