From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Sun, 16 Mar 2008 19:58:34 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.

---
 httemplate/edit/part_event.html | 681 ----------------------------------------
 1 file changed, 681 deletions(-)
 delete mode 100644 httemplate/edit/part_event.html

(limited to 'httemplate/edit/part_event.html')

diff --git a/httemplate/edit/part_event.html b/httemplate/edit/part_event.html
deleted file mode 100644
index 5b14edfa7..000000000
--- a/httemplate/edit/part_event.html
+++ /dev/null
@@ -1,681 +0,0 @@
-<% 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>
-- 
cgit v1.2.1