<% include( 'elements/edit.html',
              'name'   => 'Billing event definition',
              'table'  => 'part_event',
              'fields' => [
                            'event',
                            { field   => 'eventtable',
                              type    => 'select',
                              options => [ FS::part_event->eventtables ],
                              labels  => $eventtable_labels,
                              onchange => 'eventtable_changed',
                            },
                            { field   => 'agentnum',
                              type    => 'select-agent',
                              disable_empty => $disable_empty_agent,
                            },
                            { field   => 'check_freq',
                              type    => 'select',
                              options => [ '1d', '1m' ],
                              labels  => $check_freq_labels,
                            },
                            { field   => 'disabled',
                              type    => 'checkbox',
                              value   => 'Y',
                            },
                            { type    => 'title',
                              value   => 'Event Conditions',
                            },
                            { field   => 'conditionname',
                              type    => 'selectlayers',
                              options => [ keys %all_conditions ],
                              labels  => \%condition_labels,
                              onchange => 'condition_changed(what);',
                              layer_fields => \%condition_fields,
                              layer_values_callback => $condition_layer_values,
                              html_between       => n_a('action'),
                              m2name_table       => 'part_event_condition',
                              m2name_namecol     => 'conditionname',
                              m2name_label       => 'Condition',
                              m2name_new_default => \@implicit_condition_objs,
                              m2name_error_callback  =>
                                $condition_error_callback,
                              m2name_remove_warnings =>
                                \%condition_remove_warnings,
                              m2name_new_js      => 'condition_repop',
                              m2name_remove_js   => 'condition_add',
                            },
                            { type    => 'title',
                              value   => 'Event Action',
                            },
                            { field   => 'action',
                              type     => 'selectlayers',
                              options  => [ keys %all_actions ],
                              labels   => \%action_labels,
                              onchange => 'action_changed(what);',
                              layer_fields => \%action_fields,
                              layer_values_callback => $action_layer_values,
                              html_between => n_a('action'),
                            },

                          ],
              'labels' => {
                            'eventpart'  => 'Event',
                            'event'      => 'Event name',
                            'eventtable' => 'Type',
                            'agentnum'   => 'Agent',
                            'check_freq' => 'Check frequency',
                            'disabled'   => 'Disable event',

                            'conditionname' => 'Add&nbsp;new&nbsp;condition',
                            #'weight',
                            'action'     => 'Action',
                          },
              'viewall_dir' => 'browse',
              'new_callback' => sub { #start empty for new events only
                my( $cgi, $object, $fields_listref ) = @_; 
                unshift @{ $fields_listref->[1]{'options'} }, '';
              },
              'error_callback' => $error_callback,

              'agent_virt'       => 1,
              'agent_null_right' => 'Edit global billing events',
          )
