This commit was manufactured by cvs2svn to create tag 'v3-0-0-0-6'.

Sprout from master 2005-05-03 15:25:51 UTC Frank Bergmann  <frank.bergmann@project-open.com> '- started tagging script - even though that's not necessary, really'
Delete:
    all-apm.sh
    all-catalog-edit.sh
    all-checkout.sh
    all-security-check.perl
    all-tgz.sh
    all-version-packages.perl
    catalog/intranet-core.de_DE.ISO-8859-1.xml
    catalog/intranet-core.en_US.ISO-8859-1.xml
    intranet-core.info
    sql/common/intranet-biz-objects.sql
    sql/common/intranet-categories.sql
    sql/common/intranet-core-backup.sql
    sql/common/intranet-country-codes.sql
    sql/common/intranet-currency-codes.sql
    sql/common/intranet-views.sql
    sql/oracle/intranet-biz-objects.sql
    sql/oracle/intranet-categories.sql
    sql/oracle/intranet-companies.sql
    sql/oracle/intranet-components.sql
    sql/oracle/intranet-core-create.sql
    sql/oracle/intranet-core-drop.sql
    sql/oracle/intranet-country-codes.sql
    sql/oracle/intranet-currency-codes.sql
    sql/oracle/intranet-menus.sql
    sql/oracle/intranet-offices.sql
    sql/oracle/intranet-permissions.sql
    sql/oracle/intranet-projects.sql
    sql/oracle/intranet-users.sql
    sql/oracle/intranet-views.sql
    sql/oracle/upgrade/upgrade-2.0.0-2.0.1.sql
    sql/oracle/upgrade/upgrade-2.0.2-2.1.0.sql
    sql/postgresql/intranet-biz-objects.sql
    sql/postgresql/intranet-categories.sql
    sql/postgresql/intranet-companies.sql
    sql/postgresql/intranet-components.sql
    sql/postgresql/intranet-core-create.sql
    sql/postgresql/intranet-core-drop.sql
    sql/postgresql/intranet-country-codes.sql
    sql/postgresql/intranet-currency-codes.sql
    sql/postgresql/intranet-menus.sql
    sql/postgresql/intranet-offices.sql
    sql/postgresql/intranet-permissions.sql
    sql/postgresql/intranet-projects.sql
    sql/postgresql/intranet-users.sql
    sql/postgresql/intranet-views.sql
    sql/stage-win32.sql
    tcl/intranet-alert-procs.tcl
    tcl/intranet-backup-procs-oracle.xql
    tcl/intranet-backup-procs-postgresql.xql
    tcl/intranet-backup-procs.tcl
    tcl/intranet-biz-object-procs-oracle.xql
    tcl/intranet-biz-object-procs-postgresql.xql
    tcl/intranet-biz-object-procs.tcl
    tcl/intranet-chart-procs.tcl
    tcl/intranet-cmdline-procs.tcl
    tcl/intranet-company-procs-oracle.xql
    tcl/intranet-company-procs-postgresql.xql
    tcl/intranet-company-procs.tcl
    tcl/intranet-compat-procs.tcl
    tcl/intranet-component-procs.tcl
    tcl/intranet-defs-procs.tcl
    tcl/intranet-design-procs.tcl
    tcl/intranet-dynview-procs.tcl
    tcl/intranet-fileutil-procs.tcl
    tcl/intranet-functional-procs.tcl
    tcl/intranet-help-procs.tcl
    tcl/intranet-menu-procs.tcl
    tcl/intranet-office-procs-oracle.xql
    tcl/intranet-office-procs-postgresql.xql
    tcl/intranet-office-procs.tcl
    tcl/intranet-permission-procs.tcl
    tcl/intranet-portrait-procs-postgresql.xql
    tcl/intranet-portrait-procs.tcl
    tcl/intranet-profile-procs.tcl
    tcl/intranet-project-procs-postgresql.xql
    tcl/intranet-project-procs.tcl
    tcl/intranet-tree-procs.tcl
    tcl/intranet-user-procs-oracle.xql
    tcl/intranet-user-procs-postgresql.xql
    tcl/intranet-user-procs.tcl
    tools/global-replace
    tools/po_security_check
    www/admin/backup/backup-2.tcl
    www/admin/backup/backup.adp
    www/admin/backup/backup.tcl
    www/admin/backup/index.adp
    www/admin/backup/index.tcl
    www/admin/backup/restore-2.adp
    www/admin/backup/restore-2.tcl
    www/admin/backup/restore.adp
    www/admin/backup/restore.tcl
    www/admin/backup/restore_set.tcl
    www/admin/categories/category-add-2.tcl
    www/admin/categories/category-add.tcl
    www/admin/categories/category-nuke-2.tcl
    www/admin/categories/category-nuke.adp
    www/admin/categories/category-nuke.tcl
    www/admin/categories/category-update.tcl
    www/admin/categories/index-oracle.xql
    www/admin/categories/index-postgresql.xql
    www/admin/categories/index.adp
    www/admin/categories/index.tcl
    www/admin/categories/one-type.tcl
    www/admin/categories/one.adp
    www/admin/categories/one.tcl
    www/admin/components/component-update.tcl
    www/admin/components/edit.adp
    www/admin/components/edit.tcl
    www/admin/components/index.adp
    www/admin/components/index.tcl
    www/admin/flush_cache.tcl
    www/admin/host.adp
    www/admin/host.tcl
    www/admin/index.adp
    www/admin/index.tcl
    www/admin/master.adp
    www/admin/menus/index.adp
    www/admin/menus/index.tcl
    www/admin/menus/menu-action.tcl
    www/admin/menus/new-oracle.xql
    www/admin/menus/new-postgresql.xql
    www/admin/menus/new.adp
    www/admin/menus/new.tcl
    www/admin/parameters/index-postgresql.xql
    www/admin/parameters/index.adp
    www/admin/parameters/index.tcl
    www/admin/permissions/one.adp
    www/admin/permissions/one.tcl
    www/admin/permissions/perm-include-oracle.xql
    www/admin/permissions/perm-include-postgresql.xql
    www/admin/permissions/perm-include.adp
    www/admin/permissions/perm-include.tcl
    www/admin/profiles/index.adp
    www/admin/profiles/index.tcl
    www/admin/profiles/new.adp
    www/admin/profiles/new.tcl
    www/admin/toggle.tcl
    www/admin/ttt.tcl
    www/admin/user_matrix/index.adp
    www/admin/user_matrix/index.tcl
    www/admin/user_matrix/index.xql
    www/admin/user_matrix/one.adp
    www/admin/user_matrix/one.tcl
    www/anonymize.tcl
    www/companies/accounting-contact-2.tcl
    www/companies/accounting-contact-delete.tcl
    www/companies/accounting-contact-users-2.tcl
    www/companies/accounting-contact-users.tcl
    www/companies/accounting-contact.adp
    www/companies/accounting-contact.tcl
    www/companies/index-oracle.xql
    www/companies/index-postgresql.xql
    www/companies/index.adp
    www/companies/index.tcl
    www/companies/new-2.tcl
    www/companies/new-company-from-user-postgresql.xql
    www/companies/new-company-from-user.tcl
    www/companies/new.adp
    www/companies/new.tcl
    www/companies/primary-contact-2.tcl
    www/companies/primary-contact-delete.tcl
    www/companies/primary-contact-users-2.tcl
    www/companies/primary-contact-users.adp
    www/companies/primary-contact-users.tcl
    www/companies/primary-contact.adp
    www/companies/primary-contact.tcl
    www/companies/upload-companies-2.tcl
    www/companies/upload-companies.adp
    www/companies/upload-companies.tcl
    www/companies/view.adp
    www/companies/view.tcl
    www/create-zip.tcl
    www/delinquent.adp
    www/delinquent.tcl
    www/doc/big_picture.html
    www/doc/categories.html
    www/doc/chart.html
    www/doc/companies.html
    www/doc/components.html
    www/doc/flexibility_control.html
    www/doc/images/delete.gif
    www/doc/images/discussion.gif
    www/doc/images/exp-excel.gif
    www/doc/images/exp-folder.gif
    www/doc/images/exp-line.gif
    www/doc/images/exp-minus.gif
    www/doc/images/exp-text.gif
    www/doc/images/exp-unknown.gif
    www/doc/images/help.gif
    www/doc/images/incident.gif
    www/doc/images/logo.project-open.white.gif
    www/doc/images/news.gif
    www/doc/images/note.gif
    www/doc/images/open.gif
    www/doc/images/projop-logo.gif
    www/doc/images/save.gif
    www/doc/images/task.gif
    www/doc/index.html
    www/doc/list_pages.html
    www/doc/menus.html
    www/doc/offices.html
    www/doc/permission_requirements.html
    www/doc/permissions.html
    www/doc/projects.html
    www/doc/projects/index.html
    www/doc/projects/new.html
    www/doc/projects/properties.html
    www/doc/projects/status.html
    www/doc/projects/subject_area.html
    www/doc/projects/type.html
    www/doc/screenshots/the_project_cycle.gif
    www/doc/screenshots/user_permissions_horiz.gif
    www/doc/screenshots/user_permissions_vert.gif
    www/doc/security/security_check.perl
    www/doc/security/security_guide.txt
    www/doc/style/style.css
    www/doc/views.html
    www/export.tcl
    www/help.adp
    www/help.tcl
    www/help/index.tcl
    www/images/a.gif
    www/images/accounting.gif
    www/images/admin.gif
    www/images/anon_portrait.gif
    www/images/b.gif
    www/images/bb_blue.gif
    www/images/bb_clear.gif
    www/images/bb_green.gif
    www/images/bb_purple.gif
    www/images/bb_red.gif
    www/images/bb_yellow.gif
    www/images/c.gif
    www/images/category.gif
    www/images/cleardot.gif
    www/images/close.gif
    www/images/company.gif
    www/images/customer.gif
    www/images/d.gif
    www/images/del.gif
    www/images/delete.gif
    www/images/discussion.gif
    www/images/e.gif
    www/images/employee.gif
    www/images/empty21.gif
    www/images/exp-cross.gif
    www/images/exp-excel.gif
    www/images/exp-folder.gif
    www/images/exp-line.gif
    www/images/exp-minus.gif
    www/images/exp-pdf.gif
    www/images/exp-plus.gif
    www/images/exp-text.gif
    www/images/exp-unknown.gif
    www/images/exp-word.gif
    www/images/f.gif
    www/images/folder_s.gif
    www/images/foldin2.gif
    www/images/foldout2.gif
    www/images/freelance.gif
    www/images/g.gif
    www/images/h.gif
    www/images/help.gif
    www/images/i.gif
    www/images/incident.gif
    www/images/j.gif
    www/images/k.gif
    www/images/key-account.gif
    www/images/l.gif
    www/images/left-notsel.gif
    www/images/left-sel.gif
    www/images/logo-opus5.gif
    www/images/lontrans.gif
    www/images/m.gif
    www/images/member.gif
    www/images/middle-notsel-notsel.gif
    www/images/middle-notsel-sel.gif
    www/images/middle-sel-notsel.gif
    www/images/milengo-logo.jpg
    www/images/minus_10.gif
    www/images/minus_11.gif
    www/images/minus_9.gif
    www/images/n.gif
    www/images/navbar_default/left-notsel.gif
    www/images/navbar_default/left-sel.gif
    www/images/navbar_default/middle-notsel-notsel.gif
    www/images/navbar_default/middle-notsel-sel.gif
    www/images/navbar_default/middle-sel-notsel.gif
    www/images/navbar_default/right-notsel.gif
    www/images/navbar_default/right-sel.gif
    www/images/navbar_lightgreen/left-notsel.gif
    www/images/navbar_lightgreen/left-sel.gif
    www/images/navbar_lightgreen/middle-notsel-notsel.gif
    www/images/navbar_lightgreen/middle-notsel-sel.gif
    www/images/navbar_lightgreen/middle-sel-notsel.gif
    www/images/navbar_lightgreen/right-notsel.gif
    www/images/navbar_lightgreen/right-sel.gif
    www/images/new-doc.gif
    www/images/new.gif
    www/images/newfol.gif
    www/images/news.gif
    www/images/note.gif
    www/images/o.gif
    www/images/office-manager.gif
    www/images/open.gif
    www/images/p.gif
    www/images/plus_10.gif
    www/images/plus_11.gif
    www/images/plus_9.gif
    www/images/profile.gif
    www/images/projop-logo.gif
    www/images/proman.gif
    www/images/q.gif
    www/images/r.gif
    www/images/reply.gif
    www/images/right-notsel.gif
    www/images/right-sel.gif
    www/images/s.gif
    www/images/sales.gif
    www/images/save.gif
    www/images/senman.gif
    www/images/sls10.gif
    www/images/sls25.gif
    www/images/sls_logo_50.gif
    www/images/t.gif
    www/images/task.gif
    www/images/tick.gif
    www/images/tool.15.gif
    www/images/tool.jpg
    www/images/turn.gif
    www/images/u.gif
    www/images/up-folder.gif
    www/images/upload.gif
    www/images/v.gif
    www/images/w.gif
    www/images/x.gif
    www/images/y.gif
    www/images/z.gif
    www/images/zip.gif
    www/index.adp
    www/index.tcl
    www/master.adp
    www/member-add-2-postgresql.xql
    www/member-add-2.adp
    www/member-add-2.tcl
    www/member-add-postgresql.xql
    www/member-add.adp
    www/member-add.tcl
    www/member-notify.tcl
    www/member-remove-2.tcl
    www/member-update.tcl
    www/offices/index-oracle.xql
    www/offices/index-postgresql.xql
    www/offices/index.adp
    www/offices/index.tcl
    www/offices/link-delete.tcl
    www/offices/new-2.tcl
    www/offices/new.adp
    www/offices/new.tcl
    www/offices/view.adp
    www/offices/view.tcl
    www/po-master.adp
    www/po-master.tcl
    www/projects/index.adp
    www/projects/index.tcl
    www/projects/new-2.tcl
    www/projects/new.adp
    www/projects/new.tcl
    www/projects/view-oracle.xql
    www/projects/view-postgresql.xql
    www/projects/view.adp
    www/projects/view.tcl
    www/report.adp
    www/report.tcl
    www/search/go-search.tcl
    www/search/user-search.adp
    www/search/user-search.tcl
    www/spam/cancel.tcl
    www/spam/confirm.tcl
    www/spam/index.tcl
    www/spam/send.tcl
    www/spam/users-list.tcl
    www/style/invoice.css
    www/style/style.css
    www/style/style.default.css
    www/style/style.lightgreen.css
    www/user-search.adp
    www/user-search.tcl
    www/users/basic-info-update-2.tcl
    www/users/basic-info-update.adp
    www/users/basic-info-update.tcl
    www/users/become.tcl
    www/users/contact-edit-2.tcl
    www/users/contact-edit.adp
    www/users/contact-edit.tcl
    www/users/contacts.csv
    www/users/delete-2.tcl
    www/users/delete.adp
    www/users/delete.tcl
    www/users/edit-locale.adp
    www/users/edit-locale.tcl
    www/users/edit-locale.xql
    www/users/index.adp
    www/users/index.tcl
    www/users/new.adp
    www/users/new.tcl
    www/users/nuke-2.tcl
    www/users/nuke.tcl
    www/users/password-update-2.tcl
    www/users/password-update.adp
    www/users/password-update.tcl
    www/users/portrait/comment-edit-2.tcl
    www/users/portrait/comment-edit.adp
    www/users/portrait/comment-edit.tcl
    www/users/portrait/erase-2.tcl
    www/users/portrait/erase.adp
    www/users/portrait/erase.tcl
    www/users/portrait/upload-2-oracle.xql
    www/users/portrait/upload-2-postgresql.xql
    www/users/portrait/upload-2.tcl
    www/users/portrait/upload-2.xql
    www/users/portrait/upload.adp
    www/users/portrait/upload.tcl
    www/users/profile-update.adp
    www/users/profile-update.tcl
    www/users/upload-contacts-2.adp
    www/users/upload-contacts-2.tcl
    www/users/upload-contacts.adp
    www/users/upload-contacts.tcl
    www/users/user-add-2.adp
    www/users/user-add-2.tcl
    www/users/user-add-2.xql
    www/users/user-add-3.adp
    www/users/user-add-3.tcl
    www/users/user-add-3.xql
    www/users/view.adp
    www/users/view.tcl
    www/whos-online.adp
    www/whos-online.tcl

