diff options
Diffstat (limited to 'knetworkconf/backends/parse.pl.in')
| -rw-r--r-- | knetworkconf/backends/parse.pl.in | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/knetworkconf/backends/parse.pl.in b/knetworkconf/backends/parse.pl.in index 25c9373..7064536 100644 --- a/knetworkconf/backends/parse.pl.in +++ b/knetworkconf/backends/parse.pl.in @@ -1437,7 +1437,7 @@ sub gst_parse_xml my ($model, $branch); ($model) = &gst_xml_model_scan ($file); - $branch = &gst_xml_model_find ($model, $varpath); + $branch = &gst_xml_model_tqfind ($model, $varpath); if ($branch) { @@ -1451,12 +1451,12 @@ sub gst_parse_xml sub gst_parse_xml_child_names { my ($file, $varpath) = @_; - my ($model, $branch, @children); + my ($model, $branch, @tqchildren); ($model) = &gst_xml_model_scan ($file); - $branch = &gst_xml_model_find ($model, $varpath); + $branch = &gst_xml_model_tqfind ($model, $varpath); - if (!$branch) { return @children; } + if (!$branch) { return @tqchildren; } 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 @children, shift @list; + push @tqchildren, shift @list; } else { @@ -1475,7 +1475,7 @@ sub gst_parse_xml_child_names shift @list; } - return @children; + return @tqchildren; } sub gst_parse_alchemist @@ -1500,16 +1500,16 @@ sub gst_parse_alchemist_print_option my ($varpath, $model, $branch, $fd, $options, $option); ($model) = &gst_xml_model_scan ($file); - $branch = &gst_xml_model_find ($model, "/adm_context/datatree/printconf/print_queues/" . $printer . + $branch = &gst_xml_model_tqfind ($model, "/adm_context/datatree/printconf/print_queues/" . $printer . "/filter_data/foomatic_defaults"); return undef if (!$branch); - $options = &gst_xml_model_get_children ($branch); + $options = &gst_xml_model_get_tqchildren ($branch); foreach $o (@$options) { - my $opt_node = &gst_xml_model_find ($o, "name"); + my $opt_node = &gst_xml_model_tqfind ($o, "name"); next if (!$opt_node); if (&gst_xml_model_get_attribute ($opt_node, "VALUE") eq $name) @@ -1521,7 +1521,7 @@ sub gst_parse_alchemist_print_option return undef if (!$option); - my $node = &gst_xml_model_find ($option, "default"); + my $node = &gst_xml_model_tqfind ($option, "default"); return undef if (!$node); return &gst_xml_model_get_attribute ($node, "VALUE"); |