Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-rest
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
0
Merge Requests
0
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-rest
Commits
6a52f417
Commit
6a52f417
authored
Jun 22, 2011
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- REST Interface:
Cought the case of an error creating an object
parent
c40d576c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
1 deletion
+5
-1
intranet-rest-procs.tcl
tcl/intranet-rest-procs.tcl
+4
-0
intranet-rest-util-procs.tcl
tcl/intranet-rest-util-procs.tcl
+1
-1
No files found.
tcl/intranet-rest-procs.tcl
View file @
6a52f417
...
@@ -1428,6 +1428,10 @@ ad_proc -private im_rest_post_object_type {
...
@@ -1428,6 +1428,10 @@ ad_proc -private im_rest_post_object_type {
]]
]]
# Extract the object's id from the return array and write into object_id in case a client needs the info
# Extract the object's id from the return array and write into object_id in case a client needs the info
if
{
!
[
info
exists hash_array
(
rest_oid
)]}
{
# Probably after an im_rest_error
ns_log Error
"im_rest_post_object_type: Didn't find hash_array(rest_oid): This should never happened"
.
}
set rest_oid
$hash
_array
(
rest_oid
)
set rest_oid
$hash
_array
(
rest_oid
)
set hash_array
(
object_id
)
$rest
_oid
set hash_array
(
object_id
)
$rest
_oid
ns_log Notice
"im_rest_post_object_type: After calling im_rest_post_object_type_
$rest
_otype: rest_oid=
$rest
_oid, hash_array=
[
array
get hash_array
]
"
ns_log Notice
"im_rest_post_object_type: After calling im_rest_post_object_type_
$rest
_otype: rest_oid=
$rest
_oid, hash_array=
[
array
get hash_array
]
"
...
...
tcl/intranet-rest-util-procs.tcl
View file @
6a52f417
...
@@ -791,7 +791,7 @@ ad_proc -public im_rest_error {
...
@@ -791,7 +791,7 @@ ad_proc -public im_rest_error {
}
}
}
}
return
ad_script_abort
}
}
...
...
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