all-apm.sh

-#!/bin/csh
-POVER="3.0.0.0.3"
-export POVER
-
-mkdir -p ${POVER}
-/bin/tar czf ${POVER}/intranet-big-brother-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-big-brother
-/bin/tar czf ${POVER}/intranet-core-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-core
-/bin/tar czf ${POVER}/intranet-cost-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-cost
-/bin/tar czf ${POVER}/intranet-crm-tracking-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-crm-tracking
-# /bin/tar czf ${POVER}/intranet-dynvals-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-dynvals
-/bin/tar czf ${POVER}/intranet-filestorage-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-filestorage
-/bin/tar czf ${POVER}/intranet-forum-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-forum
-# /bin/tar czf ${POVER}/intranet-freelance-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-freelance
-# /bin/tar czf ${POVER}/intranet-freelance-invoices-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-freelance-invoices
-# /bin/tar czf ${POVER}/intranet-freelance-recruiting-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-freelance-recruiting
-/bin/tar czf ${POVER}/intranet-hr-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-hr
-/bin/tar czf ${POVER}/intranet-invoices-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-invoices
-/bin/tar czf ${POVER}/intranet-payments-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-payments
-/bin/tar czf ${POVER}/intranet-riskmanagement-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-riskmanagement
-/bin/tar czf ${POVER}/intranet-timesheet-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-timesheet
-/bin/tar czf ${POVER}/intranet-spam-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-spam
-/bin/tar czf ${POVER}/intranet-trans-invoices-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-trans-invoices
-/bin/tar czf ${POVER}/intranet-translation-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-translation
-# /bin/tar czf ${POVER}/intranet-trans-quality-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-trans-quality
-# /bin/tar czf ${POVER}/intranet-travel-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-travel
-/bin/tar czf ${POVER}/intranet-update-client-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-update-client
-/bin/tar czf ${POVER}/intranet-update-server-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-update-server
-/bin/tar czf ${POVER}/intranet-wiki-${POVER}.apm --exclude='*CVS*' --exclude='*~' intranet-wiki
-/bin/tar czf ${POVER}/wiki-${POVER}.apm --exclude='*CVS*' --exclude='*~' wiki

