[443] | 1 | #def databaseList($lst, $default, $onchange, $name, $id, $valueattr, $descattr) |
---|
| 2 | <select name="$name" id="$id"#slurp |
---|
| 3 | #if $onchange is not None |
---|
| 4 | onchange="$onchange"#slurp |
---|
| 5 | #end if |
---|
| 6 | > |
---|
[205] | 7 | <option #slurp |
---|
| 8 | #if $default then '' else 'selected' |
---|
| 9 | value="">None</option> |
---|
[443] | 10 | #for $item in $lst |
---|
[205] | 11 | <option #slurp |
---|
[443] | 12 | #if $default == getattr(item, valueattr) then 'selected' else '' |
---|
| 13 | value="${getattr(item, valueattr)}"> |
---|
| 14 | ${getattr(item, descattr)} |
---|
[205] | 15 | </option> |
---|
| 16 | #end for |
---|
| 17 | </select> |
---|
| 18 | #end def |
---|
| 19 | |
---|
[443] | 20 | #def cdromList($default="", $onchange=None) |
---|
| 21 | $databaseList(sorted($sipb_xen_database.CDROM.select(), key=lambda x: x.description), |
---|
| 22 | default, onchange, 'cdrom', 'cdromlist', 'cdrom_id', 'description') |
---|
| 23 | #end def |
---|
| 24 | |
---|
| 25 | #def autoList($default="", $onchange=None) |
---|
| 26 | $databaseList(sorted($sipb_xen_database.Autoinstall.select(), key=lambda x: x.description), |
---|
| 27 | default, onchange, 'autoinstall', 'autoinstalllist', 'autoinstall_id', 'description') |
---|
| 28 | ## $databaseList(autos, default, onchange, 'autoinstall', 'autoinstalllist', 'autoinstall_id', 'description') |
---|
| 29 | #end def |
---|
| 30 | |
---|
[440] | 31 | #def vmTypeList($default=None) |
---|
[441] | 32 | #for $vmtype in sorted($sipb_xen_database.Type.select(), key=lambda x: x.description) |
---|
[440] | 33 | <label> |
---|
| 34 | <input #slurp |
---|
| 35 | #if $default == $vmtype then 'checked' else '' |
---|
| 36 | type="radio" name="vmtype" value="${vmtype.type_id}">${vmtype.description}</input> |
---|
| 37 | </label> |
---|
| 38 | #end for |
---|
| 39 | #end def |
---|
| 40 | |
---|
[205] | 41 | #def addError(txt) |
---|
| 42 | #if $varExists('txt') |
---|
| 43 | #set global $error_text = $error_text + '----\n' + $txt |
---|
| 44 | #else |
---|
| 45 | #set global $error_text = $txt |
---|
| 46 | #end if |
---|
| 47 | #end def |
---|
| 48 | |
---|
| 49 | #def errorRow($value, $err) |
---|
| 50 | #if $err and $err.err_field == $value |
---|
| 51 | <tr> |
---|
| 52 | <td class="error" colspan="2">${str($err)}</td> |
---|
| 53 | </tr> |
---|
| 54 | #end if |
---|
| 55 | #end def |
---|
| 56 | |
---|
| 57 | $full_body |
---|