%>
<SCRIPT TYPE="text/javascript">

  window.onload = function () { eventtable_changed(document.getElementById('eventtable')) };
  var notonload = 0;

  function eventtable_changed(what) {

%   if ( $JS_DEBUG ) {
      alert('eventtable_changed called on ' + what );
%   }

    var eventtable = what.options[what.selectedIndex].value;
%   if ( $JS_DEBUG ) {
      alert ("eventtable: " + eventtable);
%   }
    var eventdesc  = what.options[what.selectedIndex].text;

    //remove the ** Select type **
    if ( what.options[0].value == '' && notonload++ > 0 ) {
      what.options[0] = null;
    }

    ////
    // XXX gray out conditions that can't apply (in addition to the warning)?
    ////

    ////
    // update condition selects
    ////

    for ( var cnum=0; document.getElementById('conditionname'+cnum); cnum++ ) {
      var cond_id = 'conditionname' + cnum;
      var cond_select = document.getElementById(cond_id);

%     if ( $JS_DEBUG ) {
        alert('updating ' + cond_id);
%     }

      // save off the current value
      var conditionname = cond_select.options[cond_select.selectedIndex].value;
      var cond_desc     = cond_select.options[cond_select.selectedIndex].text;

      var seen_condition = condition_repop(cond_select);

      var warning = document.getElementById(cond_id + '_warning');
%     if ( $JS_DEBUG ) {
        alert('turning off warning; setting style.display of '+ cond_id +
              '_warning (' + warning + ') to none');
%     }
      warning.style.display = 'none';

      if ( ! seen_condition && conditionname != '' ) {
        // add the current (not valid) condition back
        opt(cond_select, conditionname, cond_desc, true );
        if ( ! condition_is_implicit(conditionname) ) {
          cond_select.parentNode.parentNode.style.display = '';
          cond_select.disabled = '';
          // turn on a warning and gray out the condition row
%         if ( $JS_DEBUG ) {
            alert('turning on warning; setting style.display of '+ cond_id +
                  '_warning (' + warning + ') to ""');
%         }
          warning.innerHTML = 'Not applicable to ' + eventdesc + ' events';
          warning.style.display = '';
        } else {
          if ( ! condition_in_eventtable(conditionname) ) {
%           if ( $JS_DEBUG ) {
              alert(conditionname + " not in " + eventtable + "; disabling");
%           }
            cond_select.parentNode.parentNode.style.display = 'none';
            cond_select.disabled = 'disabled';
          } else {
%           if ( $JS_DEBUG ) {
              alert(conditionname + " implicit for " + eventtable + "; enabling");
%           }
            cond_select.parentNode.parentNode.style.display = '';
            cond_select.disabled = '';
          }
        }
      }

    }


    ////
    // update action select
    ////

    // save off the current value first!!
    var action = what.form.action.options[what.form.action.selectedIndex].value;
    var a_desc = what.form.action.options[what.form.action.selectedIndex].text;
    var seen_action = false;

    // blank the current action select
    for ( var i = what.form.action.length; i >= 0; i-- )
      what.form.action.options[i] = null;

    if ( action == '' ) {
      opt(what.form.action, action, a_desc, true );
    }

    // repopulate it
%   foreach my $eventtable ( FS::part_event->eventtables ) {
%     tie my %actions, 'Tie::IxHash', FS::part_event->actions($eventtable);
%     #use Data::Dumper; warn Dumper(%actions);

      if ( eventtable == '<% $eventtable %>' ) {

%       foreach my $action ( keys %actions ) {
%         ( my $description = $actions{$action}->{'description'} ) =~ s/'/\\'/g;

          var sel = false;
          if ( action == '<% $action %>' ) {
            seen_action = true;
            sel = true;
          }
          opt( what.form.action, '<% $action %>', '<% $description %>', sel );
%       }

      }

%   }

    // by default, turn off warnings and enable the submit button
    var warning = document.getElementById('action_warning');
    warning.style.display = 'none';
    var submit_button = document.getElementById('submit');
    submit_button.disabled = '';

    if ( ! seen_action && action != '' ) {
      // add the current (not valid) action back
      opt( what.form.action, action, a_desc, true );
      // turn on a warning and disable the submit button
      //warning.innerHTML = a_desc + ' event not available as a ' +
      warning.innerHTML = 'Not available as a ' + eventdesc + ' action';
      warning.style.display = '';
      submit_button.disabled = 'disabled';
    }

  }

  function opt(what,value,text,selected) {
    var optionName = new Option(text, value, false, selected);
    var length = what.length;
    what.options[length] = optionName;
  }

  function action_changed(what) {
    // remove '** Select new **'
    if ( what.options[0].value == '' ) {
       what.options[0] = null;
    }
    // remove the warning, remove the invalid action, enable the submit button
    var warning = document.getElementById('action_warning');
    if ( warning.style.display == '' ) {
      warning.style.display = 'none';
      what.options[what.length-1] = null;
      document.getElementById('submit').disabled = '';
    }
  }

  function condition_changed(what) {
    // remove '** Select new **'
    if ( what.options[0].value == '' ) {
       what.options[0] = null;
    }

    var previousValue = what.getAttribute('previousValue');
    var previousText = what.getAttribute('previousText');
    var value = what.options[what.selectedIndex].value;
    var text = what.options[what.selectedIndex].text;

%   foreach my $value ( keys %condition_remove_warnings ) {
      if ( previousValue == '<% $value %>' ) {
        if ( !confirm( <% $condition_remove_warnings{$value} |js_string %> ) ) {
          for ( var i=0; i < what.length; i++ ) {
            if ( what.options[i].value == previousValue ) {
              what.selectedIndex = i;
            }
          }
          return false;
        }
      }
%   }

    //alert(previous + ' changed to ' + value);

    var field_regex = /(\d+)$/;
    var match = field_regex.exec(what.name);
    if ( !match ) {
      alert(what.name + " didn't match?!");
      return;
    }

    //add the previous condition *back* to all the other selects...
    condition_add(previousValue, previousText, match[1]);

    what.setAttribute('previousValue', value);
    what.setAttribute('previousText', text);

    // remove the new condition from all other selects
    condition_remove(value, match[1]);

  }

  function condition_avail(check_cond, curnum) {
    for ( var cnum=0; document.getElementById('conditionname'+cnum); cnum++ ) {
      if ( cnum == curnum ) continue;

      var cond_id = 'conditionname' + cnum;
      var cond_select = document.getElementById(cond_id);

      //alert("checking " + cond_id + " (" + cond_select.disabled + ")");

      if ( cond_select.disabled ) continue;

      // the current value
      var conditionname = cond_select.options[cond_select.selectedIndex].value;

      if ( check_cond == conditionname ) return false;

    }

    return true;

  }

  function condition_remove(remove_cond, curnum) {

    if ( remove_cond.length == 0 ) return;

    for ( var cnum=0; document.getElementById('conditionname'+cnum); cnum++ ) {
      if ( cnum == curnum ) continue;

      var cond_id = 'conditionname' + cnum;
      var cond_select = document.getElementById(cond_id);

      //for ( var i = cond_select.length; i >= 0; i-- ) {
      for ( var i=0; i < cond_select.length; i++ ) {
        if ( cond_select.options[i].value == remove_cond ) {
          cond_select.options[i] = null;
        }
      }

    }

  }

  function condition_add(add_condname, add_conddesc, curnum) {

    if ( add_condname.length == 0 ) return;

    var in_eventtable = condition_in_eventtable(add_condname);

    if ( ! in_eventtable ) return;

    for ( var cnum=0; document.getElementById('conditionname'+cnum); cnum++ ) {
      if ( cnum == curnum ) continue;

      var cond_id = 'conditionname' + cnum;
      var cond_select = document.getElementById(cond_id);

      if ( cond_select.disabled ) continue;

      //alert("adding " + add_condname + " to " + cond_id);

      opt(cond_select, add_condname, add_conddesc, false );

      cond_select.parentNode.parentNode.style.display = '';

    }

  }

  function condition_in_eventtable(condname) {

    var eventtable_el = document.getElementById('eventtable');
    var eventtable = eventtable_el.options[eventtable_el.selectedIndex].value;

    var in_eventtable = false;

%   foreach my $eventtable ( FS::part_event->eventtables ) {
%     tie my %conditions, 'Tie::IxHash',
%       FS::part_event_condition->conditions($eventtable);

      if ( eventtable == '<% $eventtable %>' ) {

%       foreach my $conditionname ( keys %conditions ) {

          if ( condname == '<% $conditionname %>' ) {
            in_eventtable = true;
          }

%       }

      }

%   }

    return in_eventtable;

  }

  function condition_is_implicit(condname) {

    if ( true <% @implicit_conditions
                   ? ( ' && '. join(' && ', map { "condname != '$_'" }
                                                @implicit_conditions
                                   )
                     )
                   : ''
              %> ) {
      return false;
    } else {
      return true;
    }
  }

  function condition_repop(cond_select) {

    var eventtable_el = document.getElementById('eventtable');
    var eventtable = eventtable_el.options[eventtable_el.selectedIndex].value;

    // save off the current value
    var conditionname = cond_select.options[cond_select.selectedIndex].value;
    var cond_desc     = cond_select.options[cond_select.selectedIndex].text;
    var seen_condition = false;

    //skip deleted conditions
    if ( cond_select.disabled && conditionname != '' && ! condition_is_implicit(conditionname) ) {
      return false;
    }

    var field_regex = /(\d+)$/;
    var match = field_regex.exec(cond_select.name);
    if ( !match ) {
      alert(what.name + " didn't match?!");
      return;
    }
    var cnum = match[1];

    // blank the current condition select
    for ( var i = cond_select.length; i >= 0; i-- )
      cond_select.options[i] = null;

    if ( conditionname == '' ) {
      opt(cond_select, conditionname, cond_desc, true );
    }

    // repopulate it
%   foreach my $eventtable ( FS::part_event->eventtables ) {
%     tie my %conditions, 'Tie::IxHash',
%       FS::part_event_condition->conditions($eventtable);

      if ( eventtable == '<% $eventtable %>' ) {

%       foreach my $conditionname ( keys %conditions ) {
%         my $description = $conditions{$conditionname}->{'description'};
%         $description =~ s/'/\\'/g;

          var sel = false;
          if ( conditionname == '<% $conditionname %>' ) {
            seen_condition = true;
            sel = true;
          }

          if ( condition_avail("<% $conditionname %>", cnum) ) {
            opt(cond_select, '<% $conditionname %>', '<% $description %>', sel);
          }

%       }

      }
        
%   }

    if ( cond_select.length > 1 || cond_select.length == 1 && cond_select.options[0].value.length > 0 ) {
       
      cond_select.parentNode.parentNode.style.display = '';
      cond_select.disabled = '';

    } else {
      cond_select.parentNode.parentNode.style.display = 'none';
      cond_select.disabled = 'disabled';
    }

    return seen_condition;

  }

