+ my $clth = 30 + $self->{width} - 80; # allow comment to grow according the screen width
+ # --$clth if $self->{consort} eq 'local';
+
+ my $comment = substr (($_[3] || ''), 0, $clth);
+ $comment =~ s/\t/ /g;
+
+ $comment .= ' ' x ($clth - (length($comment)));
+
+ if ($self->{user}->wantgrid) {
+ my $ref = DXUser::get_current($_[1]);
+ if ($ref && $ref->qra) {
+ my $cloc = ' ' . substr($ref->qra, 0, 4);
+ $comment = substr $comment, 0, ($clth - (length($comment)+length($cloc)));
+ $comment .= $cloc;
+ }
+ my $origin = $_[4];
+ $origin =~ s/-#$//; # sigh......
+ $ref = DXUser::get_current($origin);
+ if ($ref && $ref->qra) {
+ $loc = ' ' . substr($ref->qra, 0, 4);
+ }
+ } elsif ($self->{user}->wantdxitu) {