projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
include batch payment and statement events in reports, RT#80156
[freeside.git]
/
FS
/
FS
/
UI
/
bytecount.pm
diff --git
a/FS/FS/UI/bytecount.pm
b/FS/FS/UI/bytecount.pm
index
0891e6d
..
7e78bf5
100644
(file)
--- a/
FS/FS/UI/bytecount.pm
+++ b/
FS/FS/UI/bytecount.pm
@@
-1,10
+1,15
@@
package FS::UI::bytecount;
use strict;
package FS::UI::bytecount;
use strict;
-use vars qw($DEBUG $me);
+use vars qw($DEBUG $me @ISA @EXPORT_OK);
+use Exporter;
use FS::Conf;
use Number::Format 1.50;
use FS::Conf;
use Number::Format 1.50;
+@ISA = qw( Exporter );
+
+@EXPORT_OK = qw( bytecount_unexact parse_bytecount display_bytecount );
+
$DEBUG = 0;
$me = '[FS::UID::bytecount]';
$DEBUG = 0;
$me = '[FS::UID::bytecount]';
@@
-32,9
+37,9
@@
sub bytecount_unexact {
return("$bc bytes")
if ($bc < 1000);
return(sprintf("%.2f Kbytes", $bc/1024))
return("$bc bytes")
if ($bc < 1000);
return(sprintf("%.2f Kbytes", $bc/1024))
- if ($bc < 10
00000
);
+ if ($bc < 10
48576
);
return(sprintf("%.2f Mbytes", $bc/1048576))
return(sprintf("%.2f Mbytes", $bc/1048576))
- if ($bc < 10
00000000
);
+ if ($bc < 10
73741824
);
return(sprintf("%.2f Gbytes", $bc/1073741824));
}
return(sprintf("%.2f Gbytes", $bc/1073741824));
}