[%# Frontend for finding and editing strings in the translation system. # # Authors: # import r26.1 livejournal -- original page # Jen Griffin -- 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'. %] View Differences

[% i = 1; WHILE i <= num_changes; change_link( i ) _ " "; i = i + 1; END %]

[% mode = ''; BLOCK setmode; UNLESS newmode.defined; newmode = ''; END; IF newmode == mode; " "; ELSE; IF mode.length; ""; END; " "; IF newmode.length; ""; END; mode = newmode; END; END; # BLOCK pos = 0; FOREACH dl IN difflines; IF dl.match( '^(\+\+\+|\-\-\-)' ); NEXT; END; IF ( matches = dl.match( '^\@\@ \-(\d+),\d+' ) ); newpos = matches.0; PROCESS setmode newmode=''; i = pos + 1; WHILE i < newpos; j = i - 1; format( words.$j ) _ " "; pos = pos + 1; i = i + 1; END; NEXT; END; IF dl.match( '^ ' ); PROCESS setmode newmode=''; format( words.$pos ); pos = pos + 1; END; IF dl.match( '^\-' ); PROCESS setmode newmode='del'; format( words.$pos ); pos = pos + 1; END; IF ( matches = dl.match( '^\+(.*)' ) ); PROCESS setmode newmode='ins'; format( matches.0 ); END; END; # FOREACH PROCESS setmode newmode=''; WHILE pos < words.size; format( words.$pos ) _ " "; pos = pos + 1; END %]

Before:
[% was %]		 After:
[% then %]