-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathQMETHOD.DEL
43 lines (37 loc) · 1.16 KB
/
QMETHOD.DEL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
SUBROUTINE QMETHOD.DEL
* remove a user from webpages
*$Copyright (c) 2010 TO 2012 to 2008 mike.ryder@pwchest.com, All Rights Reserved
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
$MODE UV.LOCATE
$CATALOG
$INCLUDE I_WEBCOMMON
$INCLUDE I_SCHEMA
* main *
GOSUB PROCESS
RETURN
***************
* end of main *
***************
* subroutines *
***************
PROCESS:
I.RECORD = HTTPEXTRACT("id")
IF FATAL$ERROR THEN RETURN
****************************************
* call the business logic routine here *
****************************************
READU R.RECORD FROM F.APPLICATION,I.RECORD THEN
DELETE F.APPLICATION,I.RECORD
END ELSE
FATAL$ERROR = WEBERROR("Cannot delete ":I.RECORD)
END
RETURN
******
END