all-catalog-edit.sh

-#!/bin/bash
-
-
-cvs edit intranet-core/catalog/intranet-core.en_US.ISO-8859-1.xml
-cvs edit intranet-big-brother/catalog/intranet-big-brother.en_US.ISO-8859-1.xml
-cvs edit intranet-core/catalog/intranet-core.en_US.ISO-8859-1.xml
-cvs edit intranet-cost/catalog/intranet-cost.en_US.ISO-8859-1.xml
-cvs edit intranet-crm-tracking/catalog/intranet-crm-tracking.en_US.ISO-8859-1.xml
-cvs edit intranet-dynvals/catalog/intranet-dynvals.en_US.ISO-8859-1.xml
-cvs edit intranet-filestorage/catalog/intranet-filestorage.en_US.ISO-8859-1.xml
-cvs edit intranet-forum/catalog/intranet-forum.en_US.ISO-8859-1.xml
-cvs edit intranet-freelance/catalog/intranet-freelance.en_US.ISO-8859-1.xml
-cvs edit intranet-hr/catalog/intranet-hr.en_US.ISO-8859-1.xml
-cvs edit intranet-invoices/catalog/intranet-invoices.en_US.ISO-8859-1.xml
-cvs edit intranet-payments/catalog/intranet-payments.en_US.ISO-8859-1.xml
-cvs edit intranet-planning/catalog/intranet-planning.en_US.ISO-8859-1.xml
-cvs edit intranet-procedures/catalog/intranet-procedures.en_US.ISO-8859-1.xml
-cvs edit intranet-riskmanagement/catalog/intranet-riskmanagement.en_US.ISO-8859-1.xml
-cvs edit intranet-spam/catalog/intranet-timesheet.en_US.ISO-8859-1.xml
-cvs edit intranet-timesheet/catalog/intranet-timesheet.en_US.ISO-8859-1.xml
-cvs edit intranet-trans-invoices/catalog/intranet-trans-invoices.en_US.ISO-8859-1.xml
-cvs edit intranet-translation/catalog/intranet-translation.en_US.ISO-8859-1.xml
-cvs edit intranet-trans-quality/catalog/intranet-trans-quality.en_US.ISO-8859-1.xml
-cvs edit intranet-travel/catalog/intranet-travel.en_US.ISO-8859-1.xml
-
-
-cvs edit intranet-core/catalog/intranet-core.de_DE.ISO-8859-1.xml
-cvs edit intranet-big-brother/catalog/intranet-big-brother.de_DE.ISO-8859-1.xml
-cvs edit intranet-core/catalog/intranet-core.de_DE.ISO-8859-1.xml
-cvs edit intranet-cost/catalog/intranet-cost.de_DE.ISO-8859-1.xml
-cvs edit intranet-crm-tracking/catalog/intranet-crm-tracking.de_DE.ISO-8859-1.xml
-cvs edit intranet-dynvals/catalog/intranet-dynvals.de_DE.ISO-8859-1.xml
-cvs edit intranet-filestorage/catalog/intranet-filestorage.de_DE.ISO-8859-1.xml
-cvs edit intranet-forum/catalog/intranet-forum.de_DE.ISO-8859-1.xml
-cvs edit intranet-freelance/catalog/intranet-freelance.de_DE.ISO-8859-1.xml
-cvs edit intranet-hr/catalog/intranet-hr.de_DE.ISO-8859-1.xml
-cvs edit intranet-invoices/catalog/intranet-invoices.de_DE.ISO-8859-1.xml
-cvs edit intranet-payments/catalog/intranet-payments.de_DE.ISO-8859-1.xml
-cvs edit intranet-planning/catalog/intranet-planning.de_DE.ISO-8859-1.xml
-cvs edit intranet-procedures/catalog/intranet-procedures.de_DE.ISO-8859-1.xml
-cvs edit intranet-riskmanagement/catalog/intranet-riskmanagement.de_DE.ISO-8859-1.xml
-cvs edit intranet-spam/catalog/intranet-timesheet.de_DE.ISO-8859-1.xml
-cvs edit intranet-timesheet/catalog/intranet-timesheet.de_DE.ISO-8859-1.xml
-cvs edit intranet-trans-invoices/catalog/intranet-trans-invoices.de_DE.ISO-8859-1.xml
-cvs edit intranet-translation/catalog/intranet-translation.de_DE.ISO-8859-1.xml
-cvs edit intranet-trans-quality/catalog/intranet-trans-quality.de_DE.ISO-8859-1.xml
-cvs edit intranet-travel/catalog/intranet-travel.de_DE.ISO-8859-1.xml

all-checkout.sh

-#!/bin/bash
-
-cvs checkout acs-admin
-cvs checkout acs-api-browser
-cvs checkout acs-authentication
-cvs checkout acs-automated-testing
-cvs checkout acs-bootstrap-installer
-cvs checkout acs-content-repository
-cvs checkout acs-core-docs
-cvs checkout acs-datetime
-cvs checkout acs-kernel
-cvs checkout acs-lang
-cvs checkout acs-mail
-cvs checkout acs-messaging
-cvs checkout acs-reference
-cvs checkout acs-service-contract
-cvs checkout acs-subsite
-cvs checkout acs-tcl
-cvs checkout acs-templating
-cvs checkout acs-workflow
-cvs checkout acs_admin_tools
-
-cvs checkout cms
-
-cvs checkout intranet-big-brother
-cvs checkout intranet-core
-cvs checkout intranet-cost
-cvs checkout intranet-crm-tracking
-cvs checkout intranet-dynvals
-cvs checkout intranet-expfind-ora
-cvs checkout intranet-expfind-pg
-cvs checkout intranet-expfind2-ora
-cvs checkout intranet-expfind2-pg
-cvs checkout intranet-filestorage
-cvs checkout intranet-forum
-cvs checkout intranet-freelance
-cvs checkout intranet-freelance-invoices
-cvs checkout intranet-freelance-recruiting
-cvs checkout intranet-hr
-cvs checkout intranet-invoices
-cvs checkout intranet-payments
-cvs checkout intranet-planning
-cvs checkout intranet-procedures
-cvs checkout intranet-riskmanagement
-cvs checkout intranet-search
-cvs checkout intranet-search-ora
-cvs checkout intranet-search-oracle
-cvs checkout intranet-search-pg
-cvs checkout intranet-spam
-cvs checkout intranet-timesheet
-cvs checkout intranet-trans-invoices
-cvs checkout intranet-trans-quality
-cvs checkout intranet-translation
-cvs checkout intranet-travel
-cvs checkout intranet-update-client
-cvs checkout intranet-update-server
-cvs checkout intranet-wiki
-
-cvs checkout ref-timezones
-cvs checkout search
-cvs checkout wiki

