Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow callers to prevent span generation.

Browse Source
This commit is contained in:
Chris 2012-07-31 17:17:32 +01:00
parent 5614890138
commit c6a83bac72
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Template.pm
View File

@ -798,19 +798,22 @@ sub format_time {
}
## @method $ fancy_time($time)
## @method $ fancy_time($time, $nospan)
# Generate a string containing a 'fancy' representation of the time - rather than
# explicitly showing the time, this will generate things like "just now", "less
# than a minute ago", "1 minute ago", "20 minutes ago", etc. The real formatted
# time is provided as the title for a span containing the fancy time.
#
# @param time The time to generate a string for.
# @param nospan Allow the suppression of span generation, in which case only the
# fancy time string is returned.
# @return A string containing a span element representing both the fancy time as
# the element content, and the formatted time as the title. The span has
# the class 'timestr' for css formatting.
sub fancy_time {
my $self = shift;
my $time = shift;
my $nospan = shift;
my $now = time();
my $formatted = $self -> format_time($time);
my $fancytime;
@ -832,6 +835,8 @@ sub fancy_time {
}
}
return $fancytime if(!$nospan);
return '<span class="timestr" title="'.$formatted.'">'.$fancytime.'</span>';
}