Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.adp,v diff -u -r1.3 -r1.4 --- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.adp 6 Sep 2002 13:28:00 -0000 1.3 +++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/index.adp 30 Nov 2002 17:52:13 -0000 1.4 @@ -23,10 +23,10 @@ - + - + @tickets.ticket_id@ @tickets.ticket_name@ Index: openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/main.css =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/main.css,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/main.css 19 Mar 2002 06:49:29 -0000 1.1 +++ openacs-4/contrib/obsolete-packages/ticket-tracker-lite/www/main.css 30 Nov 2002 17:52:13 -0000 1.2 @@ -19,8 +19,8 @@ td.field { background-color: #C8CED7; font-weight: bold } th { font-size: 12px; color: #FFFFFF; background-color: #42679D } -tr.evenrow { background : #ECECEC; } -tr.oddrow { background : #FFFFFF; } +tr.even { background : #ECECEC; } +tr.odd { background : #FFFFFF; } table.full { width: 100%; } table.standard { width: 665; } Index: openacs-4/packages/robot-detection/tcl/robot-detection-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/robot-detection/tcl/robot-detection-procs-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/robot-detection/tcl/robot-detection-procs-oracle.xql 3 May 2001 20:00:36 -0000 1.1 +++ openacs-4/packages/robot-detection/tcl/robot-detection-procs-oracle.xql 30 Nov 2002 17:42:40 -0000 1.2 @@ -1,6 +1,7 @@ - +oracle8.1.6 + select trunc(sysdate - max(nvl(modified_date, insertion_date))) from robots Index: openacs-4/packages/robot-detection/tcl/robot-detection-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/robot-detection/tcl/robot-detection-procs-postgresql.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/robot-detection/tcl/robot-detection-procs-postgresql.xql 3 May 2001 20:00:36 -0000 1.1 +++ openacs-4/packages/robot-detection/tcl/robot-detection-procs-postgresql.xql 30 Nov 2002 17:42:40 -0000 1.2 @@ -1,6 +1,7 @@ - +postgresql7.1 + select trunc(current_time - max(coalesce(modified_date, insertion_date))) from robots Index: openacs-4/packages/rss-support/rss-support.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/rss-support.info,v diff -u -r1.6 -r1.7 --- openacs-4/packages/rss-support/rss-support.info 23 Sep 2002 23:32:31 -0000 1.6 +++ openacs-4/packages/rss-support/rss-support.info 30 Nov 2002 17:43:28 -0000 1.7 @@ -9,7 +9,6 @@ - oracle postgresql Andrew Grumet @@ -65,7 +64,7 @@ - + Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 12 Sep 2002 22:44:31 -0000 1.6 +++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 30 Nov 2002 17:44:11 -0000 1.7 @@ -113,7 +113,7 @@ foreach item $items { array unset iarray array set iarray $item - append rss "\n" + append rss "\n" } append rss "\n" Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 16 Sep 2002 11:31:48 -0000 1.10 +++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 30 Nov 2002 17:44:11 -0000 1.11 @@ -30,7 +30,7 @@ acs_sc_impls i where i.impl_id = r.impl_id and (r.lastbuild is null - or now() - r.lastbuild > interval r.timeout || ' seconds') + or now() - r.lastbuild > cast(r.timeout || ' seconds' as interval)) } { set lastupdate [acs_sc_call RssGenerationSubscriber lastUpdated \ $summary_context_id $impl_name] @@ -63,6 +63,7 @@ $summary_context_id $impl_name] set args "" foreach {name val} $datasource { + regsub -all {[\]\[\{\}""\\$]} $val {\\&} val append args "-$name \"$val\" " if { [lsearch [list channel_link channel_title] $name] >= 0 } { set $name $val @@ -167,10 +168,10 @@ } } - set report_dir /[ad_parameter -package_id [rss_package_id] RssGenOutputDirectory rss-support rss]/$impl_name/${summary_context_id} + set report_dir [acs_root_dir]/[ad_parameter -package_id [rss_package_id] RssGenOutputDirectory rss-support rss]/$impl_name/${summary_context_id} if $assert_p { - rss_assert_dir [ns_info pageroot]$report_dir + rss_assert_dir $report_dir } return $report_dir @@ -181,7 +182,6 @@ -impl_name -subscr_id -assert:boolean - -url:boolean } { Return a file path for the rss subscription with subscr_id or impl_name + summary_context_id provided. @@ -217,11 +217,7 @@ -impl_name $impl_name] } - set report_url $report_dir/rss.xml + set report_file $report_dir/rss.xml - if $url_p { - return $report_url - } else { - return [ns_url2file $report_url] - } + return $report_file } Index: openacs-4/packages/rss-support/www/delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/delete.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/rss-support/www/delete.adp 5 Sep 2002 13:23:33 -0000 1.3 +++ openacs-4/packages/rss-support/www/delete.adp 30 Nov 2002 17:44:39 -0000 1.4 @@ -1,5 +1,5 @@ -Delete Subcription +Delete Subscription @context@ Channel: @channel_title@ Index: openacs-4/packages/rss-support/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/index.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/rss-support/www/index.adp 5 Sep 2002 13:23:33 -0000 1.2 +++ openacs-4/packages/rss-support/www/index.adp 30 Nov 2002 17:44:39 -0000 1.3 @@ -1,5 +1,5 @@ -Rss Support Home +RSS Support Home
    Index: openacs-4/packages/rss-support/www/subscr-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscr-ae.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/rss-support/www/subscr-ae.adp 5 Sep 2002 13:23:33 -0000 1.4 +++ openacs-4/packages/rss-support/www/subscr-ae.adp 30 Nov 2002 17:44:39 -0000 1.5 @@ -1,5 +1,5 @@ -@pretty_action@ a Subcription +@pretty_action@ a Subscription @context@
    Index: openacs-4/packages/search/search.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/search/search.info,v diff -u -r1.6 -r1.7 --- openacs-4/packages/search/search.info 23 Sep 2002 23:32:32 -0000 1.6 +++ openacs-4/packages/search/search.info 30 Nov 2002 17:45:10 -0000 1.7 @@ -7,16 +7,16 @@ t f - + oracle postgresql Neophytos Demetriou - 2002-05-15 + 2002-10-27 OpenACS - + @@ -30,13 +30,13 @@ - + @@ -45,6 +45,7 @@ + @@ -53,14 +54,13 @@ - - - - - + + + + Index: openacs-4/packages/search/sql/postgresql/search-packages-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/search/sql/postgresql/search-packages-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/search/sql/postgresql/search-packages-create.sql 2 Jul 2002 01:52:39 -0000 1.2 +++ openacs-4/packages/search/sql/postgresql/search-packages-create.sql 30 Nov 2002 17:46:00 -0000 1.3 @@ -24,15 +24,15 @@ create function search_observer__dequeue(integer,timestamp,varchar) returns integer as ' declare - p_object_id alias for $1; - p_event_date alias for $2; - p_event alias for $3; + p_object_id alias for $1; + p_event_date alias for $2; + p_event alias for $3; begin delete from search_observer_queue where object_id = p_object_id and event = p_event - and event_date = p_event_date; + and to_char(event_date,''yyyy-mm-dd hh24:mi:ss.us-tz'') = to_char(p_event_date,''yyyy-mm-dd hh24:mi:ss.us-tz''); return 0; Index: openacs-4/packages/search/tcl/search-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/search/tcl/search-procs.xql 2 Jul 2002 19:33:06 -0000 1.2 +++ openacs-4/packages/search/tcl/search-procs.xql 30 Nov 2002 17:46:41 -0000 1.3 @@ -12,7 +12,7 @@ - select ':content' as content, + select :content as content, 'file' as storage_type from dual Index: openacs-4/packages/shipping-gateway/www/doc/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/shipping-gateway/www/doc/index.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/shipping-gateway/www/doc/index.adp 12 Sep 2002 19:11:26 -0000 1.3 +++ openacs-4/packages/shipping-gateway/www/doc/index.adp 30 Nov 2002 17:47:10 -0000 1.4 @@ -39,7 +39,7 @@ interfaces by shipping companies and the limited capabilities of the current ACS Service Contract API warrant a careful and deliberate approach. Future versions - will grow in capabilities while maitaining back-wards compatibility + will grow in capabilities while maintaining backwards compatibility where possible.

    Usage

    Index: openacs-4/packages/simple-survey/www/admin/view-text-responses-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/view-text-responses-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/simple-survey/www/admin/view-text-responses-oracle.xql 2 Jul 2001 21:46:55 -0000 1.1 +++ openacs-4/packages/simple-survey/www/admin/view-text-responses-oracle.xql 30 Nov 2002 17:47:45 -0000 1.2 @@ -1,5 +1,6 @@ +oracle8.1.6 Index: openacs-4/packages/simple-survey/www/admin/view-text-responses-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/view-text-responses-postgresql.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/simple-survey/www/admin/view-text-responses-postgresql.xql 5 Jul 2001 16:15:20 -0000 1.2 +++ openacs-4/packages/simple-survey/www/admin/view-text-responses-postgresql.xql 30 Nov 2002 17:47:45 -0000 1.3 @@ -1,5 +1,6 @@ +postgresql7.1 Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/static-pages/tcl/static-pages-sc-procs-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/static-pages/tcl/static-pages-sc-procs.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/static-pages/www/admin/display-policy-toggle-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/static-pages/www/admin/display-policy-toggle-orcale.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/static-pages/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/www/admin/index.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/static-pages/www/admin/index.adp 6 Sep 2002 21:51:05 -0000 1.3 +++ openacs-4/packages/static-pages/www/admin/index.adp 30 Nov 2002 17:49:14 -0000 1.4 @@ -9,5 +9,5 @@

    -Change permissions +Change permissions or comment display settings

    Index: openacs-4/packages/survey/sql/postgresql/survey-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/sql/postgresql/survey-create.sql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/survey/sql/postgresql/survey-create.sql 22 Nov 2002 02:12:39 -0000 1.5 +++ openacs-4/packages/survey/sql/postgresql/survey-create.sql 30 Nov 2002 17:49:43 -0000 1.6 @@ -1,4 +1,4 @@ --- ported to OpenACS 4 by Gilbert Wong (gwong@orchardlabs.com) on 2001-05-20 + -- ported to OpenACS 4 by Gilbert Wong (gwong@orchardlabs.com) on 2001-05-20 -- -- based on student work from 6.916 in Fall 1999 -- which was in turn based on problem set 4 Index: openacs-4/packages/survey/sql/postgresql/survey-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/sql/postgresql/survey-drop.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/survey/sql/postgresql/survey-drop.sql 16 Sep 2002 01:04:53 -0000 1.2 +++ openacs-4/packages/survey/sql/postgresql/survey-drop.sql 30 Nov 2002 17:49:43 -0000 1.3 @@ -10,15 +10,6 @@ select drop_package('survey_section'); select drop_package('survey'); -drop table survey_logic_surveys_map; -drop view survey_logic_id_sequence; -drop sequence survey_logic_id_seq; -drop table survey_logic; -drop table survey_choice_scores; -drop table survey_variables_surveys_map; -drop table survey_variables; -drop view survey_variable_id_sequence; -drop sequence survey_variable_id_seq; drop view survey_responses_latest; drop view survey_ques_responses_latest; drop table survey_question_responses; Index: openacs-4/packages/survey/sql/postgresql/survey-notifications-init.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/sql/postgresql/survey-notifications-init.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/survey/sql/postgresql/survey-notifications-init.sql 15 Sep 2002 23:57:48 -0000 1.1 +++ openacs-4/packages/survey/sql/postgresql/survey-notifications-init.sql 30 Nov 2002 17:49:43 -0000 1.2 @@ -1,62 +1,71 @@ --- daveb: not tested, this will probably break on postgresql -- Survey -- --- -- @author dave@thedesignexperience.org, ben@openforce.biz +-- @author dave@thedesignexperience.org, ben@openforce.biz -- @creation-date 2002-08-03 -- -- integration with Notifications +create function inline_0 () +returns integer as ' declare impl_id integer; v_foo integer; begin -- the notification type impl impl_id := acs_sc_impl__new ( - 'NotificationType', - 'survey_response_notif_type', - 'survey' + ''NotificationType'', + ''survey_response_notif_type'', + ''survey'' ); - v_foo := acs_sc_impl__new_alias ( - 'NotificationType', - 'survey_response_notif_type', - 'GetURL', - 'survey::notification::get_url', - 'TCL' + v_foo := acs_sc_impl_alias__new ( + ''NotificationType'', + ''survey_response_notif_type'', + ''GetURL'', + ''survey::notification::get_url'', + ''TCL'' ); - v_foo := acs_sc_impl__new_alias ( - 'NotificationType', - 'survey_response_notif_type', - 'ProcessReply', - 'survey::notification::process_reply', - 'TCL' + v_foo := acs_sc_impl_alias__new ( + ''NotificationType'', + ''survey_response_notif_type'', + ''ProcessReply'', + ''survey::notification::process_reply'', + ''TCL'' ); - acs_sc_binding__new ( - contract_name => 'NotificationType', - impl_name => 'survey_response_notif_type' + perform acs_sc_binding__new ( + ''NotificationType'', + ''survey_response_notif_type'' ); v_foo:= notification_type__new ( - short_name => 'survey_response_notif', - sc_impl_id => impl_id, - pretty_name => 'Survey Response Notification', - description => 'Notifications for Survey', - creation_user => NULL, - creation_ip => NULL + NULL, + impl_id, + ''survey_response_notif'', + ''Survey Response Notification'', + ''Notifications for Survey'', + current_timestamp, + NULL, + NULL, + NULL ); -- enable the various intervals and delivery methods insert into notification_types_intervals (type_id, interval_id) select v_foo, interval_id - from notification_intervals where name in ('instant','hourly','daily'); + from notification_intervals where name in (''instant'',''hourly'',''daily''); insert into notification_types_del_methods (type_id, delivery_method_id) select v_foo, delivery_method_id - from notification_delivery_methods where short_name in ('email'); + from notification_delivery_methods where short_name in (''email''); +return 0; +end;' language 'plpgsql'; -end; +select inline_0(); +drop function inline_0(); + + Index: openacs-4/packages/survey/tcl/survey-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs-oracle.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/survey/tcl/survey-procs-oracle.xql 4 Nov 2002 02:42:46 -0000 1.2 +++ openacs-4/packages/survey/tcl/survey-procs-oracle.xql 30 Nov 2002 17:50:15 -0000 1.3 @@ -79,24 +79,21 @@     - - - select r.initial_response_id, r.responding_user_id, r.response_id, + + + select r.initial_response_id, r.responding_user_id, r.response_id, u.first_names || ' ' || u.last_name as user_name, edit_p, o.creation_date as response_date - from (select survey_response.initial_user_id(response_id) as respon\ -ding_user_id, - survey_response.initial_response_id(response_id) as initial_r\ -esponse_id, - response_id, (case when initial_response_id is NULL then 'f' \ -else 't' end) as edit_p + from (select survey_response.initial_user_id(response_id) as responding_user_id, + survey_response.initial_response_id(response_id) as initial_response_id, + response_id, (case when initial_response_id is NULL then 'f' else 't' end) as edit_p from survey_responses) r, acs_objects o, cc_users u where r.response_id=:response_id and r.responding_user_id = u.user_id and r.response_id = o.object_id - - + +     Index: openacs-4/packages/survey/tcl/survey-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs-postgresql.xql,v diff -u -r1.3 -r1.4 --- openacs-4/packages/survey/tcl/survey-procs-postgresql.xql 31 Oct 2002 13:34:49 -0000 1.3 +++ openacs-4/packages/survey/tcl/survey-procs-postgresql.xql 30 Nov 2002 17:50:15 -0000 1.4 @@ -43,4 +43,39 @@ and r.response_id = o.object_id     + + + + select survey__new ( + NULL, + :name, + :description, + :description_html_p, + :single_response_p, + :editable_p, + :enabled_p, + :single_section_p, + :type, + :display_type, + :package_id, + :user_id, + :package_id + ); + + + + + + select survey_section__new ( + NULL, + :new_survey_id, + :name, + :description, + :description_html_p, + :user_id, + :package_id + ); + + +     \ No newline at end of file