-my $sales = qsearchs('sales', { 'salesnum'=>$salesnum } )
- or die 'unknown salesnum';
+my $sales = FS::sales->by_key($salesnum);
+
+my $title = $sales->salesperson . ' commission';
+
+my %query = ( 'table' => 'sales_pkg_class',
+ 'addl_from' => ' LEFT JOIN pkg_class USING (classnum)',
+ 'hashref' => { 'salesnum' => $salesnum },
+ );
+my $count_query = "SELECT COUNT(*) FROM sales_pkg_class WHERE salesnum = $salesnum";
+
+my $cust_main_sales = $cgi->param('cust_main_sales') eq 'Y' ? 'Y' : '';
+$query{'cust_main_sales'} = $cust_main_sales;
+
+my $sales_link = [ 'cust_bill_pkg.cgi?nottax=1;'.
+ "cust_main_sales=$cust_main_sales;salesnum=$salesnum;" .
+ 'classnum=',
+ sub { shift->classnum || 0 },
+ ];
+
+my $commission_link = [ 'cust_credit.html?'.
+ "cust_main_sales=$cust_main_sales;" .
+ "commission_salesnum=$salesnum;" .
+ 'classnum=',
+ 'classnum'
+ ];