all-security-check.perl

-#!/usr/bin/perl
-
-# --------------------------------------------------------------
-# all-security-check
-#
-# Project/Open Automatic Security Check
-# (c) 2004 Frank Bergmann <frank.bergmann@project-open.com>
-# --------------------------------------------------------------
-
-use strict;
-
-# Constants, variables and parameters
-#
-my $debug = 0;
-my $folder_root = "/web/commons/packages/intranet-*";
-
-
-# Write a .CSV Header line so that the output can 
-# be opened by Excel directly.
-print "filename;status;require_login;ad_maybe_redirect_for_registration;ad_verify_and_get_user_id;unsave_dollar;im_permission;comment\n";
-
-# Main loop: use "find" to get the list of all TCL
-# files in $folder_root.
-#
-my $last_package_key = "";
-open(FILES, "find $folder_root -type f | grep -v CVS |");
-while (my $file=<FILES>) {
-	# Remove trailing "\n"
-	chomp($file);
-	my $is_library_tcl = 0;
-
-	# Print a header line for every package
-	&print_header($file);
-	
-	# Extract the file extension
-	$file =~ /\.([^\.]*)$/;
-	my $file_ext=$1;
-
-	# Check if this is a library file
-	if ($file =~ /\/tcl\//) { $is_library_tcl = 1; }
-	
-	# Treat the files according to their extension
-	&analyze_tcl_page($file) if ($file_ext =~ /tcl$/ and 0 == $is_library_tcl);
-	&analyze_tcl_lib($file) if ($file_ext =~ /tcl$/ and 1 == $is_library_tcl);
-#	&analyze_xql($file) if ($file_ext =~ /xql$/);
-
-#	&analyze_adp($file) if ($file_ext =~ /adp$/);
-}
-close(FILES);
-
-
-# Print a new line in the CSV file for every 
-# package that we find...
-# file may look like: "N:\aimdev\packages\nesta-static\..."
-#
-sub print_header {
-	(my $file) = @_;
-	print "print_header: file='$file'\n" if ($debug > 1);
-
-	if ($file =~ /packages\/([^\/]*)\//) {
-		my $package_key = $1;
-		if ($last_package_key ne $package_key) {
-			print "$package_key\n";
-			$last_package_key = $package_key;
-		}
-	
-	}
-}
-
-
-# Analyze a single TCL page:
-# We're currently checking for the the presence of 
-# autentication only ([auth::require_login] or similar).
-#
-sub analyze_tcl_page {
-	(my $file) = @_;
-	print "analyze_tcl_page: file='$file'\n" if ($debug);
-
-	my $require_login = 0;
-	my $ad_maybe_redirect_for_registration = 0;
-	my $ad_verify_and_get_user_id = 0;
-	my $unsave_dollar = 0;
-	my $im_permission = 0;
-	my $comment = "";
-	
-	open(F, $file);
-	while (my $line = <F>) {
-		$require_login++ if ($line =~ /require_login/);
-		$im_permission++ if ($line =~ /im_permission/);
-		$ad_maybe_redirect_for_registration++ if ($line =~ /ad_maybe_redirect_for_registration/);
-		$ad_verify_and_get_user_id++ if ($line =~ /ad_verify_and_get_user_id/);
-	}	
-	close(F);
-
-	# Calculate the status - green, yellow or red
-	my $sum = $require_login + $ad_maybe_redirect_for_registration + $ad_verify_and_get_user_id;
-	my $status = "undefined";
-	if ($sum == 0) {
-		$status = "red";
-		$comment = "Didn't find any authentication in file";
-	}
-	if ($sum > 0) {
-		$status = "yellow";
-		$comment = "Authentication found, but deprecated";
-	}
-	$status = "green" if ($require_login > 0);
-
-	print "$file;$status;$require_login;$ad_maybe_redirect_for_registration;$ad_verify_and_get_user_id;$unsave_dollar;$im_permission;\"$comment\"\n";
-}
-
-
-# Analyze a single XQL file:
-# We just check that it doesn't contain "$"-variables.
-# 
-#
-sub analyze_xql {
-	(my $file) = @_;
-	print "analyze_xql: file='$file'\n" if ($debug);
-
-	my $dollar_count = 0;
-	my $status = "undefined";
-	my $comment = "";
-
-	open(F, $file);
-	while (my $line = <F>) {
-		if ($line =~ /\$(\w*)/) {
-			$dollar_count++;
-			$comment = $comment." \$$1";
-		}
-	}	
-	close(F);
-
-	# Calculate the status - green, yellow or red
-	$status = "green";
-	if ($dollar_count > 0) {
-		$status = "yellow";
-		$comment = $comment." - Found a \$ character in XQL file";
-	}
-
-	print "$file;$status;;;;$dollar_count;;\"$comment\"\n";
-}
-
-
-# Analyze a single TCL library file
-#
-sub analyze_tcl_lib {
-	(my $file) = @_;
-	print "analyze_tcl_lib: file='$file'\n" if ($debug);
-}
-
-
-
-

all-tgz.sh

-#!/bin/bash
-
-VER=3.0.alpha4a
-
-rm -f *.tgz
-
-
-cd /web; tar czf /tmp/pobase-$VER.tgz projop \
-    --exclude '*CVS*' \
-    --exclude '*~' \
-    --exclude projop/packages/intranet-cost \
-    --exclude projop/packages/intranet-crm-tracking \
-    --exclude projop/packages/intranet-dynvals \
-    --exclude projop/packages/intranet-filestorage \
-    --exclude projop/packages/intranet-forum \
-    --exclude projop/packages/intranet-freelance \
-    --exclude projop/packages/intranet-invoices \
-    --exclude projop/packages/intranet-trans-invoices \
-    --exclude projop/packages/intranet-translation
-
-
-cd /web; tar czf /tmp/popackages-$VER.tgz \
-    --exclude '*CVS*' \
-    --exclude '*~' \
-    projop/packages/intranet-cost \
-    projop/packages/intranet-crm-tracking \
-    projop/packages/intranet-dynvals \
-    projop/packages/intranet-filestorage \
-    projop/packages/intranet-forum \
-    projop/packages/intranet-freelance \
-    projop/packages/intranet-invoices \
-    projop/packages/intranet-trans-invoices \
-    projop/packages/intranet-translation
-

all-version-packages.perl

-#!/usr/bin/perl
-#
-# Modify the version information in all Project/Open Packages
-# in order to provide the APM with correct install/reinstall
-# options
-#
-# 2005-05-03 
-# Frank Bergmann <frank.bergmann@project-open.com>
-
-$version = "3.0.0.0.4";
-$date = `/bin/date +"%Y-%m-%d"`;
-$time = `/bin/date +"%H-%M"`;
-$debug = 0;
-$base_dir = "/web/ptdemo";			# no trailing "/"!
-$packages_dir = "$base_dir/packages";		# no trailing "/"!
-
-# Remove trailing \n from date & time
-chomp($date);
-chomp($time);
-
-# Main loop: use "find" to get the list of all packages
-#
-open(FILES, "cd $packages_dir; ls -1 | grep 'intranet-*' |");
-while (my $file=<FILES>) {
-        # Remove trailing "\n"
-        chomp($file);
-
-	print "update_info_files: updating '$file'\n";
-	update_info_file($file);
-}
-close(FILES);
-
-
-sub update_info_file {
-    (my $module_name) = @_;
-    
-    $filename = $packages_dir . "/" . $module_name . "/" . $module_name . ".info";
-    print "update_info_file: filename=$filename\n" if ($debug);
-
-    my $cmd = "cd $packages_dir/$module_name; cp $module_name.info $module_name.$date.$time.info; cvs edit $module_name.info";
-    print "update_info_file: cmd=$cmd\n";
-    system($cmd);
-
-    $result = "";
-    open(F, $filename);
-    while (my $line = <F>) {
-	chomp($line);
-
-	# Check if the line is the "<version name= ...>" line and replace
-	if ($line =~ /<version name=/) {
-	    $result .= "    <version name=\"$version\" url=\"http://projop.dnsalias.com/download/apm/$module_name-$version.apm\">\n";
-	} else {
-	    $result .= "$line\n";
-	}
-
-    }
-    close(F);
-    
-    open(F, "> $filename");
-    print F $result;
-    close(F);
-}
-

intranet-core.info

-<?xml version="1.0"?>
-<!-- Generated by the OpenACS Package Manager -->
-
-<package key="intranet-core" url="http://openacs.org/repository/apm/packages/intranet-core" type="apm_application">
-    <package-name>Project/Open Core</package-name>
-    <pretty-plural>Project/Open Core</pretty-plural>
-    <initial-install-p>f</initial-install-p>
-    <singleton-p>t</singleton-p>
-    <auto-mount>intranet</auto-mount>
-
-    <version name="3.0.0.0.4" url="http://projop.dnsalias.com/download/apm/intranet-core-3.0.0.0.4.apm">
-        <owner url="mailto:fraber@project-open.com">Frank Bergmann</owner>
-        <release-date>2004-08-24</release-date>
-        <vendor url="http://www.project-open.com/">Project/Open</vendor>
-
-        <provides url="intranet-core" version="3.0.0"/>
-        <requires url="acs-subsite" version="5.0"/>
-
-        <callbacks>
-        </callbacks>
-        <parameters>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="BackupBasePathUnix"  default="/web/projop/filestorage/backup" description="Path for backup sets"/>
-            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="EnableNestedProjectsP"  default="0" description="Do the user need to have projects and subprojects, or does this add too much of complexity?"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ErrorReportURL"  default="http://www.projop.com/intranet-forum/new-system-incident" description="Error Report URL"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="FindCmd"  default="/usr/bin/find" description="Command to execute the Unix &quot;find&quot; command"/>
-            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="NumberResultsPerPage"  default="50" description="How many lines do we want to show in an index page?"/>
-            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="ProjectNumberFieldSize"  default="10" description="How many characters can the project number have?"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="SystemCSS"  default="/intranet/style/style.default.css" description="Global CSS"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="SystemLogo"  default="/intranet/images/projop-logo.gif" description="System logo that appears in all screens"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="SystemLogoLink"  default="http://www.project-open.org/" description="SystemLogoLink"/>
-            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="SystemNavbarGifPath"  default="/intranet/images/navbar_default" description="Where are the GIFs located for the navbar?"/>
-            <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="TestDemoDevServer"  default="0" description="TestDemoDevServer"/>
-        </parameters>
-
-    </version>
-</package>

sql/common/intranet-biz-objects.sql

--- /packages/intranet-core/sql/common/intranet-biz-objects.sql
---
--- Copyright (C) 1999-2004 Project/Open
---
--- This program is free software. You can redistribute it
--- and/or modify it under the terms of the GNU General
--- Public License as published by the Free Software Foundation;
--- either version 2 of the License, or (at your option)
--- any later version. This program is distributed in the
--- hope that it will be useful, but WITHOUT ANY WARRANTY;
--- without even the implied warranty of MERCHANTABILITY or
--- FITNESS FOR A PARTICULAR PURPOSE.
--- See the GNU General Public License for more details.
---
--- @author	  frank.bergmann@project-open.com
-
-
--- ------------------------------------------------------------
--- Roles for all Biz Objects
--- ------------------------------------------------------------
-
--- Project/Open Core only knows about Member and PM
--- Project/Translation adds Translator, Proof Reader, ...
--- Project/Advertizing adds Producer, Designer, Texter, ...
--- Project/IT adds Business Analyst, Architect, Developer, ...
-
--- ToDo: Insert category hierarchy to be able to ask:
--- Is this an "object administrator" or a "full member"?
-
-insert into im_categories (
-	category_id, category, category_type, 
-	category_gif, category_description) 
-values (1300, 'Full Member', 'Intranet Biz Object Role', 
-	'member', 'Full Member');
-
-insert into im_categories (
-	category_id, category, category_type, 
-	category_gif, category_description) 
-values (1301, 'Project Manager', 'Intranet Biz Object Role', 
-	'project-manager', 'Project Manager');
-
-insert into im_categories (
-	category_id, category, category_type, 
-	category_gif, category_description) 
-values (1302, 'Key Account', 'Intranet Biz Object Role', 
-	'key-account', 'Key Account Manager');
-
-insert into im_categories (
-	category_id, category, category_type, 
-	category_gif, category_description) 
-values (1303, 'Office Manager', 'Intranet Biz Object Role', 
-	'office-manager', 'Office Manager');
-
-
--------------------------------------------------------------
--- Create these entries at the very end,
--- because the objects types need to be there first.
-
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'user','view','/intranet/users/view?user_id=');
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'user','edit','/intranet/users/new?user_id=');
-
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'im_project','view','/intranet/projects/view?project_id=');
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'im_project','edit','/intranet/projects/new?project_id=');
-
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'im_company','view','/intranet/companies/view?company_id=');
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'im_company','edit','/intranet/companies/new?company_id=');
-
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'im_office','view','/intranet/offices/view?office_id=');
-insert into im_biz_object_urls (object_type, url_type, url) values (
-'im_office','edit','/intranet/offices/new?office_id=');
-
-
-
--------------------------------------------------------------
--- Offices
-
--- Setup the list of roles that a user can take with
--- respect to a office:
---      Full Member (1300) and
---      Office Manager (1303)
---
-insert into im_biz_object_role_map values ('im_office',85,1300);
-insert into im_biz_object_role_map values ('im_office',85,1303);
-
-
-
---------------------------------------------------------------
--- Projects
-
--- Setup the list of roles that a user can take with
--- respect to a project:
---	Full Member (1300) and
---	Project Manager (1301)
---
-insert into im_biz_object_role_map values ('im_project',85,1300);
-insert into im_biz_object_role_map values ('im_project',85,1301);
-insert into im_biz_object_role_map values ('im_project',86,1300);
-insert into im_biz_object_role_map values ('im_project',86,1301);
-
-
-
---------------------------------------------------------------
--- Companies
-
--- Setup the list of roles that a user can take with
--- respect to a company:
---      Full Member (1300) and
---      Key Account Manager (1302)
---
-insert into im_biz_object_role_map values ('im_company',85,1300);
-insert into im_biz_object_role_map values ('im_company',85,1302);
-
-
-

