Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-timesheet2
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
intranet-timesheet2
Commits
63244855
Commit
63244855
authored
Oct 25, 2007
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- workflow working
parent
4052831b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
41 additions
and
2 deletions
+41
-2
intranet-absences-create.sql
sql/postgresql/intranet-absences-create.sql
+2
-0
new-2.tcl
www/absences/new-2.tcl
+39
-2
No files found.
sql/postgresql/intranet-absences-create.sql
View file @
63244855
...
...
@@ -286,6 +286,8 @@ insert into im_categories(category_id, category, category_type)
values
(
16000
,
'Active'
,
'Intranet Absence Status'
);
insert
into
im_categories
(
category_id
,
category
,
category_type
)
values
(
16002
,
'Deleted'
,
'Intranet Absence Status'
);
insert
into
im_categories
(
category_id
,
category
,
category_type
)
values
(
16004
,
'Requested'
,
'Intranet Absence Status'
);
...
...
www/absences/new-2.tcl
View file @
63244855
...
...
@@ -37,7 +37,7 @@ ad_page_contract {
description:notnull
contact_info:notnull
absence_type_id:integer
{
absence_status_id:integer 1600
0
}
{
absence_status_id:integer 1600
4
}
{
submit_save
""
}
{
submit_del
""
}
}
...
...
@@ -141,7 +141,6 @@ if {"" != $submit_save} {
if
{
$absence
_objectified_p
}
{
db_string ofied
"
SELECT acs_object__new(
:absence_id,
...
...
@@ -153,9 +152,47 @@ if {"" != $submit_save} {
'f'
)
"
}
# Create a workflow
if
{
$absence
_objectified_p
}
{
set wf_key
[
db_string wf_key
"
select aux_string1
from im_categories
where category_id = :absence_type_id
"
-default
""
]
if
{
""
!=
$wf
_key
}
{
# Check that the workflow_key is available
set wf_valid_p
[
db_string wf_valid_check
"
select count(*)
from acs_object_types
where object_type = :wf_key
"
]
if
{
!$wf_valid_p
}
{
ad_return_complaint 1
"Workflow '
$wf
_key' does not exist"
ad_script_abort
}
# Launch the Workflow case
# Context_key not used aparently...
set context_key
""
set case_id
[
wf_case_new
\
$wf
_key
\
$context
_key
\
$absence
_id
]
}
}
}
if
[
catch
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment