% my $btn = l("SAVE");

<%= l "quo_MODIFY_USER_TITLE" %>

% my $userid = $quo_datas->{user}; % my $user = $quo_datas->{userRec}; % my $uid = getpwnam($user->key); % unless ($uid) { % warn(l("COULD_NOT_GET_UID"),$user->key); % next; % } % my $name = $user->prop("FirstName") . " " . $user->prop("LastName"); % my $dev = Quota::getqcarg("/home/e-smith/files"); % my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid);

<%= l "quo_USER" %> <%= "$name (\"$userid\")" %> <%= l "quo_CURRENTLY_HAS" %> <%= $ic %> <%= l "files" %> <%= l "quo_OCCUPYING" %> <%= $c->toMB($bc) %> <%= l "megabytes" %>

<%= l "quo_INSTRUCTIONS" %>

<%= l "quo_USER" %>

<%= $name %>

% param "Soft" => $quo_datas->{softlim} unless param "Soft";

<%=l "quo_LIMIT_WITH_GRACE" %>

% param "Hard" => $quo_datas->{hardlim} unless param "Hard";

<%= l "quo_ABS_LIMIT" %>

<%= hidden_field "trt" => $quo_datas->{trt} %> <%= hidden_field "user" => $quo_datas->{user} %>