sql/common/intranet-country-codes.sql

--- /packages/intranet-core/sql/common/intranet-country-codes.sql
---
--- Copyright (C) 1999-2004 various parties
--- The code is based on ArsDigita ACS 3.4
---
--- This program is free software. You can redistribute it 
--- and/or modify it under the terms of the GNU General 
--- Public License as published by the Free Software Foundation; 
--- either version 2 of the License, or (at your option) 
--- any later version. This program is distributed in the 
--- hope that it will be useful, but WITHOUT ANY WARRANTY; 
--- without even the implied warranty of MERCHANTABILITY or 
--- FITNESS FOR A PARTICULAR PURPOSE. 
--- See the GNU General Public License for more details.
---
--- @author	unknown@arsdigita.com
--- @author	frank.bergmann@project-open.com
-
-insert into country_codes values ('ad','Andorra');
-insert into country_codes values ('al','Albania');
-insert into country_codes values ('ar','Argentina');
-insert into country_codes values ('at','Austria');
-insert into country_codes values ('au','Australia');
-insert into country_codes values ('ba','Bosnia and Herzegovina');
-insert into country_codes values ('be','Belgium');
-insert into country_codes values ('bg','Bulgaria');
-insert into country_codes values ('bo','Bolivia');
-insert into country_codes values ('br','Brazil');
-insert into country_codes values ('by','Belarus');
-insert into country_codes values ('bz','Belize');
-insert into country_codes values ('ca','Canada');
-insert into country_codes values ('ch','Switzerland');
-insert into country_codes values ('cl','Chile');
-insert into country_codes values ('cn','China');
-insert into country_codes values ('co','Colombia');
-insert into country_codes values ('cr','Costa Rica');
-insert into country_codes values ('cu','Cuba');
-insert into country_codes values ('cy','Cyprus');
-insert into country_codes values ('cz','Czech Republic');
-insert into country_codes values ('de','Germany');
-insert into country_codes values ('dk','Denmark');
-insert into country_codes values ('do','Dominican Republic');
-insert into country_codes values ('dz','Algeria');
-insert into country_codes values ('ec','Ecuador');
-insert into country_codes values ('ee','Estonia');
-insert into country_codes values ('eg','Egypt');
-insert into country_codes values ('es','Spain');
-insert into country_codes values ('fi','Finland');
-insert into country_codes values ('fr','France');
-insert into country_codes values ('ge','Georgia');
-insert into country_codes values ('gr','Greece');
-insert into country_codes values ('gt','Guatemala');
-insert into country_codes values ('hn','Honduras');
-insert into country_codes values ('hr','Croatia');
-insert into country_codes values ('hu','Hungary');
-insert into country_codes values ('id','Indonesia');
-insert into country_codes values ('ie','Ireland');
-insert into country_codes values ('il','Israel');
-insert into country_codes values ('in','India');
-insert into country_codes values ('iq','Iraq');
-insert into country_codes values ('ir','Iran');
-insert into country_codes values ('is','Iceland');
-insert into country_codes values ('it','Italy');
-insert into country_codes values ('jp','Japan');
-insert into country_codes values ('kp','Korea  values (North)');
-insert into country_codes values ('kr','Korea  values (South)');
-insert into country_codes values ('kw','Kuwait');
-insert into country_codes values ('lb','Lebanon');
-insert into country_codes values ('li','Liechtenstein');
-insert into country_codes values ('lt','Lithuania');
-insert into country_codes values ('lu','Luxembourg');
-insert into country_codes values ('lv','Latvia');
-insert into country_codes values ('mk','Macedonia');
-insert into country_codes values ('mt','Malta');
-insert into country_codes values ('mx','Mexico');
-insert into country_codes values ('my','Malaysia');
-insert into country_codes values ('ni','Nicaragua');
-insert into country_codes values ('nl','Netherlands');
-insert into country_codes values ('no','Norway');
-insert into country_codes values ('nz','New Zealand');
-insert into country_codes values ('pe','Peru');
-insert into country_codes values ('ph','Philippines');
-insert into country_codes values ('pl','Poland');
-insert into country_codes values ('pr','Puerto Rico');
-insert into country_codes values ('pt','Portugal');
-insert into country_codes values ('py','Paraguay');
-insert into country_codes values ('ro','Romania');
-insert into country_codes values ('ru','Russian Federation');
-insert into country_codes values ('sa','Saudi Arabia');
-insert into country_codes values ('se','Sweden');
-insert into country_codes values ('sg','Singapore');
-insert into country_codes values ('si','Slovenia');
-insert into country_codes values ('sk','Slovak Republic');
-insert into country_codes values ('sv','El Salvador');
-insert into country_codes values ('sy','Syria');
-insert into country_codes values ('tn','Tunisia');
-insert into country_codes values ('tr','Turkey');
-insert into country_codes values ('tw','Taiwan');
-insert into country_codes values ('ua','Ukraine');
-insert into country_codes values ('uk','United Kingdom');
-insert into country_codes values ('us','United States');
-insert into country_codes values ('uy','Uruguay');
-insert into country_codes values ('ve','Venezuela');
-insert into country_codes values ('yu','Yugoslavia');
-insert into country_codes values ('za','South Africa');

