[freeside-commits] freeside/httemplate/search qual.cgi,NONE,1.1

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv4911/httemplate/search

Added Files:
	qual.cgi 
Log Message:
-small svc_dsl UI and flow changes, RT7111
-finish basic qualifications, except prospect support, RT7111


--- NEW FILE: qual.cgi ---
<% include( 'elements/search.html',
                 'title'         => 'Qualifications',
		 'name_singular' => 'qualification',
		 'query'         => { 'table'     => 'qual',
		                      'hashref'   => $hashref,
				      'extra_sql' => $extra_sql,
                                      'order_by'  => 'ORDER BY qualnum DESC',
				    },
		 'count_query'   => "$count_query $extra_sql",
		 'header'        => [ 'Qualification',
		                      'Status',
				      'Customer or Prospect',
				      'Service Telephone Number',
				      'Address',
		                      'Qualified Using',
				      'Vendor Qualification #',
                                    ],
		 'align'         => 'rcccccc',
		 'fields'        => [ 'qualnum',
				      sub {
					my $self = shift;
					$self->status_long;
				      },
				      sub {
					  my $self = shift;
					  my $cust_or_prospect = $self->cust_or_prospect;
					  return $cust_or_prospect->name 
					    if $cust_or_prospect->get('custnum');
					  return "Prospect #".$cust_or_prospect->prospectnum
					    if $cust_or_prospect->get('prospectnum');
					  '';
				      },
				      'phonenum',
				      sub {
					my $self = shift;
					my %location_hash = $self->location;
					# ugh...
					if ( %location_hash ) {
					    my $loc = new FS::cust_location(\%location_hash); 
					    return $loc->location_label;
					}
					'';
				      },
				      sub {
					  my $self = shift;
					  my $export = $self->export;
					  my $result = '(manual)';
					  $result = $export->exportname if $export;
					  $result;
				      },
				      'vendor_qual_id',
				    ],
		 'links'         => [
		                      [ "${p}view/qual.cgi?qualnum=", 'qualnum' ],
				      '',
				      '',
				      '',
				      '',
				      '',
				      '',
				    ],
      )
%>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Qualify service');

my $hashref = {};
my $count_query = 'SELECT COUNT(*) FROM qual';

my $extra_sql = '';
if ( $cgi->param('custnum') && $cgi->param('custnum') =~ /^(\d+)$/ ) {
    $extra_sql = " where custnum = $1 or locationnum in "
	    . " (select locationnum from cust_location where custnum = $1)";
}

</%init>