Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-forum
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-forum
Commits
e5a57e7f
Commit
e5a57e7f
authored
Oct 08, 2004
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Localization
parent
aa360631
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
54 additions
and
6 deletions
+54
-6
assign-postgresql.xql
www/assign-postgresql.xql
+38
-0
assign.adp
www/assign.adp
+9
-0
assign.tcl
www/assign.tcl
+2
-2
new.tcl
www/new.tcl
+5
-4
No files found.
www/assign-postgresql.xql
0 → 100644
View file @
e5a57e7f
<?xml version="1.0"?>
<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN" "/usr/share/emacs/DTDs/xql.dtd">
<!-- packages/intranet-forum/www/assign-postgresql.xql -->
<!-- @author Juanjo Ruiz (juanjoruizx@yahoo.es) -->
<!-- @creation-date 2004-10-08 -->
<!-- @arch-tag a41695ea-3ad6-41b9-a1d1-d8a670854fb2 -->
<!-- @cvs-id $Id$ -->
<queryset>
<rdbms>
<type>
postgresql
</type>
<version>
7.2
</version>
</rdbms>
<fullquery
name=
"get_topic"
>
<querytext>
select
t.*,
m.read_p,
m.folder_id,
m.receive_updates,
im_category_from_id(t.topic_status_id) as topic_status,
im_category_from_id(t.topic_type_id) as topic_type,
im_name_from_user_id(t.owner_id) as owner_name,
im_name_from_user_id(t.asignee_id) as asignee_name,
acs_object__name(t.object_id) as object_name
from
im_forum_topics t
LEFT JOIN
(select * from im_forum_topic_user_map where user_id=:user_id) m USING (topic_id)
where
t.topic_id=:topic_id
</querytext>
</fullquery>
</queryset>
www/assign.adp
0 → 100644
View file @
e5a57e7f
<!-- packages/intranet-forum/www/assign.adp -->
<!-- @author Juanjo Ruiz (juanjoruizx@yahoo.es) -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<master src="../../intranet-core/www/master">
<property name="title"></property>
<property name="context"></property>
@page_body;noquote@
\ No newline at end of file
www/assign.tcl
View file @
e5a57e7f
...
...
@@ -107,7 +107,7 @@ append table_body "
<tr
$bgcolor
(
[
expr
$ctr
% 2
]
)>
<td>
[
_ intranet-forum.Assign_to
]
:</td>
<td>
[
im_select asignee_id
$asignee
_list
$asignee
_id
]
[
im_select
-translate_p 0
asignee_id
$asignee
_list
$asignee
_id
]
</td>
</tr>
\n
"
incr
ctr
...
...
@@ -144,7 +144,7 @@ $table_body
"
doc_return 200 text/html
[
im_return_template
]
ad_return_template
...
...
www/new.tcl
View file @
e5a57e7f
...
...
@@ -168,15 +168,16 @@ if {!$done && $topic_id == 0} {
set owner_id
$user
_id
set asignee_id
""
set due_date
$todays
_date
set topic_type
[
lang::util::suggest_key
[
db_string topic_sql
"select category from im_categories where category_id=:topic_type_id"
-default
""
]
set topic_type
[
lang::util::suggest_key
[
db_string topic_sql
"select category from im_categories where category_id=:topic_type_id"
-default
""
]
]
set topic_type
[
_ intranet-forum.$topic_type
]
set submit_action
"
[
_ intranet-forum.Create_topic_type
]
"
set page_title
"
[
_ intranet-forum.New_topic_type
]
"
set context_bar
[
ad_context_bar
[
list
/intranet-forum/
"
[
_ intranet-forum.Forum
]
"
]
$page
_title
]
set subject
""
[
_ intranet-forum.Enter_subject
]
"
set message "
[
_ intranet-forum.Enter_message_body
]
"
set subject
"
[
_ intranet-forum.Enter_subject
]
"
#set message
"
[
_ intranet-forum.Enter_message_body
]
"
set message
""
set done 1
}
...
...
@@ -370,7 +371,7 @@ if {$task_or_incident_p} {
<tr
$bgcolor
(
[
expr
$ctr
% 2
]
)>
<td>
[
_ intranet-forum.Assign_to
]
</td>
<td>
[
im_select asignee_id
$asignee
_list
$asignee
_id
]
[
im_select
-translate_p 0
asignee_id
$asignee
_list
$asignee
_id
]
</td>
</tr>
\n
"
incr ctr
...
...
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