httemplate/misc/delete-saved_search.html

   1 % if ( $error ) {
   2 <& /elements/errorpage-popup.html, $error &>
   3 % } else {
   4 <& /elements/header-popup.html, 'Saved search deleted' &>
   5   <script type="text/javascript">
   6   topreload();
   7   </script>
   8 </body>
   9 </html>
  10 % }
  11 <%init>
  12
  13 my $curuser = $FS::CurrentUser::CurrentUser;
  14
  15 my($query) = $cgi->keywords;
  16 $query =~ /^(\d+)$/ || die "Illegal searchnum";
  17 my $searchnum = $1;
  18
  19 my $search = qsearchs('saved_search', {
  20   'searchnum' => $searchnum,
  21   'usernum'   => $curuser->usernum,
  22 });
  23 my $error = $search->delete;
  24
  25 </%init>