branch | foerste |
changeset 51 | fd55e111838d |
parent 50 | aca7592c284b |
child 52 | aad3d38deac0 |
--- a/account.pm Mon Nov 28 15:04:40 2011 +0100 +++ b/account.pm Tue Nov 29 13:19:44 2011 +0100 @@ -471,6 +471,7 @@ my $elem = ''; $elem = shift @q while defined $elem and $elem ne 'STORAGE'; my ( $used, $max ) = map { int( $_ / 1024 ) } @q[ 0 .. 1 ]; + $max ||= 1; print ", quota '$qr': $used/${max}MB " . int( 100 * $used / $max ) . "%"; $has_quota = 1;