-sub pkg_popup_link {
- my($action, $label, $actionlabel, $color, $cust_pkg) = @_;
- $action .= '&pkgnum='. $cust_pkg->pkgnum;
- $actionlabel .= ' package '. $cust_pkg->pkgnum;
- popup_link($action, $label, $actionlabel, $color, 768);
-}
-
-sub svc_popup_link {
- my($action, $label, $actionlabel, $color, $cust_svc) = @_;
- $action .= '?svcnum='. $cust_svc->svcnum;
- $actionlabel .= ' service '. $cust_svc->svcnum;
- popup_link($action, $label, $actionlabel, $color);
-}
-
-sub cust_popup_link {
- my($action, $label, $actionlabel, $color, $cust_main) = @_;
- $action .= '?'. $cust_main->custnum;
- popup_link($action, $label, $actionlabel, $color);
-}
-
-sub popup_link {
- my($action, $label, $actionlabel, $color, $width) = @_;
- $color ||= '#333399';
- $width ||= 540;
- qq!<A HREF="javascript:void(0);" onClick="overlib( OLiframeContent('$p$action', $width, 336, 'pkg_or_svc_action_popup' ), CAPTION, '$actionlabel', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '$color', CGCOLOR, '$color' ); return false;">$label</A>!;
-}
-