diff --git a/tools/export_translation b/tools/export_translation index ee49102..0a0967d 100644 --- a/tools/export_translation +++ b/tools/export_translation @@ -1,6 +1,8 @@ #!/usr/bin/perl # This is an experimental tool script to create a nice HTML page from the CATS database to help translating # a test into another language and to review the result. +# It is not yet in a "ready to run" state, there will be several things you'll have to do modify in the script +# to fit it to your purpose. # Adjust the test id of the language you want to translate into (look for $sth_q->execute), probably modify # the header of the page, then start the script with the database password as parameter. @@ -58,7 +60,7 @@ print <<'ENDHEADER';
-

Translation Sheet for CATS Test CZ

+

Translation Sheet for CATS Test FR

Please verify that the translation conserves the intention of the english text. It does not have to be a word-by-word translation. Links may be adjusted to point to translated content, if available.

@@ -67,10 +69,16 @@ print <<'ENDHEADER'; by CATS.

Forward information about typos and bad language to the translator. Normally such issues should not block publication of the translation, unless the mistakes are quite serious.

+

This is not intended to verify the correctness of the english answers. Nevertheless, if + you think that an answer is wrong or not accurate enough, you are invited to ask your + questions or post your + opinion to the Education Mailing List. +

Note: The lines of english and translated answers do not necessarily match, since the link between the answers was only recently implemented...

-
ENDHEADER + print "

Version: " . gmtime(time) . " (GMT)\r\n"; + print "\r\n"; } sub PrintFooter { @@ -107,8 +115,8 @@ my $sth_q = $dbh->prepare( " LEFT OUTER JOIN question_description qd_lg ON (qd_lg.q_id=q_lg.q_id) ". " WHERE q_lg.t_id=? ". " ORDER BY q_en.q_id"); -$sth_q->execute(9); # for language cz -#$sth_q->execute(5); # for language fr +#$sth_q->execute(9); # for language cz +$sth_q->execute(5); # for language fr while(my $ref = $sth_q->fetchrow_hashref()) { print '

'."\n"; print "