From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Sun, 16 Mar 2008 19:58:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'. --- httemplate/elements/select-cust-part_pkg.html | 56 --------------------------- 1 file changed, 56 deletions(-) delete mode 100644 httemplate/elements/select-cust-part_pkg.html (limited to 'httemplate/elements/select-cust-part_pkg.html') diff --git a/httemplate/elements/select-cust-part_pkg.html b/httemplate/elements/select-cust-part_pkg.html deleted file mode 100644 index 8b446b95d..000000000 --- a/httemplate/elements/select-cust-part_pkg.html +++ /dev/null @@ -1,56 +0,0 @@ -<%doc> - -Example: - - include( '/elements/select-cust-part_pkg.html', - - #required - 'cust_main' => $cust_main, #or 'custnum' ? - - #strongly recommended (you want your forms to be "sticky" on errors, right?) - 'curr_value' => 'current_value', - - #opt - 'part_pkg' => \@records, - - #select-table.html options - ) - - - -<% include( '/elements/select-table.html', - 'table' => 'part_pkg', - 'name_col' => 'pkg', - 'empty_label' => 'Select package', - 'label_callback' => sub { $_[0]->pkgpart. ': '. - $_[0]->pkg. ' - '. - $_[0]->comment; - }, - %opt, - ) -%> -<%init> - -my( %opt ) = @_; - -my $cust_main = $opt{'cust_main'} - or die "cust_main not specified"; - -$opt{'records'} = delete $opt{'part_pkg'} - if $opt{'part_pkg'}; - -my $extra_sql = $opt{'extra_sql'}. - ' AND 0 < ( SELECT COUNT(*) FROM type_pkgs '. - ' WHERE typenum = '. $cust_main->agent->typenum. - ' AND type_pkgs.pkgpart = part_pkg.pkgpart )'; - -$opt{'records'} ||= [ qsearch({ - 'table' => 'part_pkg', - 'hashref' => { 'disabled' => '', }, - 'extra_sql' => "$extra_sql ORDER BY pkg", - #'extra_sql' => $extra_sql, - #'order_by' => 'ORDER BY pkg', - }) - ]; - - -- cgit v1.2.1