Express rcs_recentchanges() tests via utility functions, in preparation

[git.ikiwiki.info.git] / IkiWiki / Plugin / prettydate.pm

diff --git a/IkiWiki/Plugin/prettydate.pm b/IkiWiki/Plugin/prettydate.pm
index 501f17f5d07e354246f0a149c4738943a38e999d..b0931cb5533b36bcab5cbb3afa514ef75c51f132 100644 (file)
--- a/IkiWiki/Plugin/prettydate.pm
+++ b/IkiWiki/Plugin/prettydate.pm
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 package IkiWiki::Plugin::prettydate;
 #!/usr/bin/perl
 package IkiWiki::Plugin::prettydate;

-use IkiWiki 2.00;
+use IkiWiki 3.00;

 use warnings;
 no warnings 'redefine';
 use strict;
 use warnings;
 no warnings 'redefine';
 use strict;


@@ -33,7 +33,7 @@ sub default_timetable {
                gettext("%A evening"),                          # 6
                "",                                             # 7
                gettext("late %A evening"),                     # 8
                gettext("%A evening"),                          # 6
                "",                                             # 7
                gettext("late %A evening"),                     # 8

-               "",                     # 9                     # 9
+               "",                                             # 9

                gettext("%A night"),                            # 10
                "",                                             # 11
        ];
                gettext("%A night"),                            # 10
                "",                                             # 11
        ];


@@ -118,10 +118,10 @@ sub IkiWiki::formattime ($;$) {
                }
        }
 
                }
        }
 

-       $t=~s{\%A-}{my @yest=@t; $yest[6]--; strftime("%A", \@yest)}eg;
+       $t=~s{\%A-}{my @yest=@t; $yest[6]--; strftime_utf8("%A", \@yest)}eg;

 
        $format=~s/\%X/$t/g;
 
        $format=~s/\%X/$t/g;

-       return strftime($format, \@t);
+       return strftime_utf8($format, \@t);

 }
 
 1
 }
 
 1