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
0bafb633
Commit
0bafb633
authored
May 13, 2004
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
changes from milengo2
parent
bea3c739
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
5 additions
and
7 deletions
+5
-7
intranet-forum-create.sql
sql/oracle/intranet-forum-create.sql
+1
-3
index.tcl
www/index.tcl
+1
-1
new.tcl
www/new.tcl
+3
-3
No files found.
sql/oracle/intranet-forum-create.sql
View file @
0bafb633
...
@@ -286,9 +286,7 @@ begin
...
@@ -286,9 +286,7 @@ begin
select
menu_id
select
menu_id
into
v_main_menu
into
v_main_menu
from
im_menus
from
im_menus
where
url
=
'/'
;
where
label
=
'main'
;
delete
from
im_menus
where
package_name
=
'intranet-forum'
;
v_menu
:
=
im_menu
.
new
(
v_menu
:
=
im_menu
.
new
(
package_name
=>
'intranet-forum'
,
package_name
=>
'intranet-forum'
,
...
...
www/index.tcl
View file @
0bafb633
...
@@ -156,7 +156,7 @@ set forum_content [im_forum_component \
...
@@ -156,7 +156,7 @@ set forum_content [im_forum_component \
# ---------------------------------------------------------------
# ---------------------------------------------------------------
set
page_body
"
set
page_body
"
<form method=get action='
/
index'>
<form method=get action='index'>
[
export_form_vars forum_group_id forum_start_idx forum_order_by forum_how_many forum_view_name
]
[
export_form_vars forum_group_id forum_start_idx forum_order_by forum_how_many forum_view_name
]
$filter
_html
$filter
_html
</form>
</form>
...
...
www/new.tcl
View file @
0bafb633
...
@@ -138,7 +138,7 @@ where
...
@@ -138,7 +138,7 @@ where
set page_title
"New
$topic
_type"
set page_title
"New
$topic
_type"
set context_bar
[
ad_context_bar
[
list
/intranet-forum/ Forum
]
$page
_title
]
set context_bar
[
ad_context_bar
[
list
/intranet-forum/ Forum
]
$page
_title
]
set subject
"Re:
$subject
"
set subject
"Re:
$subject
"
set message
"
<Enter message body>
"
set message
"
Enter message body
"
set done 1
set done 1
}
}
...
@@ -174,8 +174,8 @@ if {!$done && $topic_id == 0} {
...
@@ -174,8 +174,8 @@ if {!$done && $topic_id == 0} {
set page_title
"New
$topic
_type"
set page_title
"New
$topic
_type"
set context_bar
[
ad_context_bar
[
list
/intranet-forum/ Forum
]
$page
_title
]
set context_bar
[
ad_context_bar
[
list
/intranet-forum/ Forum
]
$page
_title
]
set subject
"
<Enter subject>
"
set subject
"
Enter subject
"
set message
"
<Enter message body>
"
set message
"
Enter message body
"
set done 1
set done 1
}
}
...
...
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