-print qq! | <A HREF="${p}misc/delete-customer.cgi?$custnum">!.
- 'Delete this customer</A>'
- if $conf->exists('deletecustomers');
+<% if ( $curuser->access_right('Cancel customer')
+ && $cust_main->ncancelled_pkgs
+ ) {
+%>
+ <A HREF="javascript:void(0);" onClick="overlib(confirm_cancel, CAPTION, 'Confirm cancellation', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' ); return false; ">Cancel this customer</A> |
+<% } %>