1 /*

     2  * Copyright 2012 Tomas Zeman <tzeman@volny.cz>

     3  *

     4  * Licensed under the Apache License, Version 2.0 (the "License");

     5  * you may not use this file except in compliance with the License.

     6  * You may obtain a copy of the License at

     7  *

     8  *     http://www.apache.org/licenses/LICENSE-2.0

     9  *

    10  * Unless required by applicable law or agreed to in writing, software

    11  * distributed under the License is distributed on an "AS IS" BASIS,

    12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

    13  * See the License for the specific language governing permissions and

    14  * limitations under the License.

    15  */

    16 package net.tz.lift.model

    17 

    18 import net.liftweb.common._

    19 import net.liftweb.record.Record

    20 import net.liftweb.record.field._

    21 import net.liftweb.util.FieldError

    22 

    23 class OptionalEmailField[T <: Record[T]](rec: T, maxLength: Int) extends

    24   OptionalStringField[T](rec, maxLength) {

    25   override def validations = validateEmail _ :: Nil

    26   protected def validateEmail(email: ValueType): List[FieldError] =

    27     toBoxMyType(email) match {

    28       case Empty | Full("") => Nil

    29       case Full(v) if EmailField.validEmailAddr_?(v) => Nil

    30       case _ => FieldError(this, l10n("invalid.email.address")) :: Nil

    31     }

    32 }

    33 

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