1 files changed, 0 insertions, 65 deletions
diff --git a/httemplate/view/qual.cgi b/httemplate/view/qual.cgi
deleted file mode 100644
index 8ab0032..0000000
--- 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>