diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-04-08 17:56:27 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-04-08 17:56:27 +0000 |
commit | 8c38dc88ed6cf33fd2e9385e102e9935e8b60b00 (patch) | |
tree | 374324d88bb7ddd8f6e57b14683315891102f936 /Master/texmf-dist/doc/latex/datetime/datetime.perl | |
parent | caef592b102b13a49c19d22bc87241b0a99d4045 (diff) |
update datetime to v2.51
git-svn-id: svn://tug.org/texlive/trunk@4130 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/datetime/datetime.perl')
-rw-r--r-- | Master/texmf-dist/doc/latex/datetime/datetime.perl | 121 |
1 files changed, 118 insertions, 3 deletions
diff --git a/Master/texmf-dist/doc/latex/datetime/datetime.perl b/Master/texmf-dist/doc/latex/datetime/datetime.perl index 3f8ab5bfb80..1b557a51a7b 100644 --- a/Master/texmf-dist/doc/latex/datetime/datetime.perl +++ b/Master/texmf-dist/doc/latex/datetime/datetime.perl @@ -1,7 +1,7 @@ # File : datetime.perl # Author : Nicola Talbot -# Date : 3 Mar 2005 -# Version : 1.01 +# Date : 17 Jan 2007 +# Version : 1.02 # Description : LaTeX2HTML implementation of datetime package. # set up default values for internal counters. @@ -1123,6 +1123,48 @@ sub get_day_of_weekname_portuges{ } } +sub get_day_of_weekname_german{ + local($dow) = @_; + + local(@DayOfWeek) = ('Sonntag', + 'Montag', + 'Dienstag', + 'Mittwoch', + 'Donnerstag', + 'Freitag', + 'Samstag'); + + if ($dow <= 0 || $dow > 7) + { + &write_warnings("Invalid day of week number: $dow"); + } + else + { + $DayOfWeek[$dow-1]; + } +} + +sub get_day_of_weekname_ngerman{ + local($dow) = @_; + + local(@DayOfWeek) = ('Sonntag', + 'Montag', + 'Dienstag', + 'Mittwoch', + 'Donnerstag', + 'Freitag', + 'Samstag'); + + if ($dow <= 0 || $dow > 7) + { + &write_warnings("Invalid day of week number: $dow"); + } + else + { + $DayOfWeek[$dow-1]; + } +} + sub get_day_of_weekname{ local($dow)=@_; local($dowsub); @@ -1139,10 +1181,83 @@ sub get_day_of_weekname{ } } +sub get_short_day_of_weekname_english{ + local($dow) = @_; + + local(@DayOfWeek) = ('Sun', + 'Mon', + 'Tue', + 'Wed', + 'Thu', + 'Fri', + 'Sat'); + + if ($dow <= 0 || $dow > 7) + { + &write_warnings("Invalid day of week number: $dow"); + } + else + { + $DayOfWeek[$dow-1]; + } +} + +sub get_short_day_of_weekname_german{ + local($dow) = @_; + + local(@DayOfWeek) = ('So', + 'Mo', + 'Di', + 'Mi', + 'Do', + 'Fr', + 'Sa'); + + if ($dow <= 0 || $dow > 7) + { + &write_warnings("Invalid day of week number: $dow"); + } + else + { + $DayOfWeek[$dow-1]; + } +} + +sub get_short_day_of_weekname_ngerman{ + local($dow) = @_; + + local(@DayOfWeek) = ('So', + 'Mo', + 'Di', + 'Mi', + 'Do', + 'Fr', + 'Sa'); + + if ($dow <= 0 || $dow > 7) + { + &write_warnings("Invalid day of week number: $dow"); + } + else + { + $DayOfWeek[$dow-1]; + } +} + sub get_short_day_of_weekname{ local($dow)=@_; + local($dowsub); + + $dowsub = "get_short_day_of_weekname_$default_language"; - substr(&get_day_of_weekname($dow),0,3); + if (defined ($dowsub)) + { + &$dowsub($dow); + } + else + { + substr(&get_day_of_weekname($dow),0,3); + } } sub do_cmd_dayofweeknameid{ |