@ISA = qw(Exporter);
@EXPORT = qw(&dbw_connect &ocean_list $sourcebasedir
&to_json_shim &to_json_protecttags
- &set_ctype_utf8);
+ &set_ctype_utf8
+ &prettyprint_age &meta_prettyprint_age);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw();
return $j;
}
+sub meta_prettyprint_age ($$$) {
+ my ($age,$floor,$plus) = @_;
+ return <<END;
+ $age < 60 ? 'less than a minute' :
+ $age < 60*2 ? '1 minute' :
+ $age < 3600*2 ? $floor ($age/60) $plus' minutes' :
+ $age < 86400*2 ? $floor ($age/3600) $plus ' hours' :
+ $floor ($age/86400) $plus ' days';
+END
+};
+
+BEGIN { eval '
+ sub prettyprint_age (\$) {
+ my ($age) = @_;
+ '.meta_prettyprint_age('$age','floor','.').'
+ };
+ 1;
+' or die "$@";
+}
+
+
1;
</%args>
<%once>
-my $meta_prettyprint_age= sub {
- my ($age,$floor,$plus) = @_;
- return <<END;
- $age < 60 ? 'less than a minute' :
- $age < 60*2 ? '1 minute' :
- $age < 3600*2 ? $floor ($age/60) $plus' minutes' :
- $age < 86400*2 ? $floor ($age/3600) $plus ' hours' :
- $floor ($age/86400) $plus ' days';
-END
-};
-
-my $prettyprint_age;
-eval '
- $prettyprint_age= sub {
- my ($age) = @_;
- '.$meta_prettyprint_age->('$age','floor','.').'
- };
-' or die "$@";
</%once>
<tr id=<% $rowid %>
> <td><% $row->{'archipelago'} |h
%> <td><% $row->{'islandname'} |h
- %> <td id="<% $cellid %>"><% $prettyprint_age->($age) %> </tr>
+ %> <td id="<% $cellid %>"><% prettyprint_age($age) %> </tr>
% }
</table>
var cellid= 'c'+rowid;
var el= document.getElementById(cellid);
var age= oldage + (now - da_pageload) / 1000;
- var newhtml= <% $meta_prettyprint_age->('age','Math.floor','+') %>;
+ var newhtml= <% meta_prettyprint_age('age','Math.floor','+') %>;
% if ($ARGS{debug}) {
if (cellid == 'cid_loaded')
debug('element rowid='+rowid+' cellid='+cellid