diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/datetime/datetime.perl')
-rw-r--r-- | Master/texmf-dist/source/latex/datetime/datetime.perl | 105 |
1 files changed, 52 insertions, 53 deletions
diff --git a/Master/texmf-dist/source/latex/datetime/datetime.perl b/Master/texmf-dist/source/latex/datetime/datetime.perl index 86a7646b0fa..d73fde5e52a 100644 --- a/Master/texmf-dist/source/latex/datetime/datetime.perl +++ b/Master/texmf-dist/source/latex/datetime/datetime.perl @@ -213,7 +213,7 @@ sub do_datetime_breton{ $tmp .= 'local($_) = @_;'; $tmp .= 'local($num) = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($num=$2));'; $tmp .= 'local($before) = $num;'; - + $tmp .= 'if ($num == 1)'; $tmp .= '{ $before .= \'a\~n\'; }'; @@ -407,7 +407,7 @@ sub do_datetime_french{ $tmp .= 'local($_) = @_;'; $tmp .= 'local($num) = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($num=$2));'; $tmp .= 'local($before) = $num;'; - + $tmp .= 'if ($num == 1)'; $tmp .= '{ $before .= \'\ier\'; }'; @@ -922,7 +922,7 @@ sub do_datetime_welsh{ $tmp .= 'local($_) = @_;'; $tmp .= 'local($num) = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($num=$2));'; $tmp .= 'local($before) = $num;'; - + $tmp .= 'if ($num == 1)'; $tmp .= '{ $before .= \'a\~n\'; }'; @@ -1057,12 +1057,12 @@ sub get_day_of_week{ sub get_day_of_weekname_english{ local($dow) = @_; - local(@DayOfWeek) = ('Sunday', - 'Monday', - 'Tuesday', - 'Wednesday', - 'Thursday', - 'Friday', + local(@DayOfWeek) = ('Sunday', + 'Monday', + 'Tuesday', + 'Wednesday', + 'Thursday', + 'Friday', 'Saturday'); if ($dow <= 0 || $dow > 7) @@ -1079,11 +1079,11 @@ sub get_day_of_weekname_french{ local($dow) = @_; local(@DayOfWeek) = ('dimanche', - 'lundi', - 'mardi', - 'mercredi', - 'jeudi', - 'vendredi', + 'lundi', + 'mardi', + 'mercredi', + 'jeudi', + 'vendredi', 'samedi'); if ($dow <= 0 || $dow > 7) @@ -1100,11 +1100,11 @@ sub get_day_of_weekname_spanish{ local($dow) = @_; local(@DayOfWeek) = ('domingo', - 'lunes', - 'martes', - 'mi\\\'ercoles', - 'jueves', - 'viernes', + 'lunes', + 'martes', + 'mi\\\'ercoles', + 'jueves', + 'viernes', 's\\\'abado'); if ($dow <= 0 || $dow > 7) @@ -1121,11 +1121,11 @@ sub get_day_of_weekname_portuges{ local($dow) = @_; local(@DayOfWeek) = ('domingo', - 'segunda-feira', - 'ter\c{c}a-feira', - 'quarta-feira', + 'segunda-feira', + 'ter\c{c}a-feira', + 'quarta-feira', 'quinta-feira', - 'sexta-feira', + 'sexta-feira', 'sabado'); if ($dow <= 0 || $dow > 7) @@ -1142,11 +1142,11 @@ sub get_day_of_weekname_german{ local($dow) = @_; local(@DayOfWeek) = ('Sonntag', - 'Montag', - 'Dienstag', - 'Mittwoch', - 'Donnerstag', - 'Freitag', + 'Montag', + 'Dienstag', + 'Mittwoch', + 'Donnerstag', + 'Freitag', 'Samstag'); if ($dow <= 0 || $dow > 7) @@ -1163,11 +1163,11 @@ sub get_day_of_weekname_ngerman{ local($dow) = @_; local(@DayOfWeek) = ('Sonntag', - 'Montag', - 'Dienstag', - 'Mittwoch', - 'Donnerstag', - 'Freitag', + 'Montag', + 'Dienstag', + 'Mittwoch', + 'Donnerstag', + 'Freitag', 'Samstag'); if ($dow <= 0 || $dow > 7) @@ -1199,12 +1199,12 @@ sub get_day_of_weekname{ sub get_short_day_of_weekname_english{ local($dow) = @_; - local(@DayOfWeek) = ('Sun', - 'Mon', - 'Tue', - 'Wed', - 'Thu', - 'Fri', + local(@DayOfWeek) = ('Sun', + 'Mon', + 'Tue', + 'Wed', + 'Thu', + 'Fri', 'Sat'); if ($dow <= 0 || $dow > 7) @@ -1220,12 +1220,12 @@ sub get_short_day_of_weekname_english{ sub get_short_day_of_weekname_german{ local($dow) = @_; - local(@DayOfWeek) = ('So', - 'Mo', - 'Di', - 'Mi', - 'Do', - 'Fr', + local(@DayOfWeek) = ('So', + 'Mo', + 'Di', + 'Mi', + 'Do', + 'Fr', 'Sa'); if ($dow <= 0 || $dow > 7) @@ -1241,12 +1241,12 @@ sub get_short_day_of_weekname_german{ sub get_short_day_of_weekname_ngerman{ local($dow) = @_; - local(@DayOfWeek) = ('So', - 'Mo', - 'Di', - 'Mi', - 'Do', - 'Fr', + local(@DayOfWeek) = ('So', + 'Mo', + 'Di', + 'Mi', + 'Do', + 'Fr', 'Sa'); if ($dow <= 0 || $dow > 7) @@ -1582,7 +1582,7 @@ sub do_cmd_newdateformat{ sub do_cmd_pdfdate{ local($_) = @_; - local($timestring) = sprintf "%d%02d%02d%02d%02d%02d", + local($timestring) = sprintf "%d%02d%02d%02d%02d%02d", $global{YEAR}, $global{MONTH}, $global{DAY}, $global{HOUR}, $global{MINUTE}, $global{SECONDS}; join('', $timestring, $_[0]); @@ -1602,7 +1602,6 @@ sub do_cmd_newdate{ $year = &missing_braces unless ($_[0]=~(s/$next_pair_pr_rx//o)&&($year =$2)); - $userdates{$datename}{day} = $day; $userdates{$datename}{month} = $mon; $userdates{$datename}{year} = $year; |