[AppWrap-cvs] AppWrap/Apache/AppWrap Subs.pm,1.33,1.34

[<pla...@us...>]

Update of /cvsroot/appwrap/AppWrap/Apache/AppWrap
In directory sc8-pr-cvs1:/tmp/cvs-serv31941

Modified Files:
	Subs.pm 
Log Message:
Many i18n changes

Index: Subs.pm
===================================================================
RCS file: /cvsroot/appwrap/AppWrap/Apache/AppWrap/Subs.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** Subs.pm	21 Dec 2002 11:06:51 -0000	1.33
--- Subs.pm	26 Dec 2002 01:34:50 -0000	1.34
***************
*** 20,24 ****
  use Date::Parse qw(str2time);
  use Date::Calc qw(Add_Delta_YMD);
! use Data::Dumper;
  
  use GD::Graph ();
--- 20,24 ----
  use Date::Parse qw(str2time);
  use Date::Calc qw(Add_Delta_YMD);
! use Data::Dumper ();
  
[...1129 lines suppressed...]
+ 	if ($my_text->{$table}{$phase}{$element}) {
+ 		return $my_text->{$table}{$phase}{$element};
+ 	}
+ 	# value same for all tables
+ 	elsif ($my_text->{DEFAULT}{$phase}{$element}) {
+ 		return $my_text->{DEFAULT}{$phase}{$element};
+ 	}
+ 	# value same for all phases of this table
+ 	elsif ($my_text->{$table}{DEFAULT}{$element}) {
+ 		return $my_text->{$table}{DEFAULT}{$element};
+ 	}
+ 	# value same for all phases, all tables
+ 	elsif ($my_text->{DEFAULT}{DEFAULT}{$element}) {
+ 		return $my_text->{DEFAULT}{DEFAULT}{$element};
+ 	}
+ 	# no match whatsoever
+ 	return;
+ }	# end specific_msg