sql/oracle/intranet-biz-objects.sql

--- /packages/intranet-core/sql/oracle/intranet-biz-objects.sql
---
--- Copyright (C) 1999-2004 Project/Open
---
--- This program is free software. You can redistribute it
--- and/or modify it under the terms of the GNU General
--- Public License as published by the Free Software Foundation;
--- either version 2 of the License, or (at your option)
--- any later version. This program is distributed in the
--- hope that it will be useful, but WITHOUT ANY WARRANTY;
--- without even the implied warranty of MERCHANTABILITY or
--- FITNESS FOR A PARTICULAR PURPOSE.
--- See the GNU General Public License for more details.
---
--- @author	  frank.bergmann@project-open.com
-
--- Project/Open Business objects can be associated to 
--- users using a "role", which depends on the Busines
--- Object (OpenACS object type ) and the "Object Type" 
--- (this is a field common to all of these objects).
-
-
--- ------------------------------------------------------------
--- Project/Open Business Object
--- ------------------------------------------------------------
-
--- BizObjects have in a common "type()" method that allows
--- to select suitable roles for them in which to assign
--- members.
-
-begin
-    acs_object_type.create_type (
-	supertype =>		'acs_object',
-	object_type =>		'im_biz_object',
-	pretty_name =>		'P/O Business Object',
-	pretty_plural =>	'P/O Business Objects',
-	table_name =>		'im_biz_objects',
-	id_column =>		'object_id',
-	package_name =>		'im_biz_object',
-	type_extension_table =>	null,
-	name_method =>		'im_biz_object.name'
-    );
-end;
-/
-show errors
-
-
-CREATE TABLE im_biz_objects (
-	object_id 		integer
-				constraint im_biz_object_id_pk
-				primary key
-				constraint im_biz_object_id_fk
-				references acs_objects
-);
-
-
--- Store a "view" and an "edit" URLs for each object type.
---
--- fraber 041015: referential integrity to acs_object_types
--- removed because this would require to insert elements into
--- this table _after_ the objects have been created, which is
--- very error prone for DM creation.
---
-CREATE TABLE im_biz_object_urls (
-	object_type		varchar(1000),
-	url_type		varchar(100)
-				constraint im_biz_obj_urls_url_type_ck
-				check(url_type in ('view', 'edit')),
-	url			varchar(1000),
-		constraint im_biz_obj_urls_pk
-		primary key(object_type, url_type)
-);
-
-
-create or replace package im_biz_object
-is
-    function new (
-	object_id	in integer,
-	object_type	in varchar,
-	creation_date	in date,
-	creation_user	in integer,
-	creation_ip	in varchar,
-	context_id	in integer
-    ) return im_biz_objects.object_id%TYPE;
-
-    procedure del (object_id in integer);
-    function name (object_id in integer) return varchar;
-    function type (object_id in integer) return integer;
-end im_biz_object;
-/
-show errors
-
-
-create or replace package body im_biz_object
-is
-    function new (
-	object_id	in integer,
-	object_type	in varchar,
-	creation_date	in date,
-	creation_user	in integer,
-	creation_ip	in varchar,
-	context_id	in integer
-    ) return im_biz_objects.object_id%TYPE
-    is
-	v_object_id	im_biz_objects.object_id%TYPE;
-    begin
-	v_object_id := acs_object.new (
-		object_id =>		object_id,
-		object_type =>		object_type,
-		creation_date =>	creation_date,
-		creation_user =>	creation_user,
-		creation_ip =>		creation_ip,
-		context_id =>		context_id
-	);
-	insert into im_biz_objects (object_id) values (v_object_id);
-	return v_object_id;
-    end new;
-
-
-    -- Delete a single object (if we know its ID...)
-    procedure del (object_id in integer)
-    is
-	v_object_id	integer;
-    begin
-	-- Erase the im_biz_objects item associated with the id
-	delete from 	im_biz_objects
-	where		object_id = del.object_id;
-
-	acs_object.del(del.object_id);
-    end del;
-
-    function name (object_id in integer) return varchar
-    is
-    begin
-	return 'abstract class error';
-    end name;
-
-    function type (object_id in integer) return integer
-    is
-    begin
-	return -1;
-    end type;
-
-end im_biz_object;
-/
-show errors
-
--- ------------------------------------------------------------
--- Valid Roles for Biz Objects
--- ------------------------------------------------------------
-
--- Maps from (acs_object_type + object_type_id) into object_role_id.
--- For example projects (im_project) with type "translation" can 
--- have the object_roles "Translator", "Editor", "Project Manager" etc.
--- This table doesn't actually restrict (RI) the roles between
--- business objects and members, but serves to select "appropriate"
--- membership relationships in the add_member.tcl page and its
--- neighbours.
---
-create table im_biz_object_role_map (
-	acs_object_type	varchar(1000),
-	object_type_id	integer
-			constraint im_bizo_rmap_object_type_fk
-			references im_categories,
-	object_role_id	integer
-			constraint im_bizo_rmap_object_role_fk
-			references im_categories,
-	constraint im_bizo_rmap_un
-	unique (acs_object_type, object_type_id, object_role_id)
-);
-
-
--- ------------------------------------------------------------
--- Intranet Membership Relation
--- ------------------------------------------------------------
-
-create table im_biz_object_members (
-	rel_id		constraint im_biz_object_members_rel_fk
-			references acs_rels (rel_id)
-			constraint im_biz_object_members_rel_pk
-			primary key,
-	object_role_id	integer not null
-			constraint im_biz_object_members_role_fk
-			references im_categories
-			-- Intranet Project Role
-);
-
--- BEGIN
---    acs_rel_type.create_role ('pm', 'Project Manager', 'Project Managers');
--- END;
--- /
-
-
-BEGIN
-	acs_rel_type.create_type (
-		rel_type => 'im_biz_object_member',
-		pretty_name => 'Biz Object Relation',
-		pretty_plural => 'Biz Object Relations',
-		table_name => 'im_biz_object_members',
-		id_column => 'rel_id',
-		package_name => 'im_biz_object_member',
-		object_type_one => 'acs_object',
-		min_n_rels_one => 0, 
-		max_n_rels_one => null,
-		object_type_two => 'person', 
-		role_two => 'member',
-		min_n_rels_two => 0, max_n_rels_two => null
-	);
-END;
-/
-commit;
-
-
--- ------------------------------------------------------------
--- Project Membership Packages
--- ------------------------------------------------------------
-
-create or replace package im_biz_object_member
-as
-	function new (
-		rel_id		in im_biz_object_members.rel_id%TYPE default null,
-		rel_type	in acs_rels.rel_type%TYPE default 'im_biz_object_member',
-		object_id	in integer,
-		user_id		in integer,
-		object_role_id	in integer,
-		creation_user	in acs_objects.creation_user%TYPE default null,
-		creation_ip	in acs_objects.creation_ip%TYPE default null
-	) return im_biz_object_members.rel_id%TYPE;
-
-	procedure del (
-		object_id	in integer,
-		user_id		in integer
-	);
-end im_biz_object_member;
-/
-
-create or replace package body im_biz_object_member
-as
-
-    function new (
-	rel_id		in im_biz_object_members.rel_id%TYPE default null,
-	rel_type	in acs_rels.rel_type%TYPE default 'im_biz_object_member',
-	object_id	in integer,
-	user_id		in integer,
-	object_role_id	in integer,
-	creation_user	in acs_objects.creation_user%TYPE default null,
-	creation_ip	in acs_objects.creation_ip%TYPE default null
-    ) return im_biz_object_members.rel_id%TYPE
-    is
-	v_rel_id integer;
-    begin
-	v_rel_id := acs_rel.new (
-		rel_id		=> rel_id,
-		rel_type	=> rel_type,
-		object_id_one	=> object_id,
-		object_id_two	=> user_id,
-		context_id	=> object_id,
-		creation_user	=> creation_user,
-		creation_ip	=> creation_ip
-	);
-
-	insert into im_biz_object_members
-	(rel_id, object_role_id)
-	values
-	(v_rel_id, new.object_role_id);
-
-	return v_rel_id;
-  end;
-
-  procedure del (
-	object_id	in integer,
-	user_id		in integer
-  )
-  is
-	v_rel_id	integer;
-  begin
-	select rel_id
-	into v_rel_id
-	from acs_rels
-	where	object_id_one = del.object_id
-		and object_id_two = del.user_id;
-
-	delete
-	from im_biz_object_members
-	where object_role_id = v_rel_id;
-
-	acs_rel.del(v_rel_id);
-  end;
-
-end im_biz_object_member;
-/
-show errors
-
-
---------------------------------------------------------------
--- Categories, views etc. common to all databases
-
-
-@../common/intranet-biz-objects.sql

