diff options
Diffstat (limited to 'httemplate/view/qual.cgi')
-rw-r--r-- | httemplate/view/qual.cgi | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/httemplate/view/qual.cgi b/httemplate/view/qual.cgi deleted file mode 100644 index 8ab0032ad..000000000 --- a/httemplate/view/qual.cgi +++ /dev/null @@ -1,65 +0,0 @@ -<% include("/elements/header.html","View Qualification") %> - -% if ( $cust_or_prospect->get('custnum') ) { - - <% include( '/elements/small_custview.html', $cust_or_prospect->custnum, '', 1, - "${p}view/cust_main.cgi") %> - -% } elsif ( $cust_or_prospect->get('prospectnum') ) { -% my $prospectnum = $cust_or_prospect->get('prospectnum'); -% my $link = "${p}view/prospect_main.html?$prospectnum"; - <A HREF="<%$link%>">Prospect #<%$prospectnum%></A> -% } - -<BR><BR> - -<B>Qualification #<% $qual->qualnum %></B> -<% ntable("#cccccc", 2) %> -<% include('elements/tr.html', label => 'Status', value => $qual->status_long ) %> -<% include('elements/tr.html', label => 'Service Telephone Number', value => $qual->phonenum ) %> -<% include('elements/tr.html', label => 'Address', value => $location_line ) %> -% if ( $location_kind ) { -<% include('elements/tr.html', label => 'Location Kind', value => $location_kind ) %> -% } if ( $export ) { -<% include('elements/tr.html', label => 'Qualified using', value => $export->exportname ) %> -<% include('elements/tr.html', label => 'Vendor Qualification #', value => $qual->vendor_qual_id ) %> -% } -</TABLE> -<BR><BR> - -% if ( $export ) { -<% $export->qual_html($qual) %> -% } - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Qualify service'); - -my $qualnum; -if ( $cgi->param('qualnum') ) { - $cgi->param('qualnum') =~ /^(\d+)$/ or die "unparsable qualnum"; - $qualnum = $1; -} else { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/ or die "no qualnum"; - $qualnum = $1; -} - -my $qual = qsearchs('qual', { qualnum => $qualnum }) or die "invalid qualnum"; -my $location_line = ''; -my %location_hash = $qual->location; -my $cust_location; -if ( %location_hash ) { - $cust_location = new FS::cust_location(\%location_hash); - $location_line = $cust_location->location_label; -} - -my $location_kind; -$location_kind = "Residential" if $cust_location->get('location_kind') eq 'R'; -$location_kind = "Business" if $cust_location->get('location_kind') eq 'B'; - -my $cust_or_prospect = $qual->cust_or_prospect; -my $export = $qual->part_export; - -</%init> |