[AppWrap-cvs] AppWrap/Apache/AppWrap Subs.pm,1.33,1.34
Status: Beta
Brought to you by:
planetman
From: <pla...@us...> - 2002-12-26 01:34:53
|
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 |