</SCRIPT>
<%once>

#misc (eventtable, check_freq)

my $eventtable_labels = FS::part_event->eventtable_labels;
$eventtable_labels->{''} = '** Select type **';

my $check_freq_labels = FS::part_event->check_freq_labels;

#conditions

tie my %all_conditions, 'Tie::IxHash', 
  '' => { 'description' => '*** Select new condition ***', },
  FS::part_event_condition->conditions();

my %condition_labels = map { $_ => $all_conditions{$_}->{'description'} }
                           keys %all_conditions;

#my %condition_fields = map { $_ => $all_conditions{$_}->{option_fields} } 
#                           keys %all_conditions;
my %condition_fields = map { my $c = $_;
                             tie my %opts, 'Tie::IxHash',
                               @{ $all_conditions{$c}->{'option_fields'} || []};
                             %opts = ( map { ( "$c.$_" => $opts{$_} ); }
                                           keys %opts
                                     );
                             ( $c => [ %opts ] );
                           } 
                           keys %all_conditions;

my @implicit_conditions = sort { $all_conditions{$a}->{'implicit_flag'} <=>
                                 $all_conditions{$b}->{'implicit_flag'}
                               }
                          grep { $all_conditions{$_}->{'implicit_flag'} }
                          keys %all_conditions;

