archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(TimeToW3): Bugfix.

Browse Source
This commit is contained in:
Alex Schroeder
2005-06-30 23:57:01 +00:00
parent 202c05b716
commit 59a71666fc
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
wiki.pl
View File

@@ -359,7 +359,7 @@ sub InitVariables { # Init global session variables for mod_perl!
unshift(@MyRules, \&MyRules) if defined(&MyRules) && (not @MyRules or $MyRules[0] != \&MyRules);
@MyRules = sort {$RuleOrder{$a} <=> $RuleOrder{$b}} @MyRules; # default is 0
$WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
. $q->p(q{$Id: wiki.pl,v 1.561 2005/06/21 22:09:20 as Exp $});
. $q->p(q{$Id: wiki.pl,v 1.562 2005/06/30 23:57:01 as Exp $});
$WikiDescription .= $ModulesDescription if $ModulesDescription;
foreach my $sub (@MyInitVariables) {
my $result = &$sub;
@@ -2748,8 +2748,9 @@ sub TimeToText {
}
sub TimeToW3 { # Complete date plus hours and minutes: YYYY-MM-DDThh:mmTZD (eg 1997-07-16T19:20+01:00)
my $t = shift; # When times are expressed in UTC, use a special UTC designator ("Z").
return CalcDay($t) . 'T' . CalcTime($t) . 'Z';
# When times are expressed in UTC, use a special UTC designator ("Z").
my ($sec, $min, $hour, $mday, $mon, $year) = gmtime(shift);
return sprintf('%4d-%02d-%02dT%02d:%02dZ', $year+1900, $mon+1, $mday, $hour, $min);
}
sub GetHiddenValue {