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
653a4ff8
Commit
653a4ff8
authored
Oct 19, 2010
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- Upgrade to OpenACS 5.6
parent
2d960697
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
115 additions
and
0 deletions
+115
-0
upgrade-5.0.2-5.0.2d1.sql
sql/oracle/upgrade/upgrade-5.0.2-5.0.2d1.sql
+115
-0
No files found.
sql/oracle/upgrade/upgrade-5.0.2-5.0.2d1.sql
0 → 100644
View file @
653a4ff8
update
acs_objects
set
title
=
(
select
source
from
acs_reference_repositories
where
repository_id
=
object_id
)
where
object_type
=
'acs_reference_repository'
;
create
or
replace
package
body
acs_reference
as
function
new
(
repository_id
in
acs_reference_repositories
.
repository_id
%
TYPE
default
null
,
table_name
in
acs_reference_repositories
.
table_name
%
TYPE
,
internal_data_p
in
acs_reference_repositories
.
internal_data_p
%
TYPE
default
'f'
,
package_name
in
acs_reference_repositories
.
package_name
%
TYPE
default
null
,
last_update
in
acs_reference_repositories
.
last_update
%
TYPE
default
sysdate
,
source
in
acs_reference_repositories
.
source
%
TYPE
default
null
,
source_url
in
acs_reference_repositories
.
source_url
%
TYPE
default
null
,
effective_date
in
acs_reference_repositories
.
effective_date
%
TYPE
default
sysdate
,
expiry_date
in
acs_reference_repositories
.
expiry_date
%
TYPE
default
null
,
notes
in
acs_reference_repositories
.
notes
%
TYPE
default
empty_blob
(),
creation_date
in
acs_objects
.
creation_date
%
TYPE
default
sysdate
,
creation_user
in
acs_objects
.
creation_user
%
TYPE
default
null
,
creation_ip
in
acs_objects
.
creation_ip
%
TYPE
default
null
,
object_type
in
acs_objects
.
object_type
%
TYPE
default
'acs_reference_repository'
,
first_names
in
persons
.
first_names
%
TYPE
default
null
,
last_name
in
persons
.
last_name
%
TYPE
default
null
)
return
acs_objects
.
object_id
%
TYPE
is
v_repository_id
acs_reference_repositories
.
repository_id
%
TYPE
;
v_maintainer_id
persons
.
person_id
%
TYPE
;
begin
v_repository_id
:
=
acs_object
.
new
(
object_id
=>
repository_id
,
creation_date
=>
creation_date
,
creation_user
=>
creation_user
,
creation_ip
=>
creation_ip
,
object_type
=>
object_type
,
title
=>
source
);
if
first_names
is
not
null
and
last_name
is
not
null
then
v_maintainer_id
:
=
person
.
new
(
first_names
=>
first_names
,
last_name
=>
last_name
,
email
=>
null
);
else
v_maintainer_id
:
=
null
;
end
if
;
insert
into
acs_reference_repositories
(
repository_id
,
table_name
,
internal_data_p
,
last_update
,
package_name
,
source
,
source_url
,
effective_date
,
expiry_date
,
maintainer_id
,
notes
)
values
(
v_repository_id
,
table_name
,
internal_data_p
,
last_update
,
package_name
,
source
,
source_url
,
effective_date
,
expiry_date
,
v_maintainer_id
,
notes
);
return
v_repository_id
;
end
new
;
procedure
del
(
repository_id
in
acs_reference_repositories
.
repository_id
%
TYPE
)
is
v_maintainer_id
integer
;
begin
select
maintainer_id
into
v_maintainer_id
from
acs_reference_repositories
where
repository_id
=
acs_reference
.
del
.
repository_id
;
delete
from
acs_reference_repositories
where
repository_id
=
acs_reference
.
del
.
repository_id
;
acs_object
.
del
(
repository_id
);
person
.
del
(
v_maintainer_id
);
end
del
;
function
is_expired_p
(
repository_id
integer
)
return
char
is
v_expiry_date
date
;
begin
select
expiry_date
into
v_expiry_date
from
acs_reference_repositories
where
repository_id
=
is_expired_p
.
repository_id
;
if
nvl
(
v_expiry_date
,
sysdate
+
1
)
<
sysdate
then
return
't'
;
else
return
'f'
;
end
if
;
end
;
end
acs_reference
;
/
show
errors
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