| 1 |
diff -urN smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh |
| 2 |
--- smeserver-qmHandle-1.4.old/root/etc/e-smith/web/functions/qmh 2022-09-13 21:29:10.895912128 +0300 |
| 3 |
+++ smeserver-qmHandle-1.4/root/etc/e-smith/web/functions/qmh 2022-09-14 23:12:09.342698624 +0300 |
| 4 |
@@ -509,7 +509,7 @@ |
| 5 |
print $q->hr; |
| 6 |
print $q->p($fm->localise('DELETE_MESSAGE')),"\n"; |
| 7 |
my $Message = `/usr/bin/qmHandle -m$msgid|head -100`; |
| 8 |
- print $q->p ($q->pre ("$Message")); |
| 9 |
+ print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80); |
| 10 |
|
| 11 |
print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1)); |
| 12 |
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, |
| 13 |
@@ -543,7 +543,7 @@ |
| 14 |
print $q->hr; |
| 15 |
print $q->p($fm->localise('DELETE_MESSAGE')),"\n"; |
| 16 |
my $Message = `/usr/bin/qmHandle -X -m$msgid|head -100`; |
| 17 |
- print $q->p ($q->pre ("$Message")); |
| 18 |
+ print $q->textarea (-name => 'message', -override => 1, -default => "$Message", -rows => 30, -cols => 80); |
| 19 |
|
| 20 |
print $q->start_multipart_form(-method => 'POST', -action => $q->url (-absolute => 1)); |
| 21 |
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4}, |
Parent Directory
| 
Revision Log
| 
Revision Graph
