% my $btn = l("SAVE"); %= form_for "/quota2" => (method => "POST") => begin

%=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", class => "label" %= $name, class => "input"

%=l "quo_LIMIT_WITH_GRACE", class => "label" % param "Soft" => $quo_datas->{softlim} unless param "Soft"; %= text_field "Soft", class => "input"

%=l "quo_ABS_LIMIT", class => "label" % param "Hard" => $quo_datas->{hardlim} unless param "Hard"; %= text_field "Hard", class => "input"

%= submit_button "$btn", class => "action"

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