Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
acs-reference
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
acs-reference
Commits
8bbcc3f3
Commit
8bbcc3f3
authored
Dec 03, 2015
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- Comitting OpenACS 5.9
parent
ba01eaf3
Changes
8
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
112 additions
and
83 deletions
+112
-83
acs-reference.info
acs-reference.info
+4
-5
acs-reference-create.sql
sql/postgresql/acs-reference-create.sql
+89
-59
index.adp
www/index.adp
+2
-2
index.tcl
www/index.tcl
+1
-1
reference-data-list.adp
www/reference-data-list.adp
+2
-2
table-detail.adp
www/table-detail.adp
+2
-2
view-one-reference.adp
www/view-one-reference.adp
+11
-11
view-one-reference.tcl
www/view-one-reference.tcl
+1
-1
No files found.
acs-reference.info
View file @
8bbcc3f3
...
...
@@ -7,22 +7,21 @@
<initial-install-p>
t
</initial-install-p>
<singleton-p>
t
</singleton-p>
<version
name=
"5.
7.0"
url=
"http://openacs.org/repository/download/apm/acs-reference-5.7.0
.apm"
>
<version
name=
"5.
10.0d1"
url=
"http://openacs.org/repository/download/apm/acs-reference-5.10.0d1
.apm"
>
<owner
url=
"mailto:jon@jongriffin.com"
>
Jon Griffin
</owner>
<summary>
Tools and API for managing refrence data.
</summary>
<release-date>
201
1-06-12
</release-date>
<release-date>
201
3-09-08
</release-date>
<maturity>
3
</maturity>
<vendor
url=
"http://www.mayuli.com"
>
Mayuli Enterprises, LLC
</vendor>
<license
url=
"http://www.gnu.org/copyleft/gpl.html"
>
GPL
</license>
<maturity>
3
</maturity>
<description
format=
"text/html"
>
Reference Data provides an API to support:
<
ul
>
<
li
>
A common set of reference data.
<
li
>
Running standard reports on this data.
<
li
>
Monitoring the usage of reference data.
<
/ul
>
</description>
<provides
url=
"acs-reference"
version=
"5.
7.0
"
/>
<requires
url=
"acs-kernel"
version=
"5.
7.0
"
/>
<provides
url=
"acs-reference"
version=
"5.
10.0d1
"
/>
<requires
url=
"acs-kernel"
version=
"5.
10.0d1
"
/>
<callbacks>
</callbacks>
...
...
sql/postgresql/acs-reference-create.sql
View file @
8bbcc3f3
...
...
@@ -69,35 +69,40 @@ create table acs_reference_repositories (
-- default for Oracle
create
function
acs_reference__new
(
integer
,
varchar
,
boolean
,
varchar
,
timestamptz
,
varchar
,
varchar
,
timestamptz
,
timestamptz
,
integer
,
integer
,
varchar
,
varchar
,
varchar
,
varchar
,
integer
)
returns
integer
as
'
declare
p_repository_id alias for $1; -- default null
p_table_name alias for $2; --
p_internal_data_p alias for $3; -- default "f"
p_package_name alias for $4; -- default null
p_last_update alias for $5; -- default sysdate
p_source alias for $6; -- default null
p_source_url alias for $7; -- default null
p_effective_date alias for $8; -- default sysdate
p_expiry_date alias for $9; -- default null
p_maintainer_id alias for $10; -- default null
p_notes alias for $11; -- default null (not Oracle empty_blob())
-- I really see no need for these as parameters
-- creation_date alias for $12; -- default sysdate
p_first_names alias for $12; -- default null
p_last_name alias for $13; -- default null
p_creation_ip alias for $14; -- default null
p_object_type alias for $15; -- default "acs_reference_repository"
p_creation_user alias for $16; -- default null
-- added
select
define_function_args
(
'acs_reference__new'
,
'repository_id;null,table_name,internal_data_p;"f",package_name;null,last_update;sysdate,source;null,source_url;null,effective_date;sysdate,expiry_date;null,maintainer_id;null,notes;null (not Oracle empty_blob()),first_names;null,last_name;null,creation_ip;null,object_type;"acs_reference_repository",creation_user;null'
);
--
-- procedure acs_reference__new/16
--
CREATE
OR
REPLACE
FUNCTION
acs_reference__new
(
p_repository_id
integer
,
-- default null
p_table_name
varchar
,
p_internal_data_p
boolean
,
-- default "f"
p_package_name
varchar
,
-- default null
p_last_update
timestamptz
,
-- default sysdate
p_source
varchar
,
-- default null
p_source_url
varchar
,
-- default null
p_effective_date
timestamptz
,
-- default sysdate
p_expiry_date
timestamptz
,
-- default null
p_maintainer_id
integer
,
-- default null
p_notes
integer
,
-- default null (not Oracle empty_blob())
p_first_names
varchar
,
-- default null
p_last_name
varchar
,
-- default null
p_creation_ip
varchar
,
-- default null
p_object_type
varchar
,
-- default "acs_reference_repository"
p_creation_user
integer
-- default null
)
RETURNS
integer
AS
$$
DECLARE
v_repository_id
acs_reference_repositories
.
repository_id
%
TYPE
;
v_object_type
acs_objects
.
object_type
%
TYPE
;
v_maintainer_id
persons
.
person_id
%
TYPE
;
begin
BEGIN
if
p_object_type
is
null
then
v_object_type :=
'
'
acs_reference_repository
'
'
;
v_object_type
:
=
'
acs_reference_repository
'
;
else
v_object_type
:
=
p_object_type
;
end
if
;
...
...
@@ -109,7 +114,7 @@ begin
p_creation_user
,
p_creation_ip
,
null
,
'
'
t
'
'
,
'
t
'
,
p_source
,
null
);
...
...
@@ -129,7 +134,7 @@ begin
-- NEEDS TO BE FIXED - jag
if
p_first_names
is
not
null
and
p_last_name
is
not
null
and
p_maintainer_id
is
null
then
v_maintainer_id := person__new (null,
'
'
person
'
'
, now(), null, null, null, null,
v_maintainer_id
:
=
person__new
(
null
,
'
person
'
,
now
(),
null
,
null
,
null
,
null
,
p_first_names
,
p_last_name
,
null
);
else
if
p_maintainer_id
is
not
null
then
v_maintainer_id
:
=
p_maintainer_id
;
...
...
@@ -149,34 +154,49 @@ begin
p_effective_date
,
p_expiry_date
,
v_maintainer_id
,
p_notes
);
return
v_repository_id
;
end;
'
language
'plpgsql'
;
END
;
$$
LANGUAGE
plpgsql
;
-- made initially for PG
create
function
acs_reference__new
(
varchar
,
timestamptz
,
varchar
,
varchar
,
timestamptz
)
returns
integer
as
'
declare
p_table_name alias for $1; --
p_last_update alias for $2; -- default sysdate
p_source alias for $3; -- default null
p_source_url alias for $4; -- default null
p_effective_date alias for $5; -- default sysdate
--
-- procedure acs_reference__new/5
--
CREATE
OR
REPLACE
FUNCTION
acs_reference__new
(
p_table_name
varchar
,
p_last_update
timestamptz
,
-- default sysdate
p_source
varchar
,
-- default null
p_source_url
varchar
,
-- default null
p_effective_date
timestamptz
-- default sysdate
)
RETURNS
integer
AS
$$
DECLARE
v_repository_id
acs_reference_repositories
.
repository_id
%
TYPE
;
begin
return acs_reference__new(null, p_table_name,
'
'
f
'
'
, null, null, p_source, p_source_url,
BEGIN
return
acs_reference__new
(
null
,
p_table_name
,
'
f
'
,
null
,
null
,
p_source
,
p_source_url
,
p_effective_date
,
null
,
null
,
null
,
null
,
null
,
null
,
''
acs_reference_repository
''
, null);
end;
'
language
'plpgsql'
;
'acs_reference_repository'
,
null
);
END
;
$$
LANGUAGE
plpgsql
;
create
function
acs_reference__delete
(
integer
)
returns
integer
as
'
declare
p_repository_id alias for $1;
-- added
select
define_function_args
(
'acs_reference__delete'
,
'repository_id'
);
--
-- procedure acs_reference__delete/1
--
CREATE
OR
REPLACE
FUNCTION
acs_reference__delete
(
p_repository_id
integer
)
RETURNS
integer
AS
$$
DECLARE
v_maintainer_id
acs_objects
.
object_id
%
TYPE
;
begin
BEGIN
select
maintainer_id
into
v_maintainer_id
from
acs_reference_repositories
where
repository_id
=
p_repository_id
;
...
...
@@ -186,24 +206,34 @@ begin
perform
acs_object__delete
(
p_repository_id
);
return
0
;
end;
'
language
'plpgsql'
;
END
;
$$
LANGUAGE
plpgsql
;
create
function
acs_reference__is_expired_p
(
integer
)
returns
char
as
'
declare
repository_id alias for $1;
-- added
select
define_function_args
(
'acs_reference__is_expired_p'
,
'repository_id'
);
--
-- procedure acs_reference__is_expired_p/1
--
CREATE
OR
REPLACE
FUNCTION
acs_reference__is_expired_p
(
repository_id
integer
)
RETURNS
char
AS
$$
DECLARE
v_expiry_date
acs_reference_repositories
.
expiry_date
%
TYPE
;
begin
BEGIN
select
expiry_date
into
v_expiry_date
from
acs_reference_repositories
where
repository_id
=
is_expired_p
.
repository_id
;
if
coalesce
(
v_expiry_date
,
now
()
+
1
)
<
now
()
then
return
'
'
t
'
'
;
return
'
t
'
;
else
return
'
'
f
'
'
;
return
'
f
'
;
end
if
;
end;
'
language
'plpgsql'
;
END
;
$$
LANGUAGE
plpgsql
;
www/index.adp
View file @
8bbcc3f3
<master>
<property name="context">@context_bar;
noquote
@</property>
<property name="
title">@title;noquote
@</property>
<property name="context">@context_bar;
literal
@</property>
<property name="
doc(title)">@title;literal
@</property>
<h2>@title@;noquote</h2>
<ul>
...
...
www/index.tcl
View file @
8bbcc3f3
...
...
@@ -18,6 +18,6 @@ set package_id [ad_conn package_id]
set
context_bar
[
list
$title
]
set
user_id
[
ad_conn user_id
]
set
admin_p
[
ad_permission_p
$package
_id
admin
]
set
admin_p
[
permission::permission_p -object_id
$package
_id -privilege
admin
]
ad_return_template
www/reference-data-list.adp
View file @
8bbcc3f3
<master>
<property name="context">@context_bar;
noquote
@</property>
<property name="
title">@title;noquote
@</property>
<property name="context">@context_bar;
literal
@</property>
<property name="
doc(title)">@title;literal
@</property>
<if @data:rowcount@ eq 0>
<i>You have no reference data in the database right now.</i><p>
...
...
www/table-detail.adp
View file @
8bbcc3f3
<master>
<property name="context">@context_bar;
noquote
@</property>
<property name="
title">@title;noquote
@</property>
<property name="context">@context_bar;
literal
@</property>
<property name="
doc(title)">@title;literal
@</property>
www/view-one-reference.adp
View file @
8bbcc3f3
<master>
<property name="context_bar">@context_bar;
noquote
@</property>
<property name="
title">@title;noquote
@</property>
<property name="context_bar">@context_bar;
literal
@</property>
<property name="
doc(title)">@title;literal
@</property>
<table>
<tr><th valign=
top align=right
>Table Name</th>
<tr><th valign=
"top" align="right"
>Table Name</th>
<td> <a href="table-detail?table_name=@table_info.table_name@">@table_info.table_name@</a> </td></tr>
<tr><th valign=
top align=right
>Package Name</th>
<tr><th valign=
"top" align="right"
>Package Name</th>
<td> @table_info.package_name@ </td></tr>
<tr><th valign=
top align=right
>Internal Data?</th>
<tr><th valign=
"top" align="right"
>Internal Data?</th>
<td> @table_info.internal_data_p@ </td></tr>
<tr><th valign=
top align=right
>Source</th>
<tr><th valign=
"top" align="right"
>Source</th>
<td> @table_info.source@ </td></tr>
<tr><th valign=
top align=right
>Source URL</th>
<tr><th valign=
"top" align="right"
>Source URL</th>
<td> @table_info.source_url@ </td></tr>
<tr><th valign=
top align=right
>Last Update</th>
<tr><th valign=
"top" align="right"
>Last Update</th>
<td> @table_info.last_update@ </td></tr>
<tr><th valign=
top align=right
>Effective Date</th>
<tr><th valign=
"top" align="right"
>Effective Date</th>
<td> @table_info.effective_date@ </td></tr>
<tr><th valign=
top align=right
>Expiry Date</th>
<tr><th valign=
"top" align="right"
>Expiry Date</th>
<td> @table_info.expiry_date@ </td></tr>
<tr><th valign=
top align=right
>Maintainer</th>
<tr><th valign=
"top" align="right"
>Maintainer</th>
<td> @table_info.maintainer_id@ </td></tr>
</table>
...
...
www/view-one-reference.tcl
View file @
8bbcc3f3
...
...
@@ -6,7 +6,7 @@ ad_page_contract {
@creation-date 17 Sept 2001
@cvs-id $Id$
}
{
repository_id:
integer
,notnull
repository_id:
naturalnum
,notnull
}
-properties
{
context_bar:onevalue
package_id:onevalue
...
...
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