% elsif (exists $ARGS{change_subj}) {
%   $db->do(<<"DONE");
%       update docdirs set title='$ARGS{title}', subj_id='$ARGS{subjid}', 
%       pages='$ARGS{pages}'    where id='$ARGS{change_dd}';");
%DONE