unsuspend fees, #6587

[freeside.git] / httemplate / browse / reason.html

diff --git a/httemplate/browse/reason.html b/httemplate/browse/reason.html
index 5b95353..14e97bf 100644 (file)
--- a/httemplate/browse/reason.html
+++ b/httemplate/browse/reason.html
@@ -1,9 +1,7 @@
 <% include( 'elements/browse.html',
                  'title'       => ucfirst($classname) . ' Reasons',
-                 'menubar'     => [ # 'Main menu' => $p,
-                                    ucfirst($classname) . ' Reason Types' =>
-                                      $p.'browse/reason_type.html?class='.
-                                      $class,
+                 'menubar'     => [ ucfirst($classname).' Reason Types' =>
+                                     $p."browse/reason_type.html?class=$class"
                                   ],
                  'html_init'   => $html_init,
                  'name'        => $classname . ' reasons',
@@ -19,14 +17,17 @@
                  'header'      => [ '#',
                                     ucfirst($classname) . ' Reason Type',
                                     ucfirst($classname) . ' Reason',
+                                    ($class eq 'S' ?  'Unsuspension Fee' : ()),
                                   ],
                  'fields'      => [ 'reasonnum',
                                     sub { shift->reasontype->type },
                                     'reason',
+                                    $unsuspend_pkg_comment,
                                   ],
                  'links'       => [ $link,
                                     $link,
                                     '',
+                                    $unsuspend_pkg_link,
                                   ],
              )
 %>
@@ -52,4 +53,18 @@ my $count_query = 'SELECT COUNT(*) FROM reason LEFT JOIN reason_type on ' .
 
 my $link = [ $p."edit/reason.html?class=$class&reasonnum=", 'reasonnum' ];
 
+my ($unsuspend_pkg_comment, $unsuspend_pkg_link);
+if ( $class eq 'S' ) {
+  $unsuspend_pkg_comment = sub {
+    my $pkgpart = shift->unsuspend_pkgpart or return '';
+    my $part_pkg = FS::part_pkg->by_key($pkgpart) or return '';
+    $part_pkg->pkg_comment;
+  };
+
+  my $unsuspend_pkg_link = sub {
+    my $pkgpart = shift->unsuspend_pkgpart or return '';
+    [ $p."edit/part_pkg.cgi?", $pkgpart ];
+  };
+}
+
 </%init>