---

Class ::xowiki::formfield::url

::xowiki::formfield::url create ... \
           [ -link_label link_label ]

Class Relations

• class: ::xotcl::Class
• superclass: ::xowiki::formfield::text
• subclass: ::xowiki::formfield::detail_link

::xotcl::Class create ::xowiki::formfield::url \
     -superclass ::xowiki::formfield::text

Methods (to be applied on instances)

• check=safe_url (scripted)

  if {$value eq ""} {return 1}
  set regexp {^(https|http|ftp)://([a-zA-Z0-9_\-\.]+(:[0-9]+)?)/[a-zA-Z0-9_.%/#?=&~-]+$}
  if {[regexp -nocase $regexp $value]} {return 1}
  return 0

• initialize (scripted)

  next
  :type url

• link_label (setter)

• pretty_value (scripted)

  if {$v ne ""} {
    if {[info exists :link_label]} {
      set link_label [:localize [:link_label]]
    } else {
      set link_label $v
    }
    regsub -all & $v "&" v
    return "<a href='[ns_quotehtml $v]'>$link_label</a>"
  }

• validator (setter)

---