/*
  Copyright (C) 2000-2003 SKYRIX Software AG

  This file is part of OGo

  OGo is free software; you can redistribute it and/or modify it under
  the terms of the GNU Lesser General Public License as published by the
  Free Software Foundation; either version 2, or (at your option) any
  later version.

  OGo is distributed in the hope that it will be useful, but WITHOUT ANY
  WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with OGo; see the file COPYING.  If not, write to the
  Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  02111-1307, USA.
*/
// $Id$

#include "WOInput.h"
#include "common.h"

@interface WOCheckBoxList : WOInput
{
  // WODynamicElement: extraAttributes
  // WODynamicElement: otherTagString
  // inherited: name
  // inherited: value
  // inherited: disabled
@protected
  WOAssociation *list;
  WOAssociation *item;
  WOAssociation *index;
  WOAssociation *selections;
  WOAssociation *prefix;
  WOAssociation *suffix;
}

@end /* WOCheckBoxList */

@implementation WOCheckBoxList

- (id)initWithName:(NSString *)_name
  associations:(NSDictionary *)_config
  template:(WOElement *)_c
{
  if ((self = [super initWithName:_name associations:_config template:_c])) {
    self->list       = OWGetProperty(_config, @"list");
    self->item       = OWGetProperty(_config, @"item");
    self->index      = OWGetProperty(_config, @"index");
    self->selections = OWGetProperty(_config, @"selections");
    self->prefix     = OWGetProperty(_config, @"prefix");
    self->suffix     = OWGetProperty(_config, @"suffix");
  }
  return self;
}

#if !LIB_FOUNDATION_BOEHM_GC
- (void)dealloc {
  RELEASE(self->list);
  RELEASE(self->item);
  RELEASE(self->index);
  RELEASE(self->selections);
  RELEASE(self->prefix);
  RELEASE(self->suffix);
  [super dealloc];
}
#endif

// OWResponder

- (void)takeValuesFromRequest:(WORequest *)_request
  inContext:(WOContext *)_ctx
{
  /*
    Checkboxes are special in their form-value handling. If the form is
    submitted and the checkbox is checked, a 'YES' value is transferred in the
    request. If the checkbox is not-checked, no value is transferred at all !

    Remember, the 'value' of a checkbox list is _not_ the form value but the
    string besides the checkbox.
  */
  if (![self->disabled boolValueInComponent:[_ctx component]]) {
    // could be optimized to use a single NAME with multiple values ..
    WOComponent *sComponent = [_ctx component];
    NSArray     *array      = [self->list valueInComponent:sComponent];
    NSArray     *selArray   = nil;
    unsigned    goCount     = [array count];
  
    if (goCount > 0) {
      NSMutableArray *newSelection = nil;
      unsigned cnt;

      if (self->selections)
        newSelection = [[NSMutableArray alloc] initWithCapacity:goCount];

      [_ctx appendZeroElementIDComponent];
    
      for (cnt = 0; cnt < goCount; cnt++) {
        id formValue = nil;
        id object    = [array objectAtIndex:cnt];

        if (self->index)
          [self->index setUnsignedIntValue:cnt inComponent:sComponent];

        if (self->item)
          [self->item setValue:object inComponent:sComponent];

        formValue = [_request formValueForKey:OWFormElementName(self, _ctx)];
        if ([formValue isEqualToString:[self stringForInt:cnt]]) {
          if ((object != nil) && (self->selections != nil))
            [newSelection addObject:object];
        }
        [_ctx incrementLastElementIDComponent];
      }
    
      [_ctx deleteLastElementIDComponent]; // list index

      if (self->selections) {
        selArray = [newSelection copy];
        [newSelection release];
      }
    }
    else if (self->selections)
      selArray = [[NSArray alloc] init];

    if ([self->selections isValueSettable])
      [self->selections setValue:selArray inComponent:sComponent];

    RELEASE(selArray);
  }
}

- (id)invokeActionForRequest:(WORequest *)_request inContext:(WOContext *)_ctx {
  return nil;
}

- (void)appendToResponse:(WOResponse *)_response inContext:(WOContext *)_ctx {
  if (![[_ctx request] isFromClientComponent]) {
    WOComponent *sComponent = [_ctx component];
    NSArray     *array      = [self->list valueInComponent:sComponent];
    unsigned    goCount     = [array count];
  
    if (goCount > 0) {
      NSArray  *selArray = [self->selections valueInComponent:sComponent];
      unsigned cnt;
  
      [_ctx appendZeroElementIDComponent];
  
      for (cnt = 0; cnt < goCount; cnt++) {
        id object = [array objectAtIndex:cnt];
        
        if ([self->index isValueSettable])
          [self->index setUnsignedIntValue:cnt inComponent:sComponent];
  
        if ([self->item isValueSettable])
          [self->item setValue:object inComponent:sComponent];
  
        if (self->prefix) {
          NSString *ps;

          ps = [self->prefix stringValueInComponent:sComponent];
          WOResponse_AddString(_response, ps);
        }
  
        /* add checkbox */
        {
          NSString *n = nil;
  
          n = self->name
            ? [self->name stringValueInComponent:sComponent]
            : OWFormElementName(self, _ctx);
  
          WOResponse_AddCString(_response, "<input type=\"checkbox\" name=\"");
          [_response appendContentHTMLAttributeValue:n];
          WOResponse_AddCString(_response, "\" value=\"");
          WOResponse_AddInt(_response, cnt);
          WOResponse_AddCString(_response, "\"");
  
          if ([selArray containsObject:object])
            WOResponse_AddCString(_response, " checked=\"checked\"");
          
          [self appendExtraAttributesToResponse:_response inContext:_ctx];
          
          if (self->otherTagString) {
            WOResponse_AddString(_response,
                                 [self->otherTagString stringValueInComponent:
                                                         [_ctx component]]);
          }
          WOResponse_AddCString(_response, " />");
  
          // the value in a checkbox list is the string besides the checkbox
          if (self->value) {
            WOResponse_AddHtmlString(_response,
               [self->value stringValueInComponent:sComponent]);
          }
        }
        
        if (self->suffix) {
          NSString *ss;

          ss = [self->suffix stringValueInComponent:sComponent];
          WOResponse_AddString(_response, ss);
        }
        [_ctx incrementLastElementIDComponent];
      }
      [_ctx deleteLastElementIDComponent]; // list index
    }
  }
}

/* description */

- (NSString *)associationDescription {
  NSMutableString *str;

  str = [[NSMutableString alloc] init];
  [str appendString:[super associationDescription]];
  if (self->list)       [str appendFormat:@" list=%@",       self->list];
  if (self->item)       [str appendFormat:@" item=%@",       self->item];
  if (self->index)      [str appendFormat:@" index=%@",      self->index];
  if (self->prefix)     [str appendFormat:@" prefix=%@",     self->prefix];
  if (self->suffix)     [str appendFormat:@" suffix=%@",     self->suffix];
  if (self->selections) [str appendFormat:@" selections=%@", self->selections];

  return AUTORELEASE(str);
}

@end /* WOCheckBoxList */