[Koha-cvs] CVS: koha/misc/translator intranet.zh_TW,1.14,1.15 xgettext.pl,1.5,1.6

[Ambrose C. LI]

Update of /cvsroot/koha/koha/misc/translator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4701

Modified Files:
	intranet.zh_TW xgettext.pl 
Log Message:
-v option (undocumented) for more verbose output


Index: intranet.zh_TW
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/intranet.zh_TW,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** intranet.zh_TW	23 Feb 2004 19:18:54 -0000	1.14
--- intranet.zh_TW	23 Feb 2004 20:04:33 -0000	1.15
***************
*** 5690,5698 ****
  msgstr "系統偏好"
  
  #: ../../koha-tmpl/intranet-tmpl/default/en/value_builder/unimarc_field_700-4.tmpl:6
  msgid ""
  "Sélectionnez la valeur pour le champ 700 $4. Elle sera automatiquement "
  "reportée dans la zone 700 $8 qui suit."
! msgstr ""
  
  #: ../../koha-tmpl/intranet-tmpl/default/en/acqui/newbasket2.tmpl:36
--- 5690,5699 ----
  msgstr "系統偏好"
  
+ # TODO Probably not entirely correct. But probably won't have a real impact.
  #: ../../koha-tmpl/intranet-tmpl/default/en/value_builder/unimarc_field_700-4.tmpl:6
  msgid ""
  "Sélectionnez la valeur pour le champ 700 $4. Elle sera automatiquement "
  "reportée dans la zone 700 $8 qui suit."
! msgstr "請選擇欄 700 $4 之值。此值在適當時將會自動在 700 $8 出現。"
  
  #: ../../koha-tmpl/intranet-tmpl/default/en/acqui/newbasket2.tmpl:36

Index: xgettext.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/translator/xgettext.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** xgettext.pl	23 Feb 2004 01:21:03 -0000	1.5
--- xgettext.pl	23 Feb 2004 20:04:34 -0000	1.6
***************
*** 19,22 ****
--- 19,23 ----
  use vars qw( %text %translation );
  use vars qw( $charset_in $charset_out );
+ use vars qw( $verbose_p );
  
  ###############################################################################
***************
*** 226,229 ****
--- 227,231 ----
    -s, --sort-output              generate sorted output
    -F, --sort-by-file             sort output by file location
+   -v, --verbose                  explain what is being done
  
  Informative output:
***************
*** 256,259 ****
--- 258,262 ----
      's|sort-output'			=> sub { $sort = 's' },
      'F|sort-by-file'			=> sub { $sort = 'F' },
+     'v|verbose'				=> \$verbose_p,
      'help'				=> sub { usage(0) },
  ) || usage_error;
***************
*** 270,279 ****
--- 273,285 ----
  
  if (defined $output && $output ne '-') {
+     print STDERR "$0: Opening output file \"$output\"\n" if $verbose_p;
      open(OUTPUT, ">$output") || die "$output: $!\n";
  } else {
+     print STDERR "$0: Outputting to STDOUT...\n" if $verbose_p;
      open(OUTPUT, ">&STDOUT");
  }
  
  if (defined $files_from) {
+     print STDERR "$0: Opening input file list \"$files_from\"\n" if $verbose_p;
      open(INPUT, "<$files_from") || die "$files_from: $!\n";
      while (<INPUT>) {
***************
*** 282,289 ****
--- 288,297 ----
  	$h->set_allow_cformat( 1 );
  	VerboseWarnings::set_input_file_name "$directory/$_";
+ 	print STDERR "$0: Processing file \"$directory/$_\"\n" if $verbose_p;
  	text_extract( $h );
      }
      close INPUT;
  } else {
+     print STDERR "$0: Converting \"$convert_from\"\n" if $verbose_p;
      convert_translation_file;
  }