smecontribs/smeserver-qmHandle
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Tue Oct 07 2025 Brian Read <brianr@koozali.org> 1.4-32.sme

Browse Source 
- Apply change from startform to start_form and endform to end_form to CGI panels [SME: 12775-87]
This commit is contained in:
Brian Read
2025-10-08 08:11:38 +01:00
parent 6fdbdbc1e8
commit 1a1f9d6bfe
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
root/etc/e-smith/web/functions/qmh
View File

@@ -125,7 +125,7 @@ sub showInitial
my $default_action = 'list-queues';
print $q->startform(
print $q->start_form(
-method => 'POST',
-action => $q->url (-absolute => 1)
),"\n";
@@ -165,7 +165,7 @@ sub showInitial
-default => 'perform'
),"\n";
print $q->endform,"\n";
print $q->end_form,"\n";
esmith::cgi::genFooter($fm);
@@ -520,7 +520,7 @@ sub showDeleteMessageNumber ($)
print $q->hidden (-name => 'msgid', -override => 1, -default => "$msgid");
print $q->hidden (-name => 'function', -override => 1, -default => 'delete-message-number');
print $q->hidden (-name => 'queue', -override => 1, -default => "$queuetype");
print $q->endform;
print $q->end_form;
esmith::cgi::genFooter ($q);
return;
@@ -555,7 +555,7 @@ sub showDeleteAltMessageNumber ($)
print $q->hidden (-name => 'msgid', -override => 1, -default => "$msgid");
print $q->hidden (-name => 'function', -override => 1, -default => 'delete-message-number');
print $q->hidden (-name => 'queue', -override => 1, -default => "$queuetype");
print $q->endform;
print $q->end_form;
esmith::cgi::genFooter ($q);
return;
@@ -591,7 +591,7 @@ sub deleteMessageNumber ($)
print $q->hidden (-name => 'state', -override => 1, -default => 'perform');
print $q->hidden (-name => 'function', -override => 1, -default => "$queuetype");
print $q->endform;
print $q->end_form;
esmith::cgi::genFooter ($q);
return;
@@ -626,7 +626,7 @@ sub deleteAltMessageNumber ($)
print $q->hidden (-name => 'state', -override => 1, -default => 'perform');
print $q->hidden (-name => 'function', -override => 1, -default => "$queuetype");
print $q->endform;
print $q->end_form;
esmith::cgi::genFooter ($q);
return;