version 1.71, 2013/01/04 17:46:00
|
version 1.73, 2013/07/15 16:13:21
|
Line 641 sub print_request_receipt {
|
Line 641 sub print_request_receipt {
|
adin => 'Additional information recorded', |
adin => 'Additional information recorded', |
); |
); |
|
|
my (@ok_ccs,@bad_ccs,$badccmsg,$okcclist,$public,$homeserver); |
my (@ok_ccs,@bad_ccs,$badccmsg,$okcclist,$homeserver); |
if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) { |
unless ($public) { |
$public = 1; |
|
} else { |
|
if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
if (($env{'user.name'} ne '') && ($env{'user.domain'} ne '')) { |
$homeserver = &Apache::lonnet::homeserver($env{'user.name'}, |
$homeserver = &Apache::lonnet::homeserver($env{'user.name'}, |
$env{'user.domain'}); |
$env{'user.domain'}); |
Line 746 END
|
Line 744 END
|
|
|
$r->print(<<"END"); |
$r->print(<<"END"); |
$start_page |
$start_page |
<form name="logproblem"> |
<form name="logproblem" action=""> |
<input type="hidden" name="command" value="result" /> |
<input type="hidden" name="command" value="result" /> |
</form> |
</form> |
END |
END |
Line 816 END
|
Line 814 END
|
|
|
my $attachmentpath = ''; |
my $attachmentpath = ''; |
my $attachmentsize = ''; |
my $attachmentsize = ''; |
if ((defined($env{'user.name'})) && ($env{'user.name'} ne 'public') |
if ((defined($env{'user.name'})) && (!$public)) { |
&& ($env{'user.domain'} ne 'public')) { |
|
if ($homeserver && $env{'form.screenshot.filename'}) { |
if ($homeserver && $env{'form.screenshot.filename'}) { |
$attachmentsize = length($env{'form.screenshot'}); |
$attachmentsize = length($env{'form.screenshot'}); |
if ($attachmentsize > 131072) { |
if ($attachmentsize > 131072) { |