<% # use strict; use vars qw ( $cgi @cust_pkg $sortby $query ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header eidiot popurl); use FS::cust_pkg; use FS::pkg_svc; use FS::cust_svc; use FS::cust_main; $cgi = new CGI; &cgisuidsetup($cgi); ($query) = $cgi->keywords; #this tree is a little bit redundant if ( $query eq 'pkgnum' ) { $sortby=\*pkgnum_sort; @cust_pkg=qsearch('cust_pkg',{}); } elsif ( $query eq 'APKG_pkgnum' ) { $sortby=\*pkgnum_sort; @cust_pkg=(); #perhaps this should go in cust_pkg as a qsearch-like constructor? my($cust_pkg); foreach $cust_pkg (qsearch('cust_pkg',{})) { my($flag)=0; my($pkg_svc); PKG_SVC: foreach $pkg_svc (qsearch('pkg_svc',{ 'pkgpart' => $cust_pkg->pkgpart })) { if ( $pkg_svc->quantity > scalar(qsearch('cust_svc',{ 'pkgnum' => $cust_pkg->pkgnum, 'svcpart' => $pkg_svc->svcpart, })) ) { $flag=1; last PKG_SVC; } } push @cust_pkg, $cust_pkg if $flag; } } else { die "Empty QUERY_STRING!"; } if ( scalar(@cust_pkg) == 1 ) { my($pkgnum)=$cust_pkg[0]->pkgnum; print $cgi->redirect(popurl(2). "view/cust_pkg.cgi?$pkgnum"); exit; } elsif ( scalar(@cust_pkg) == 0 ) { #error eidiot("No packages found"); } else { my($total)=scalar(@cust_pkg); print $cgi->header( '-expires' => 'now' ), header('Package Search Results',''), < Package # Customer # Contact name Company END my(%saw,$cust_pkg); foreach $cust_pkg ( sort $sortby grep(!$saw{$_->pkgnum}++, @cust_pkg) ) { my($cust_main)=qsearchs('cust_main',{'custnum'=>$cust_pkg->custnum}); my($pkgnum,$custnum,$name,$company)=( $cust_pkg->pkgnum, $cust_pkg->custnum, $cust_main ? $cust_main->last. ', '. $cust_main->first : '', $cust_main ? $cust_main->company : '', ); my $p = popurl(2); print < $pkgnum END if ( $cust_main ) { print <$custnum $name $company END } else { print <WARNING: couldn't find cust_main.custnum $custnum (cust_pkg.pkgnum $pkgnum) END } } print < END } sub pkgnum_sort { $a->getfield('pkgnum') <=> $b->getfield('pkgnum'); } %>