word: order siblings by grade

[sheet.git] / writer.plp

diff --git a/writer.plp b/writer.plp
index bae010cf19aa89e20ec950652848b3293ee987af..f4819b735e7bcf04953f461ea8a82e186376f125 100644 (file)
--- a/writer.plp
+++ b/writer.plp
@@ -37,6 +37,9 @@ input:not([type]) {
        padding: .4rem;
        font-family: monospace;
 }
+input[type=number] {
+       max-width: 7em;
+}
 select {
        padding: .3rem .2rem; /* TODO: input */
 }
@@ -103,6 +106,7 @@ my @wordcols = (
        lang    => 'Language',
        cat     => 'Category',
        ref     => undef, # included with cat
+       grade   => undef, # "
        prio    => 'Level',
        cover   => undef, # included with prio
        form    => 'Translation',
@@ -225,6 +229,9 @@ for my $colinfo (pairs @wordcols) {
                        ),
                        'cover', !!$row->{cover} && ' checked', 'Highlighted'
                );
+               printf('<label for="%s">%s</label><input id="%1$s" name="%1$s" value="%s" type="number" />',
+                       'grade', 'Order', Entity($row->{grade})
+               );
        }
        else {
                printf '<input id="%s" name="%1$s" value="%s" />', $col, Entity($val);
@@ -261,7 +268,7 @@ while (my $ref = $parents->hash) {
        printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
 }
 say "<li><strong>$row->{form}</strong></li>";
-my $children = $db->select(word => '*', {cat => $row->{id}});
+my $children = $db->select(word => '*', {cat => $row->{id}}, 'grade, id');
 while (my $ref = $children->hash) {
        printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
 }