my @implicit_condition_objs = map {
                                    new FS::part_event_condition {
                                      'conditionname' => $_,
                                    };
                                  }
                                  @implicit_conditions;

my %condition_remove_warnings =
  map  { ( $_ => $all_conditions{$_}->{'remove_warning'} ); }
  grep { $all_conditions{$_}->{'remove_warning'} }
  keys %all_conditions;

#actions

tie my %all_actions, 'Tie::IxHash', 
  '' => { 'description' => '*** Select event action ***', },
  FS::part_event->actions();

my %action_labels = map { $_ => $all_actions{$_}->{'description'} }
                        keys %all_actions;

#my %action_fields = map { $_ => $all_actions{$_}->{option_fields} }
#                        keys %all_actions;
my %action_fields = map { my $action = $_;
                          tie my %opts, 'Tie::IxHash',
                            @{ $all_actions{$action}->{option_fields} || [] };
                          %opts = ( map { ( "$action.$_" => $opts{$_} ); }
                                        keys %opts
                                  );
                          ( $action => [ %opts ] );
                        }
                        keys %all_actions;

#subs

sub n_a {
  my $t = shift;

  return sub {
    my $field = shift;
    qq( <FONT ID="${field}_warning" STYLE="display:none" COLOR="#FF0000">).
      "Party Party Join us Join us".
      '</FONT>';
  };
}

