X-Git-Url: http://xvm.mit.edu/gitweb/invirt/packages/invirt-web.git/blobdiff_plain/230d47ec0096ba45aeb3a690fa2c4551f4fcbb16..74cf12ca4c1ba056483885a9b3b0d5c86014f1d1:/code/templates/functions.tmpl

diff --git a/code/templates/functions.tmpl b/code/templates/functions.tmpl
index 7b917b0..c3aa050 100644
--- a/code/templates/functions.tmpl
+++ b/code/templates/functions.tmpl
@@ -13,6 +13,16 @@
 </select>
 #end def
 
+#def vmTypeList($default=None)
+#for $vmtype in $sipb_xen_database.Type.select()
+<label>
+   <input #slurp
+#if $default == $vmtype then 'checked' else ''
+ type="radio" name="vmtype" value="${vmtype.type_id}">${vmtype.description}</input>
+</label>
+#end for
+#end def
+
 #def addError(txt)
 #if $varExists('txt')
 #set global $error_text = $error_text + '----\n' + $txt