/*
 * Copyright 2012 Tomas Zeman <tzeman@volny.cz>
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
package net.tz.lift.model

import net.liftweb.common._
import net.liftweb.record.Record
import net.liftweb.record.field._
import net.liftweb.util.FieldError

class OptionalEmailField[T <: Record[T]](rec: T, maxLength: Int) extends
  OptionalStringField[T](rec, maxLength) {
  override def validations = validateEmail _ :: Nil
  protected def validateEmail(email: ValueType): List[FieldError] =
    toBoxMyType(email) match {
      case Empty | Full("") => Nil
      case Full(v) if EmailField.validEmailAddr_?(v) => Nil
      case _ => FieldError(this, l10n("invalid.email.address")) :: Nil
    }
}

// vim: set ts=2 sw=2 et: