git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common: global Data() to parse perl code includes
[sheet.git]
/
word.plp
diff --git
a/word.plp
b/word.plp
index 977545f74e847200d87e42eacc1586aebee74be5..6b42866629fa8fccc8cda75e26252604868767a7 100644
(file)
--- a/
word.plp
+++ b/
word.plp
@@
-13,7
+13,6
@@
if ($Request and $Request =~ m{\A([^/]+)}) {
}
}
}
}
-my $wordlist = "$wordlistbase.inc.pl";
my $limit = $get{v} // (exists $get{v} ? 5 : 3);
Html({
my $limit = $get{v} // (exists $get{v} ? 5 : 3);
Html({
@@
-23,7
+22,7
@@
Html({
keywords => [qw'
language
'],
keywords => [qw'
language
'],
- data => [
$wordlist
],
+ data => [
"$wordlistbase.inc.pl"
],
raw => exists $get{q} ? <<'EOT' : undef,
<style>
.gallery figure {
raw => exists $get{q} ? <<'EOT' : undef,
<style>
.gallery figure {
@@
-62,7
+61,7
@@
Zie ook <a href="/dieren">dieren</a>.
</p>
<:
</p>
<:
-my $table =
do $wordlist or die $@ // $!
;
+my $table =
Data($wordlistbase)
;
sub showimg {
my ($id, $name) = @_;
sub showimg {
my ($id, $name) = @_;