Option to ignore old CDRs, RT#81480

[freeside.git] / httemplate / search / qual.cgi

diff --git a/httemplate/search/qual.cgi b/httemplate/search/qual.cgi
index 0bb455b..7b718e4 100755 (executable)
--- a/httemplate/search/qual.cgi
+++ b/httemplate/search/qual.cgi
@@ -1,4 +1,4 @@
-<% include( 'elements/search.html',
+<& elements/search.html,
                  'title'         => 'Qualifications',
                 'name_singular' => 'qualification',
                 'query'         => { 'table'     => 'qual',
@@ -21,19 +21,11 @@
                                        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 { shift->cust_or_prospect->name },
+                                     sub { shift->phonenum || '(none - dry loop)' },
                                      sub {
                                        my $self = shift;
-                                       my %location_hash = $self->location;
+                                       my %location_hash= $self->location_hash;
                                        # ugh...
                                        if ( %location_hash ) {
                                            my $loc = new FS::cust_location(\%location_hash); 
@@ -43,7 +35,7 @@
                                      },
                                      sub {
                                          my $self = shift;
-                                         my $export = $self->export;
+                                         my $export = $self->part_export;
                                          my $result = '(manual)';
                                          $result = $export->exportname if $export;
                                          $result;
@@ -59,8 +51,8 @@
                                      '',
                                      '',
                                    ],
-      )
-%>
+      
+&>
 <%init>
 
 die "access denied"