sql/oracle/intranet-categories.sql

- -- /packages/intranet-core/sql/oracle/intranet-categories.sql
---
--- Copyright (C) 1999-2004 various parties
--- The code is based on ArsDigita ACS 3.4
---
--- This program is free software. You can redistribute it
--- and/or modify it under the terms of the GNU General
--- Public License as published by the Free Software Foundation;
--- either version 2 of the License, or (at your option)
--- any later version. This program is distributed in the
--- hope that it will be useful, but WITHOUT ANY WARRANTY;
--- without even the implied warranty of MERCHANTABILITY or
--- FITNESS FOR A PARTICULAR PURPOSE.
--- See the GNU General Public License for more details.
---
--- @author	unknown@arsdigita.com
--- @author	frank.bergmann@project-open.com
-
-
--------------------------------------------------------------
--- Categories
---
--- we use categories as a universal storage for business
--- object states and types, instead of a zillion of 
--- tables like 'im_project_status' and 'im_project_type'.
-
-create sequence im_categories_seq start with 10000;
-create table im_categories (
-	category_id		integer 
-				constraint im_categories_pk
-				primary key,
-	category		varchar(50) not null,
-	category_description	varchar(4000),
-	category_type		varchar(50),
-	category_gif		varchar(100) default 'category',
-	enabled_p		char(1) default 't'
-				constraint im_enabled_p_ck
-				check(enabled_p in ('t','f')),
-                                -- used to indicate "abstract" super-categorys
-                                -- that are not valid values for objects.
-                                -- For example: "Translation Project" is not a
-                                -- project_type, but a class of project_types.
-	parent_only_p		char(1) default 'f'
-				constraint im_parent_only_p_ck
-				check(parent_only_p in ('t','f'))
-);
-
--- fraber 040320: Don't allow for duplicated entries!
-create unique index im_categories_cat_cat_type_idx on im_categories(category, category_type);
-
-
--- optional system to put categories in a hierarchy.
--- This table stores the "transitive closure" of the
--- is-a relationship between categories in a kind of matrix.
--- Let's asume: B isa A and C isa B. So we'll store
--- the tupels (C,A), (C,B) and (B,A).
---
--- This structure is a very fast structure for asking:
---
---	"is category A a subcategory of B?"
---
--- but requires n^2 storage space in the worst case and
--- it's a mess retracting settings from the hierarchy.
--- We won't have very deep hierarchies, so storage complexity
--- is not going to be a problem.
-
-create table im_category_hierarchy (
-	parent_id		integer
-				constraint im_parent_category_fk
-				references im_categories,
-	child_id		integer
-				constraint im_child_category_fk
-				references im_categories,
-				constraint category_hierarchy_un 
-				unique (parent_id, child_id)
-);
-create index im_cat_hierarchy_parent_id_idx on im_category_hierarchy(parent_id);
-create index im_cat_hierarchy_child_id_idx on im_category_hierarchy(child_id);
-
-
-
--- Some helper functions to make our queries easier to read
-create or replace function im_category_from_id (p_category_id IN integer)
-return varchar
-IS
-	v_category	varchar(50);
-BEGIN
-	select category
-	into v_category
-	from im_categories
-	where category_id = p_category_id;
-
-	return v_category;
-
-end im_category_from_id;
-/
-show errors;
-
-
-
--------------------------------------------------------------
--- Import category definitions common to all DBs
-
-@../common/intranet-categories.sql
-

sql/oracle/intranet-companies.sql

