- my $choices = '';
-
- 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>!;
- }