% if (!$iopt{noframe}) { % # then start the block here, and assign a suitable ID (cust_pkgX_block) % } % if ( $cust_pkg->get('changed_from_pkg') ) { <& hidden.html, $cust_pkg->get('changed_from_pkg'), %iopt, 'next_pkg' => $cust_pkg, 'noframe' => 1 &> % } % if ( !$iopt{noframe} ) { % } <%init> my $cust_pkg = shift; my $part_pkg = $cust_pkg->part_pkg; my %iopt = @_; my $next = delete($iopt{'next_pkg'}); my $curuser = $FS::CurrentUser::CurrentUser; my $pkgnum = $curuser->option('show_pkgnum') ? $cust_pkg->pkgnum.': ' : ''; my $id = "cust_pkg".$cust_pkg->pkgnum; my $pkgpart_change = ($next->pkgpart != $cust_pkg->pkgpart); my $location_change = ($next->locationnum != $cust_pkg->locationnum); my $both_change = $pkgpart_change && $location_change; my $onclick = include('/elements/popup_link_onclick.html', 'action' => $fsurl.'view/cust_pkg-popup.html?' . $cust_pkg->pkgnum, 'actionlabel' => 'Package #'.$cust_pkg->pkgnum, 'width' => '1000', 'height' => '310', 'color' => $cust_pkg->statuscolor, ); my $popup_link = qq();