httemplate/edit/process/cdr_type.cgi

   1 % if ( $error ) {
   2 %   $cgi->param('error', $error);
   3 <% $cgi->redirect(popurl(2). "cdr_type.cgi?". $cgi->query_string ) %>
   4 % } else {
   5 <% $cgi->redirect(popurl(2). "cdr_type.cgi" ) %>
   6 % }
   7 <%init>
   8 my $error = '';
   9 die "access denied"
  10     unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  11
  12 my %vars = $cgi->Vars;
  13
  14 my %old = map { $_->cdrtypenum => $_ } qsearch('cdr_type', {});
  15
  16 my @new;
  17 foreach ( keys(%vars) ) {
  18   my ($i) = /^cdrtypenum(\d+)$/ or next;
  19   my $cdrtypenum = $vars{"cdrtypenum$i"} or next;
  20   my $cdrtypename = $vars{"cdrtypename$i"} or next;
  21   # don't delete unchanged records
  22   if ( $old{$i} and $old{$i}->cdrtypename eq $cdrtypename ) {
  23     delete $old{$i};
  24     next;
  25   }
  26   push @new, FS::cdr_type->new({
  27     'cdrtypenum'  => $cdrtypenum,
  28     'cdrtypename' => $cdrtypename,
  29   });
  30 }
  31 foreach (values(%old)) {
  32   $error = $_->delete;
  33   last if $error;
  34 }
  35 if(!$error) {
  36   foreach (@new) {
  37     $error = $_->insert;
  38     last if $error;
  39   }
  40 }
  41 </%init>