X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export.pm;h=9af00174d3b583b281c40177051279ad270315c1;hp=52c8213a02ee04c32708f3e818df56f3dac38131;hb=19aebb0a743cf80a620f34fc7c6ad71f79764265;hpb=340906d63346ccf1cffe138e58feb5244e1aa0a2 diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index 52c8213a0..9af00174d 100644 --- a/FS/FS/part_export.pm +++ b/FS/FS/part_export.pm @@ -494,25 +494,19 @@ sub export_info { my $r = { map { %{$exports{$_}} } keys %exports }; } -=item exporttype2svcdb EXPORTTYPE - -Returns the applicable I for an I. - -=cut - -# This subroutine should be modified or removed. In its present form, it -# imposes the arbitrary restriction that no export type can be associated -# with more than one svcdb. The only place it's used is in edit/part_svc.cgi -# to generate the list of allowed exports, which can be done more cleanly by -# export_info anyway. - -sub exporttype2svcdb { - my $exporttype = $_[0]; - foreach my $svcdb ( keys %exports ) { - return $svcdb if grep { $exporttype eq $_ } keys %{$exports{$svcdb}}; - } - ''; -} +#=item exporttype2svcdb EXPORTTYPE +# +#Returns the applicable I for an I. +# +#=cut +# +#sub exporttype2svcdb { +# my $exporttype = $_[0]; +# foreach my $svcdb ( keys %exports ) { +# return $svcdb if grep { $exporttype eq $_ } keys %{$exports{$svcdb}}; +# } +# ''; +#} tie my %sysvshell_options, 'Tie::IxHash', 'crypt' => { label=>'Password encryption',