1 files changed, 0 insertions, 94 deletions
diff --git a/httemplate/edit/process/rate_time.cgi b/httemplate/edit/process/rate_time.cgi
deleted file mode 100644
index 4fa78ce..0000000
--- a/httemplate/edit/process/rate_time.cgi
+++ /dev/null
@@ -1,94 +0,0 @@
-% if ( $error ) {
-%   $cgi->param('error', $error);
-<% $cgi->redirect(popurl(2). "rate_time.cgi?". $cgi->query_string ) %>
-% } else {
-<% $cgi->redirect(popurl(3). "browse/rate_time.html" ) %>
-% }
-%# dumper_html(\%vars, \%old_ints, {$rate_time->intervals}) %>
-<%init>
-my $error = '';
-die "access denied" 
-    unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
-my $ratetimenum = $cgi->param('ratetimenum');
-my $ratetimename = $cgi->param('ratetimename');
-my $delete = $cgi->param('delete');
-
-my %vars = $cgi->Vars;
-#warn Dumper(\%vars)."\n";
-
-my $rate_time;
-
-my %old_ints;
-if( $ratetimenum ) {
-  # editing
-  $rate_time = FS::rate_time->by_key($ratetimenum);
-
-  # make a list of existing intervals that will be deleted
-  foreach ($rate_time->intervals) {
-    $old_ints{$_->intervalnum} = $_;
-  }
-
-  if ( $delete ) {
-    $error = $rate_time->delete;
-    # intervals will be deleted later
-  }
-  elsif( $ratetimename ne $rate_time->ratetimename ) {
-    # the only case where the rate_time itself must be replaced
-    $rate_time->ratetimename($ratetimename);
-    $error = $rate_time->replace;
-  }
-}
-else { #!$ratetimenum, adding new
-  $rate_time = FS::rate_time->new({ ratetimename => $ratetimename });
-  $error = $rate_time->insert;
-  $ratetimenum = $rate_time->ratetimenum;
-}
-
-my @new_ints;
-if(!$delete and !$error) {
-  foreach my $i (map { /^sd(\d+)$/ } keys(%vars)) {
-    my $stime = l2wtime(@vars{"sd$i", "sh$i", "sm$i", "sa$i"});
-    my $etime = l2wtime(@vars{"ed$i", "eh$i", "em$i", "ea$i"});
-    #warn "$i: $stime - $etime";
-    next if !defined($stime) or !defined($etime) or $etime == $stime;
-    # try to avoid needlessly wiping and replacing intervals every 
-    # time this is edited.
-    if( %old_ints ) {
-      my $this_int = qsearchs('rate_time_interval', 
-                                    { ratetimenum => $ratetimenum,
-                                      stime       => $stime,
-                                      etime       => $etime, } );
-      if($this_int) { 
-        delete $old_ints{$this_int->intervalnum};
-        #warn "not deleting $stime-$etime\n";
-        next; #$i
-      }
-    }
-    push @new_ints, FS::rate_time_interval->new({ ratetimenum => $ratetimenum,
-                                                  stime       => $stime,
-                                                  etime       => $etime, } );
-  }
-}
-if(!$error) {
-  foreach (values(%old_ints)) {
-    $error = $_->delete;
-    #warn "deleting ".$_->stime.' '.$_->etime."\n";
-    last if $error;
-  }
-}
-if(!$error) {
-  # do this last to avoid overlap errors with deleted intervals
-  foreach (@new_ints) {
-    $error = $_->insert;
-    #warn "inserting $stime-$etime\n";
-    last if $error;
-  }
-}
-
-sub l2wtime {
-  my ($d, $h, $m, $a) = @_;
-  $h += 24*$d + 12*$a;
-  $m += 60*$h;
-  return 60*$m
-}
-</%init>