+% if ($cgi->param('show_deleted')) {
+<A HREF="<% $p.'view/cust_main.cgi?custnum=' . $cust_main->custnum .
+ ($view ? ";show=$view" : '') . '#notes'
+ %>"><I>(<% mt('Show active attachments') |h %>)</I></A>
+% } elsif($curuser->access_right('View deleted attachments')) {
+<A HREF="<% $p.'view/cust_main.cgi?custnum=' . $cust_main->custnum .
+ ($view ? ";show=$view" : '') . ';show_deleted=1#notes'
+ %>"><I>(<% mt('Show deleted attachments') |h %>)</I></A>
+% }
+% }
+
+<BR>
+% if ( $curuser->access_right('View email logs')
+% and FS::cust_msg->count("custnum = $custnum")) {
+<BR>
+% if (!$cgi->param('order_by')) {
+% my $order_by = '_date';
+% $order_by .= ' DESC' if $curuser->option('history_order') eq 'newest';
+% $cgi->param('order_by', $order_by);
+% }
+<& /search/cust_msg.html,
+ nohtmlheader => 1,
+ html_init => mt('Mail sent to this customer: '),
+&>
+% }
+<%init>
+
+use HTML::Defang;
+
+my $conf = new FS::Conf;
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+my(%opt) = @_;
+
+my $cust_main = $opt{'cust_main'};
+my $custnum = $cust_main->custnum;
+
+my $view = $cgi->param('show') || $curuser->default_customer_view;
+
+</%init>