Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.87 -r1.88
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	8 Sep 2008 11:19:20 -0000	1.87
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Sep 2008 08:44:04 -0000	1.88
@@ -1279,6 +1279,26 @@
 
   ###########################################################
   #
+  # ::xowiki::formfield::youtube_url
+  #
+  ###########################################################
+  Class youtube_url -superclass text
+  youtube_url set urlre {^http://www.youtube.com/watch[?]v=(.*)$}
+  
+  youtube_url instproc pretty_value {v} {
+    if {[regexp [[self class] set urlre] $v _ name]} {
+      return "<object width='425' height='344'>
+<param name='movie' value='http://www.youtube.com/v/$name&fs=1'></param>
+<param name='allowFullScreen' value='true'></param>
+<embed src='http://www.youtube.com/v/$name&fs=1' type='application/x-shockwave-flash' allowfullscreen='true' width='425' height='344'></embed>
+</object>\n"
+    } else {
+      return "'$v' does not look like a youtube url"
+    }
+  }
+
+  ###########################################################
+  #
   # ::xowiki::formfield::image_url
   #
   ###########################################################