+++ /dev/null
-<% include( 'elements/browse.html',
- 'title' => "Tax Products $title",
- 'name_singular' => 'tax product',
- 'menubar' => \@menubar,
- 'html_init' => $html_init,
- 'query' => {
- 'table' => 'part_pkg_taxproduct',
- 'hashref' => $hashref,
- 'order_by' => 'ORDER BY description',
- 'extra_sql' => $extra_sql,
- },
- 'count_query' => $count_query,
- 'header' => \@header,
- 'fields' => \@fields,
- 'align' => $align,
- 'links' => \@links,
- 'link_onclicks' => \@link_onclicks,
- )
-%>
-<%once>
-
-my $conf = new FS::Conf;
-
-my $select_link = [ 'javascript:void(0);', sub { ''; } ];
-
-</%once>
-<%init>
-
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-
-my @menubar;
-my $title = '';
-my $onclick = 'cClick';
-
-my $data_vendor = '';
-if ( $cgi->param('data_vendor') =~ /^(\w+)$/ ) {
- $data_vendor = $1;
- $title = "$data_vendor";
-}
-$cgi->delete('data_vendor');
-
-$title = " for $title" if $title;
-
-my $taxproductnum = $1
- if ( $cgi->param('taxproductnum') =~ /^(\d+)$/ );
-my $tax_group = $1
- if ( $cgi->param('tax_group') =~ /^([- \w\(\).\/]+)$/ );
-my $tax_item = $1
- if ( $cgi->param('tax_item') =~ /^([- \w\(\).\/&%]+)$/ );
-my $tax_provider = $1
- if ( $cgi->param('tax_provider') =~ /^([ \w]+)$/ );
-my $tax_customer = $1
- if ( $cgi->param('tax_customer') =~ /^([ \w]+)$/ );
-my $id = $1
- if ( $cgi->param('id') =~ /^([ \w]+)$/ );
-
-$onclick = $1
- if ( $cgi->param('onclick') =~ /^(\w+)$/ );
-$cgi->delete('onclick');
-
-my $remove_onclick = <<EOS
- parent.document.getElementById('$id').value = '';
- parent.document.getElementById('${id}_description').value = '';
- parent.$onclick();
-EOS
- if $id;
-
-my $select_onclick = sub {
- my $row = shift;
- my $taxnum = $row->taxproductnum;
- my $desc = $row->description;
- "parent.document.getElementById('$id').value = $taxnum;".
- "parent.document.getElementById('${id}_description').value = '$desc';".
- "parent.$onclick();";
-}
- if $id;
-
-my $selected_part_pkg_taxproduct;
-if ($taxproductnum) {
- $selected_part_pkg_taxproduct =
- qsearchs('part_pkg_taxproduct', { 'taxproductnum' => $taxproductnum });
-}
-
-my $hashref = {};
-my $extra_sql = '';
-if ( $data_vendor ) {
- $extra_sql .= ' WHERE data_vendor = '. dbh->quote($data_vendor);
-}
-
-if ($tax_group || $tax_item || $tax_customer || $tax_provider) {
- my $compare = "LIKE '". ( $tax_group || "%" ). " : ". ( $tax_item || "%" ). " : ".
- ( $tax_provider || "%" ). " : ". ( $tax_customer || "%" ). "'";
- $compare = "= '$tax_group:$tax_item:$tax_provider:$tax_customer'"
- if ($tax_group && $tax_item && $tax_provider && $tax_customer);
-
- $extra_sql .= ($extra_sql =~ /WHERE/ ? ' AND ' : ' WHERE ').
- "description $compare";
-
-}
-$cgi->delete('tax_group');
-$cgi->delete('tax_item');
-$cgi->delete('tax_provider');
-$cgi->delete('tax_customer');
-
-
-if ( $tax_group || $tax_item || $tax_provider || $tax_customer ) {
- push @menubar, 'View all tax products' => $p.'browse/part_pkg_taxproduct.cgi';
-}
-
-$cgi->param('dummy', 1);
-
-#restore this so pagination works
-$cgi->param('data_vendor', $data_vendor) if $data_vendor;
-$cgi->param('tax_group', $tax_group) if $tax_group;
-$cgi->param('tax_item', $tax_item ) if $tax_item;
-$cgi->param('tax_provider', $tax_provider ) if $tax_provider;
-$cgi->param('tax_customer', $tax_customer ) if $tax_customer;
-$cgi->param('onclick', $onclick ) if $onclick;
-
-my $count_query = "SELECT COUNT(*) FROM part_pkg_taxproduct $extra_sql";
-
-my @header = ( 'Data Vendor', 'Group', 'Item', 'Provider', 'Customer' );
-my @links = ( $select_link,
- $select_link,
- $select_link,
- $select_link,
- $select_link,
- );
-my @link_onclicks = ( $select_onclick,
- $select_onclick,
- $select_onclick,
- $select_onclick,
- $select_onclick,
- );
-my $align = 'lllll';
-
-my @fields = (
- 'data_vendor',
- sub { shift->description =~ /^(.*):.*:.*:.*$/; $1;},
- sub { shift->description =~ /^.*:(.*):.*:.*$/; $1;},
- sub { shift->description =~ /^.*:.*:(.*):.*$/; $1;},
- sub { shift->description =~ /^.*:.*:.*:(.*)$/; $1;},
-);
-
-my $html_init = '';
-
-my $select_link = [ 'javascript:void(0);', sub { ''; } ];
-$html_init = '<TABLE><TR><TD><A HREF="javascript:void(0)" '.
- qq!onClick="$remove_onclick">(remove)</A> !.
- 'Current tax product: </TD><TD>'.
- $selected_part_pkg_taxproduct->description.
- '</TD></TR></TABLE><BR><BR>'
- if $selected_part_pkg_taxproduct;
-
-my $type = $cgi->param('_type');
-$html_init .= qq(
- <FORM>
- <INPUT NAME="_type" TYPE="hidden" VALUE="$type">
- <INPUT NAME="taxproductnum" TYPE="hidden" VALUE="$taxproductnum">
- <INPUT NAME="onclick" TYPE="hidden" VALUE="$onclick">
- <INPUT NAME="id" TYPE="hidden" VALUE="$id">
- <TABLE>
- <TR>
- <TD><SELECT NAME="data_vendor" onChange="this.form.submit()">
-);
-
-my $sql = "SELECT DISTINCT data_vendor FROM part_pkg_taxproduct ORDER BY data_vendor";
-my $dbh = dbh;
-my $sth = $dbh->prepare($sql) or die $dbh->errstr;
-$sth->execute or die $sth->errstr;
-for (['(choose data vendor)'], @{$sth->fetchall_arrayref}) {
- $html_init .= '<OPTION VALUE="'. $_->[0]. '"'.
- ($_->[0] eq $data_vendor ? " SELECTED" : "").
- '">'. $_->[0];
-}
-$html_init .= qq(
- </SELECT>
-
-<!-- cch specific -->
- <TD><SELECT NAME="tax_group" onChange="this.form.submit()">
-);
-
-$sql = "SELECT DISTINCT ".
- qq!substring(description from '#"%#" : % : % : %' for '#'),!.
- qq!substring(description from '#"%#" : % : % : %' for '#')!.
- "FROM part_pkg_taxproduct ORDER BY 1";
-
-$sth = $dbh->prepare($sql) or die $dbh->errstr;
-$sth->execute or die $sth->errstr;
-for (['', '(choose group)'], @{$sth->fetchall_arrayref}) {
- $html_init .= '<OPTION VALUE="'. $_->[0]. '"'.
- ($_->[0] eq $tax_group ? " SELECTED" : "").
- '">'. $_->[1];
-}
-
-$html_init .= qq(
- </SELECT>
-
- <TD><SELECT NAME="tax_item" onChange="this.form.submit()">
-);
-
-$sql = "SELECT DISTINCT ".
- qq!substring(description from '% : #"%#" : %: %' for '#'),!.
- qq!substring(description from '% : #"%#" : %: %' for '#')!.
- "FROM part_pkg_taxproduct ORDER BY 1";
-
-$sth = $dbh->prepare($sql) or die $dbh->errstr;
-$sth->execute or die $sth->errstr;
-for (@{$sth->fetchall_arrayref}) {
- $html_init .= '<OPTION VALUE="'. $_->[0]. '"'.
- ($_->[0] eq $tax_item ? " SELECTED" : "").
- '">'. ($_->[0] ? $_->[1] : '(choose item)');
-}
-
-$html_init .= qq(
- </SELECT>
-
- <TD><SELECT NAME="tax_provider" onChange="this.form.submit()">
-);
-
-$sql = "SELECT DISTINCT ".
- qq!substring(description from '% : % : #"%#" : %' for '#'),!.
- qq!substring(description from '% : % : #"%#" : %' for '#')!.
- "FROM part_pkg_taxproduct ORDER BY 1";
-
-$sth = $dbh->prepare($sql) or die $dbh->errstr;
-$sth->execute or die $sth->errstr;
-for (@{$sth->fetchall_arrayref}) {
- $html_init .= '<OPTION VALUE="'. $_->[0]. '"'.
- ($_->[0] eq $tax_provider ? " SELECTED" : "").
- '">'. ($_->[0] ? $_->[1] : '(choose provider type)');
-}
-
-$html_init .= qq(
- </SELECT>
-
- <TD><SELECT NAME="tax_customer" onChange="this.form.submit()">
-);
-
-$sql = "SELECT DISTINCT ".
- qq!substring(description from '% : % : % : #"%#"' for '#'),!.
- qq!substring(description from '% : % : % : #"%#"' for '#')!.
- "FROM part_pkg_taxproduct ORDER BY 1";
-
-$sth = $dbh->prepare($sql) or die $dbh->errstr;
-$sth->execute or die $sth->errstr;
-for (@{$sth->fetchall_arrayref}) {
- $html_init .= '<OPTION VALUE="'. $_->[0]. '"'.
- ($_->[0] eq $tax_customer ? " SELECTED" : "").
- '">'. ($_->[0] ? $_->[1] : '(choose customer type)');
-}
-
-$html_init .= qq(
- </SELECT>
-
- </TR>
- </TABLE>
- </FORM>
-
-);
-
-</%init>
projects / freeside.git / blobdiff