1
0
mirror of https://github.com/samba-team/samba.git synced 2025-01-08 21:18:16 +03:00

Merge unused function.

This commit is contained in:
Jelmer Vernooij 2008-02-16 19:43:10 +01:00
parent 0efa80f30b
commit d3725224cf

View File

@ -88,14 +88,12 @@ sub array2oneperline($)
return $output; return $output;
} }
sub _prepare_list_ex($$$$$) sub _prepare_list($$$)
{ {
my ($self,$ctx,$var,$pre,$post) = @_; my ($self,$ctx,$var) = @_;
my @tmparr = (); my @tmparr = ();
push(@tmparr, $pre) if defined($pre);
push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var}); push(@tmparr, @{$ctx->{$var}}) if defined($ctx->{$var});
push(@tmparr, $post) if defined($post);
my $tmplist = array2oneperline(\@tmparr); my $tmplist = array2oneperline(\@tmparr);
return if ($tmplist eq ""); return if ($tmplist eq "");
@ -103,13 +101,6 @@ sub _prepare_list_ex($$$$$)
$self->output("$ctx->{NAME}_$var =$tmplist\n"); $self->output("$ctx->{NAME}_$var =$tmplist\n");
} }
sub _prepare_list($$$)
{
my ($self,$ctx,$var) = @_;
$self->_prepare_list_ex($ctx, $var, undef, undef);
}
sub Integrated($$) sub Integrated($$)
{ {
my ($self,$ctx) = @_; my ($self,$ctx) = @_;