my $action_layer_values = sub {
  my( $cgi, $part_event ) = @_;
  my $action = $cgi->param('action') || $part_event->action;
  return {} unless $action;
  scalar( #force hashref
    {
      #map { $_ => { $part_event->options } }
      #    keys %action_fields
      map { my $action = $_;
            my %fields = @{ $action_fields{$action} };
            my %obj_opts = $part_event->options;
            %obj_opts = map { ( "$action.$_" => $obj_opts{$_} ); }
                            keys %obj_opts;
            my %opts =
              map { #false laziness w/process/part_event.html
                    my $option = $_;
                    my $value = scalar($cgi->param($_)) || $obj_opts{$_};

                    if ( $option =~ /^(.*)\.reasonnum$/ && $value == -1 ) {
                      $value = {
                        'typenum' => scalar( $cgi->param( "new${option}T" ) ),
                        'reason'  => scalar( $cgi->param( "new${option}"  ) ),
                      };
                    }

                    ( $option => $value );

                  }
                  keys %fields;
            ( $action => \%opts );
          }
          keys %action_fields
    }
  );
};

tie my %cgi_conditions, 'Tie::IxHash';

my $error_callback = sub {
  my( $cgi, $object, $fields_listref ) = @_;

  my @cond_params = grep /^conditionname\d+$/, $cgi->param;

  %cgi_conditions = map {
    my $param = $_;
    my $conditionname = $cgi->param($param);
    $conditionname => {
      map { 

        my $cgi_key = $_;
        $cgi_key =~ /^$param\.$conditionname\.(.*)$/ or die 'wtf!';
        my $key = $1;
        #my $value = $cgi->param($_);

        #my $info = $all_conditions->{$conditionname}
        my %cond_opts =
          @{ $all_conditions{$conditionname}->{'option_fields'} || []};
        my $info = $cond_opts{$key};

        my $value;
        #false laziness w/process/part_event.html
        if (      $info->{'type'} =~ /^(select|checkbox)-?multiple$/
               or $info->{'type'} =~ /^select/ && $info->{'multiple'} ) {
          $value = { map { $_ => 1 } $cgi->param($cgi_key) };
        } elsif ( $info->{'type'} eq 'freq' ) {
          $value = $cgi->param($cgi_key). $cgi->param($cgi_key.'_units');
        } else {
          $value = $cgi->param($cgi_key);
        }

        $key => $value;

      } grep /^$param\.$conditionname\./, $cgi->param
    };
  } grep $cgi->param($_), grep /^conditionname\d+$/, $cgi->param;

};

my $condition_error_callback = sub {
  map {
    new FS::part_event_condition { 'conditionname' => $_, };
  } keys %cgi_conditions;
};

my $condition_layer_values = sub {
  #m2name_table option causes this to be
  # part_event_condition instead of part_event
  my ( $cgi, $part_event_condition, $switches ) = @_;
  scalar( #force hashref
    {
      #map { $_ => { $part_event_condition->options } }
      #    keys %condition_fields
      map { my $conditionname = $_;
            my %opts = $switches->{'mode'} eq 'error'
                       ? %{ $cgi_conditions{$conditionname} || {} }
                       : $part_event_condition->options;
            %opts = (
              map { ( "$conditionname.$_" => $opts{$_} ); }
                  keys %opts
            );
            ( $conditionname => \%opts );
          }
          keys %condition_fields
    }
  );
};


</%once>
<%init>

my $curuser = $FS::CurrentUser::CurrentUser;

die "access denied"
  unless $curuser->access_right('Edit billing events')
      || $curuser->access_right('Edit global billing events');

my $disable_empty_agent= ! $curuser->access_right('Edit global billing events');

%cgi_conditions = ();
my $use_cgi_conditions = 0;

my $JS_DEBUG = 0;

</%init>