cryptonas-branches/pythonrewrite/templates/form_umount.cs

<?cs # $Id$ ?>

<?cs if:Data.activeDisksCount == 0 ?>

	<?cs call:warning('NoDiskAvailableForUmount') ?>

<?cs else ?>

	<h1><?cs var:html_escape(Lang.Title.Umount) ?></h1>

	<div align="center">
		<?cs call:print_form_header("umount_do") ?>

		<?cs if:Data.activeDisksCount > 1 ?>
			<p><label for="device"><?cs var:html_escape(Lang.Text.ChoosePartition) ?></label>
				<select name="device" id="device" size="0">
					<?cs each:partition = Data.Disks
					?><?cs if:partition.active ?><option value="<?cs
						var:partition.device ?>"><?cs
						var:partition.name ?></option><?cs /if ?>
					<?cs /each ?>
				</select></p>
		<?cs else ?>
			<?cs # the perl code should take care, that there is at least
				one mounted disk - otherwise it should display a warning ?>
			<?cs each:partition = Data.Disks ?><?cs
				if:partition.active ?><?cs set:act_name = partition.name ?><?cs
				act_device = partition.device ?><?cs /if ?><?cs /each ?>
			<p><?cs var:html_escape(Lang.Text.ChosenPartition) ?>: <?cs
				var:act_name ?></p>
			<input type="hidden" name="device" value="<?cs
				var:act_device ?>"/>
		<?cs /if ?>
		<button type="submit"><?cs var:html_escape(Lang.Button.Umount) ?></button>

		</form>
	</div>

<?cs /if ?>