root/lang/perl/MENTOS/trunk/app/tmpl/edit.mt @ 24325

? my ($entry, $message) = @_
?=r render_partial('header.mt', config()->{application}->{title})
                        <div class="entry">
                                <span class="error"><?= $message ?></span>
                                <form method="post" action="<?= docroot ?>" enctype="multipart/form-data">
                                <input type="hidden" name="id" value="<?= $entry->{id} ?>" />
                                <label for="title">タイトル</label><br />
                                <input type="text" id="title" name="title" value="<?=r escape_html($entry->{title}) ?>" style="width: 400px" /><br />
                                <br />
                                <label for="description">本文</label><br />
? my $meta = join '', map({ "meta-$_: ".$entry->{meta}->{$_}."\n" } keys(%{$entry->{meta}}))
? $meta .= "\n" if $meta;
                                <textarea id="description" name="description" style="width: 400px; height: 300px;"><?=r $meta.escape_html($entry->{description}) ?></textarea>
                                <br />
                                <label for="photo">画像</label><br />
                                <input type="file" id="photo" name="photo" />
                                <br />
                                <label for="password">パスワード</label><br />
                                <input type="password" id="password" name="password" />
                                <input type="submit" />
                                </form>
                        </div>
?=r render_partial('footer.mt')