--- /packages/intranet/sql/intranet-core-create.sql
---
--- Copyright (C) 1999-2004 various parties
--- The code is based on ArsDigita ACS 3.4
---
--- This program is free software. You can redistribute it
--- and/or modify it under the terms of the GNU General
--- Public License as published by the Free Software Foundation;
--- either version 2 of the License, or (at your option)
--- any later version. This program is distributed in the
--- hope that it will be useful, but WITHOUT ANY WARRANTY;
--- without even the implied warranty of MERCHANTABILITY or
--- FITNESS FOR A PARTICULAR PURPOSE.
--- See the GNU General Public License for more details.
---
--- @author      unknown@arsdigita.com
--- @author      frank.bergmann@project-open.com
-
-
----------------------------------------------------------
--- Companies
---
--- We store simple information about a company.
--- All contact information goes in the associated
--- offices.
---
-
-
-begin
-    acs_object_type.create_type (
-	supertype =>		'im_biz_object',
-	object_type =>		'im_company',
-	pretty_name =>		'Company',
-	pretty_plural =>	'Companies',
-	table_name =>		'im_companies',
-	id_column =>		'company_id',
-	package_name =>		'im_company',
-	type_extension_table =>	null,
-	name_method =>		'im_company.name'
-    );
-end;
-/
-show errors
-
-
-create table im_companies (
-	company_id 		integer
-				constraint im_companies_pk
-				primary key 
-				constraint im_companies_cust_id_fk
-				references acs_objects,
-	company_name		varchar(1000) not null
-				constraint im_companies_name_un unique,
-				-- where are the files in the filesystem?
-	company_path		varchar(100) not null
-				constraint im_companies_path_un unique,
-	main_office_id		integer not null
-				constraint im_companies_office_fk
-				references im_offices,
-	deleted_p		char(1) default('f')
-				constraint im_companies_deleted_p 
-				check(deleted_p in ('t','f')),
-	company_status_id	integer not null
-				constraint im_companies_cust_stat_fk
-				references im_categories,
-	company_type_id	integer not null
-				constraint im_companies_cust_type_fk
-				references im_categories,
-	crm_status_id		integer 
-				constraint im_companies_crm_status_fk
-				references im_categories,
-	primary_contact_id	integer 
-				constraint im_companies_prim_cont_fk
-				references users,
-	accounting_contact_id	integer 
-				constraint im_companies_acc_cont_fk
-				references users,
-	note			varchar(4000),
-	referral_source		varchar(1000),
-	annual_revenue_id	integer 
-				constraint im_companies_ann_rev_fk
-				references im_categories,
-				-- keep track of when status is changed
-	status_modification_date date,
-				-- and what the old status was
-	old_company_status_id	integer 
-				constraint im_companies_old_cust_stat_fk
-				references im_categories,
-				-- is this a company we can bill?
-	billable_p		char(1) default('f')
-				constraint im_companies_billable_p_ck 
-				check(billable_p in ('t','f')),
-				-- What kind of site does the company want?
-	site_concept		varchar(100),
-				-- Who in Client Services is the manager?
-	manager_id		integer 
-				constraint im_companies_manager_fk
-				references users,
-				-- How much do they pay us?
-	contract_value		integer,
-				-- When does the company start?
-	start_date		date,
-	vat_number		varchar(100)
-);
-
-
-
-create or replace package im_company
-is
-    function new (
-	company_id	in integer default null,
-	object_type	in varchar default 'im_company',
-	creation_date	in date default sysdate,
-	creation_user	in integer default null,
-	creation_ip	in varchar default null,
-	context_id	in integer default null,
-	company_name	in varchar,
-	company_path	in varchar,
-	main_office_id	in integer,
-	company_type_id in  integer default 51,
-	company_status_id in integer default 46
-    ) return integer;
-
-    procedure del (company_id in integer);
-    function name (company_id in integer) return varchar;
-    function type (company_id in integer) return integer;
-end im_company;
-/
-show errors
-
-
-create or replace package body im_company
-is
-
-    function new (
-	company_id	in integer default null,
-	object_type	in varchar,
-	creation_date	in date default sysdate,
-	creation_user	in integer default null,
-	creation_ip	in varchar default null,
-	context_id	in integer default null,
-	company_name	in varchar,
-	company_path	in varchar,
-	main_office_id	in integer,
-	company_type_id in  integer default 51,
-	company_status_id in integer default 46
-    ) return integer
-    is
-	v_company_id		integer;
-    begin
-	v_company_id := acs_object.new (
-		object_id =>		company_id,
-		object_type =>		object_type,
-		creation_date =>	creation_date,
-		creation_user =>	creation_user,
-		creation_ip =>		creation_ip,
-		context_id =>		context_id
-	);
-
-	insert into im_companies (
-		company_id, company_name, company_path, 
-		company_type_id, company_status_id, main_office_id
-	) values (
-		v_company_id, company_name, company_path, 
-		company_type_id, company_status_id, main_office_id
-	);
-
-	-- Set the link back from the office to the company
-	update im_offices
-	set company_id = v_company_id
-	where office_id = main_office_id;
-
-	return v_company_id;
-    end new;
-
-
-    -- Delete a single company (if we know its ID...)
-    procedure del (company_id in integer)
-    is
-	v_company_id		integer;
-    begin
-	-- copy the variable to desambiguate the var name
-	v_company_id := company_id;
-
-	-- make sure to remove links from all offices to this company.
-	update im_offices
-	set company_id = null
-	where company_id = v_company_id;
-
-	-- Erase the im_companies item associated with the id
-	delete from im_companies
-	where company_id = v_company_id;
-
-	-- Erase all the priviledges
-	delete from 	acs_permissions
-	where		object_id = v_company_id;
-	acs_object.del(v_company_id);
-    end del;
-
-    function name (company_id in integer) return varchar
-    is
-	v_name	im_companies.company_name%TYPE;
-    begin
-	select	company_name
-	into	v_name
-	from	im_companies
-	where	company_id = name.company_id;
-
-	return v_name;
-
-    end name;
-
-    function type (company_id in integer) return integer
-    is
-	v_type_id	integer;
-    begin
-	select	company_type_id
-	into	v_type_id
-	from	im_companies
-	where	company_id = type.company_id;
-
-	return v_type_id;
-    end type;
-
-end im_company;
-/
-show errors
-
-
-
----------------------------------------------------------
--- Setup Demo Data
----------------------------------------------------------
-
-prompt *** Creating "Internal" company, representing the company itself
-DECLARE
-    v_office_id		integer;
-    v_company_id	integer;
-BEGIN
-    -- First setup the main office
-    v_office_id := im_office.new(
-        object_type     => 'im_office',
-        office_name     => 'Project/Open Main Office',
-        office_path     => 'po_main_office'
-    );
-
-    v_company_id := im_company.new(
-	object_type	=> 'im_company',
-	company_name	=> 'Internal',
-	company_path	=> 'internal',
-	main_office_id	=> v_office_id,
-	-- 'Internal' company type
-	company_type_id => 53,
-	-- 'Active' status
-	company_status_id => 46
-    );
-end;
-/
-
-
-
-prompt *** -- Create the "TecnoLoge" company
-DECLARE
-    v_office_id		integer;
-    v_company_id	integer;
-BEGIN
-    -- First setup the main office
-    v_office_id := im_office.new(
-        object_type     => 'im_office',
-        office_name     => 'TecnoLoge Main Office',
-        office_path     => 'tecnologoe_main_office'
-    );
-
-    v_company_id := im_company.new(
-	object_type	=> 'im_company',
-	company_name	=> 'TecnoLoge',
-	company_path	=> 'tecnologe',
-	main_office_id	=> v_office_id,
-	-- IT Consulting
-	company_type_id => 55,
-	-- 'Active' status
-	company_status_id => 46
-    );
-end;
-/
-commit;
-

sql/oracle/intranet-country-codes.sql

--- /packages/intranet-core/sql/oracle/intranet-country-codes.sql
---
--- Copyright (C) 1999-2004 various parties
--- The code is based on ArsDigita ACS 3.4
---
--- This program is free software. You can redistribute it 
--- and/or modify it under the terms of the GNU General 
--- Public License as published by the Free Software Foundation; 
--- either version 2 of the License, or (at your option) 
--- any later version. This program is distributed in the 
--- hope that it will be useful, but WITHOUT ANY WARRANTY; 
--- without even the implied warranty of MERCHANTABILITY or 
--- FITNESS FOR A PARTICULAR PURPOSE. 
--- See the GNU General Public License for more details.
---
--- @author	unknown@arsdigita.com
--- @author	frank.bergmann@project-open.com
-
--- ------------------------------------------------------------
--- Countries
---
--- Previously defined in a ".ctl" file, but we need to have
--- these tables defined _before_ we define im_projects etc.
---
--- This is NOT the list of all available countries. We have
--- included here only large countries, European countries, 
--- English and Spanish speaking countries.
-
-
-create table country_codes (
-	iso		char(2)
-			constraint country_codes_pk
-			primary key,
-	country_name	varchar(150) not null
-);
-
-
---------------------------------------------------------------
--- Get common entries
-
-@../common/intranet-country-codes.sql
-

sql/oracle/upgrade/upgrade-2.0.0-2.0.1.sql

-
-alter table im_view_columns add
-	extra_from		varchar(4000);
-
-@../intranet-companies.sql
-@../intranet-categories.sql
-@../intranet-views.sql
-
-alter table im_view_columns add
-	extra_from             varchar(4000);
-
-alter table im_view_columns add 
-	order_by_clause         varchar(4000);

www/admin/backup/restore-2.adp

-<master src="../master">
-<property name="context">@context;noquote@</property>
-<property name="title">#intranet-core.Menu_Backup_Restore#</property>
-<property name="admin_navbar_label">admin_backup</property>
-
-@page_body;noquote@
-
-
-