+sub checkconfig () { #{{{
+ foreach my $field (qw{po_master_language po_slave_languages}) {
+ if (! exists $config{$field} || ! defined $config{$field}) {
+ error(sprintf(gettext("Must specify %s"), $field));
+ }
+ }
+ if (! exists $config{po_link_to_current_language} ||
+ ! defined $config{po_link_to_current_language}) {
+ $config{po_link_to_current_language}=0;
+ }
+} #}}}
+