From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- httemplate/elements/tr-select-cust-part_pkg.html | 115 ----------------------- 1 file changed, 115 deletions(-) delete mode 100644 httemplate/elements/tr-select-cust-part_pkg.html (limited to 'httemplate/elements/tr-select-cust-part_pkg.html') diff --git a/httemplate/elements/tr-select-cust-part_pkg.html b/httemplate/elements/tr-select-cust-part_pkg.html deleted file mode 100644 index 69400f16a..000000000 --- a/httemplate/elements/tr-select-cust-part_pkg.html +++ /dev/null @@ -1,115 +0,0 @@ -%if ( scalar(@pkg_class) > 1 && ! $conf->exists('disable-cust-pkg_class') ) { - - <% include('/elements/xmlhttp.html', - 'url' => $p.'misc/cust-part_pkg.cgi', - 'subs' => [ 'get_part_pkg' ], - ) - %> - - - - - Package Class - - <% include('/elements/select-cust-pkg_class.html', - 'curr_value' => $opt{'classnum'}, - 'pkg_class' => \@pkg_class, - 'onchange' => 'classnum_changed', - ) - %> - - - -%} - - - Package - - <% include('/elements/select-cust-part_pkg.html', - 'curr_value' => $opt{'curr_value'}, #$pkgpart - 'classnum' => $opt{'classnum'}, - 'cust_main' => $opt{'cust_main'}, #$cust_main - 'onchange' => 'enable_order_pkg', - ) - %> - - - -<%init> - -my $conf = new FS::Conf; - -my %opt = @_; - -my $pre_label = $opt{'pre_label'} || ''; -$pre_label .= ' ' if length($pre_label) && $pre_label =~ /\S$/; - -my $cust_main = $opt{'cust_main'} - or die "cust_main not specified"; - -#my @pkg_class = sort { $a->classname cmp $b->classname } -# qsearch( 'pkg_class', { 'disabled' => '' } ); - -#"normal" part_pkg agent virtualization (agentnum or type) -my @part_pkg = qsearch({ - 'select' => 'DISTINCT classnum', - 'table' => 'part_pkg', - 'hashref' => { 'disabled' => '' }, - 'extra_sql' => - ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql( 'null'=>1 ). - ' AND '. FS::part_pkg->agent_pkgs_sql( $opt{'cust_main'}->agent ), -}); - -my @pkg_class = - sort { $a->classname cmp $b->classname } #should get a sort order in config - map { $_->pkg_class || new FS::pkg_class { 'classnum' => '', - 'classname' => '(none)' } - } - @part_pkg; - - -- cgit v1.2.1