git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
}
padding: .4rem;
font-family: monospace;
}
+input[type=number] {
+ max-width: 7em;
+}
select {
padding: .3rem .2rem; /* TODO: input */
}
select {
padding: .3rem .2rem; /* TODO: input */
}
@@
-103,6
+106,7
@@
my @wordcols = (
lang => 'Language',
cat => 'Category',
ref => undef, # included with cat
lang => 'Language',
cat => 'Category',
ref => undef, # included with cat
+ grade => undef, # "
prio => 'Level',
cover => undef, # included with prio
form => 'Translation',
prio => 'Level',
cover => undef, # included with prio
form => 'Translation',
@@
-225,6
+229,9
@@
for my $colinfo (pairs @wordcols) {
),
'cover', !!$row->{cover} && ' checked', 'Highlighted'
);
),
'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);
}
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>";
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});
}
while (my $ref = $children->hash) {
printf '<li><a href="/writer/%d">%s</a></li>', $ref->{id}, Entity($ref->{form});
}