% if ( $error ) { <& /elements/errorpage-popup.html, $error &> % } else { <& /elements/header-popup.html, 'Saved search deleted' &> % } <%init> my $curuser = $FS::CurrentUser::CurrentUser; my($query) = $cgi->keywords; $query =~ /^(\d+)$/ || die "Illegal searchnum"; my $searchnum = $1; my $search = qsearchs('saved_search', { 'searchnum' => $searchnum, 'usernum' => $curuser->usernum, }); my $error = $search->delete;