- my $url = qq!overlib( OLiframeContent('!. popurl(2).
- qq!misc/bulk_change_pkg.cgi?$query', 768, 336, !.
- qq!'bulk_pkg_change_popup' ), CAPTION, 'Change Packages'!.
- qq!, STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, !.
- qq!CLOSECLICK ); return false;!;
-
- if ($FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages')) {
- $choices .= qq!<BR><A HREF="javascript:void(0);"!.
- qq!onClick="$url">Change these packages</A>!;
+ if( $FS::CurrentUser::CurrentUser->access_right('Bulk change customer packages') ) {
+ $text .= '<BR><BR>'.
+ include( '/elements/popup_link.html',
+ 'label' => 'Change these packages',
+ 'action' => "${p}misc/bulk_change_pkg.cgi?$query",
+ 'actionlabel' => 'Change Packages',
+ 'width' => 569,
+ 'height' => 210,
+ );
+ if( $FS::CurrentUser::CurrentUser->access_right('Edit customer package dates') ) {
+ $text .= '<BR>'.
+ include( '/elements/popup_link.html',
+ 'label' => 'Increment next bill date',
+ 'action' => "${p}misc/bulk_pkg_increment_bill.cgi?$query",
+ 'actionlabel' => 'Increment Bill Date',
+ 'width' => 569,
+ 'height' => 210,
+ );
+ }