48 lines
1,022 B
Text
48 lines
1,022 B
Text
|
[%# Frontend for finding and editing strings in the translation system.
|
||
|
|
#
|
||
|
|
# Authors:
|
||
|
|
# import r26.1 livejournal -- original page
|
||
|
|
# Jen Griffin <kareila@livejournal.com> -- TT conversion
|
||
|
|
#
|
||
|
|
# Copyright (c) 2008-2020 by Dreamwidth Studios, LLC.
|
||
|
|
#
|
||
|
|
# This program is free software; you may redistribute it and/or modify it under
|
||
|
|
# the same terms as Perl itself. For a copy of the license, please reference
|
||
|
|
# 'perldoc perlartistic' or 'perldoc perlgpl'.
|
||
|
|
%]
|
||
|
|
|
||
|
|
[%-
|
||
|
|
page = 0;
|
||
|
|
pages = [];
|
||
|
|
|
||
|
|
BLOCK addlink;
|
||
|
|
IF pages.size;
|
||
|
|
|
||
|
|
page = page + 1;
|
||
|
|
|
||
|
|
link = "editpage?lang=${lang}&items=" _ join( pages ) -%]
|
||
|
|
|
||
|
|
<b><a target='main' href='[% link %]'>Page [% page %]</a></b>
|
||
|
|
<br />
|
||
|
|
<span style='font-size:8pt'>[% pages.0.2 %]<br />[% pages.-1.2 %]<br /></span>
|
||
|
|
|
||
|
|
[%-
|
||
|
|
pages = [];
|
||
|
|
|
||
|
|
END;
|
||
|
|
END; # BLOCK
|
||
|
|
|
||
|
|
FOREACH r IN rows;
|
||
|
|
pages.push( r );
|
||
|
|
|
||
|
|
IF pages.size >= 10;
|
||
|
|
PROCESS addlink;
|
||
|
|
END;
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCESS addlink;
|
||
|
|
|
||
|
|
IF page == 0;
|
||
|
|
"<i>(No matches)</i>";
|
||
|
|
END -%]
|