Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
I
intranet-core
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
project-open
intranet-core
Commits
add505ce
Commit
add505ce
authored
Aug 01, 2004
by
Frank Bergmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
- changed "Clients" into "Companies"
parent
523dee41
Changes
8
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
16 additions
and
16 deletions
+16
-16
accounting-contact-users.tcl
www/customers/accounting-contact-users.tcl
+1
-1
accounting-contact.tcl
www/customers/accounting-contact.tcl
+4
-4
primary-contact-users.tcl
www/customers/primary-contact-users.tcl
+1
-1
primary-contact.tcl
www/customers/primary-contact.tcl
+4
-4
upload-contacts-2.tcl
www/customers/upload-contacts-2.tcl
+1
-1
upload-contacts.tcl
www/customers/upload-contacts.tcl
+2
-2
upload-customers-2.tcl
www/customers/upload-customers-2.tcl
+1
-1
upload-customers.tcl
www/customers/upload-customers.tcl
+2
-2
No files found.
www/customers/accounting-contact-users.tcl
View file @
add505ce
...
...
@@ -41,7 +41,7 @@ set customer_name [db_string customer_name \
db_release_unused_handles
set
page_title
"Select accounting contact for
$customer
_name"
set
context_bar
[
ad_context_bar
[
list
./
"C
lients"
]
[
list
view?
[
export_url_vars group_id
]
"One customer
"
]
"Select contact"
]
set
context_bar
[
ad_context_bar
[
list
./
"C
ompanies"
]
[
list
view?
[
export_url_vars group_id
]
"One company
"
]
"Select contact"
]
set
page_body
"
...
...
www/customers/accounting-contact.tcl
View file @
add505ce
...
...
@@ -25,7 +25,7 @@ ad_page_contract {
set
user_id
[
ad_maybe_redirect_for_registration
]
set
page_title
"Add accounting contact"
set
context_bar
[
ad_context_bar
[
list
/intranet/customers/
"C
lient
s"
]
$page
_title
]
set
context_bar
[
ad_context_bar
[
list
/intranet/customers/
"C
ompanie
s"
]
$page
_title
]
set
customer_name
[
db_string customer_name
{
select c.customer_name
...
...
@@ -59,12 +59,12 @@ db_release_unused_handles
if
{
[
empty_string_p
$contact
_info
]
}
{
set page_body
"
<H3>No C
lient
Employees in our Database</H3>
<H3>No C
ompany
Employees in our Database</H3>
We have no contacts in our database for
$customer
_name<BR>
<UL>
<LI>Please create a <A HREF=/intranet/users/new>new client contact</A>.
<LI>Make the new client contact a <A HREF=/intranet/customers/view?customer_id=
$customer
_id>c
ustomer
employee</A>
$customer
_name.
<LI>Make the new client contact a <A HREF=/intranet/customers/view?customer_id=
$customer
_id>c
ompany
employee</A>
$customer
_name.
<LI>Finally, revisit this page and an option will appear to add the new client contact.
...
...
@@ -80,7 +80,7 @@ Also, please make sure that the client isn't defined multiple with similar names
set
return_url
"
[
im_url_stub
]
/customers/view?
[
export_url_vars customer_id
]
"
set
page_title
"Select accounting contact for
$customer
_name"
set
context_bar
[
ad_context_bar
[
list
./
"C
lients"
]
[
list
view?
[
export_url_vars customer_id
]
"One customer
"
]
"Select contact"
]
set
context_bar
[
ad_context_bar
[
list
./
"C
ompanies"
]
[
list
view?
[
export_url_vars customer_id
]
"One company
"
]
"Select contact"
]
set
page_body
"
<ul>
...
...
www/customers/primary-contact-users.tcl
View file @
add505ce
...
...
@@ -40,7 +40,7 @@ set customer_name [db_string customer_name \
db_release_unused_handles
set
page_title
"Select primary contact for
$customer
_name"
set
context_bar
[
ad_context_bar
[
list
./
"C
lients"
]
[
list
view?
[
export_url_vars group_id
]
"One customer
"
]
"Select contact"
]
set
context_bar
[
ad_context_bar
[
list
./
"C
ompanies"
]
[
list
view?
[
export_url_vars group_id
]
"One company
"
]
"Select contact"
]
set
page_body
"
...
...
www/customers/primary-contact.tcl
View file @
add505ce
...
...
@@ -25,7 +25,7 @@ ad_page_contract {
set
user_id
[
ad_maybe_redirect_for_registration
]
set
page_title
"Add primary contact"
set
context_bar
[
ad_context_bar
[
list
/intranet/customers/
"C
lient
s"
]
$page
_title
]
set
context_bar
[
ad_context_bar
[
list
/intranet/customers/
"C
ompanie
s"
]
$page
_title
]
set
customer_name
[
db_string customer_name
{
select
...
...
@@ -64,12 +64,12 @@ db_release_unused_handles
if
{
[
empty_string_p
$contact
_info
]
}
{
set page_body
"
<H3>No C
lient
Employees in our Database</H3>
<H3>No C
ompany
Employees in our Database</H3>
We have no contacts in our database for
$customer
_name<BR>
<UL>
<LI>Please create a <A HREF=/intranet/users/new>new client contact</A>.
<LI>Make the new client contact a <A HREF=/intranet/customers/view?customer_id=
$customer
_id>c
ustomer
employee</A>
$customer
_name.
<LI>Make the new client contact a <A HREF=/intranet/customers/view?customer_id=
$customer
_id>c
ompany
employee</A>
$customer
_name.
<LI>Finally, revisit this page and an option will appear to add the new client contact.
...
...
@@ -85,7 +85,7 @@ Also, please make sure that the client isn't defined multiple with similar names
set
return_url
"
[
im_url_stub
]
/customers/view?
[
export_url_vars customer_id
]
"
set
page_title
"Select primary contact for
$customer
_name"
set
context_bar
[
ad_context_bar
[
list
./
"C
lients"
]
[
list
view?
[
export_url_vars customer_id
]
"One customer
"
]
"Select contact"
]
set
context_bar
[
ad_context_bar
[
list
./
"C
ompanies"
]
[
list
view?
[
export_url_vars customer_id
]
"One company
"
]
"Select contact"
]
set
page_body
"
<ul>
...
...
www/customers/upload-contacts-2.tcl
View file @
add505ce
...
...
@@ -29,7 +29,7 @@ ad_page_contract {
set current_user_id
[
ad_maybe_redirect_for_registration
]
set
page_title
"Upload New File/URL"
set
page_body
"<PRE>
\n
<A HREF=
$return
_url>Return to Project Page</A>
\n
"
set
context_bar
[
ad_context_bar
[
list
"/intranet/cusomers/"
"C
lient
s"
]
"Upload CSV"
]
set
context_bar
[
ad_context_bar
[
list
"/intranet/cusomers/"
"C
ompanie
s"
]
"Upload CSV"
]
# Get the file from the user.
# number_of_bytes is the upper-limit
...
...
www/customers/upload-contacts.tcl
View file @
add505ce
...
...
@@ -21,9 +21,9 @@ ad_page_contract {
}
set
user_id
[
ad_maybe_redirect_for_registration
]
set
page_title
"Upload C
lient
Contacts CSV"
set
page_title
"Upload C
ompany
Contacts CSV"
set
context_bar
[
ad_context_bar
[
list
"/intranet/customers/"
"C
lient
s"
]
"Upload CSV"
]
set
context_bar
[
ad_context_bar
[
list
"/intranet/customers/"
"C
ompanie
s"
]
"Upload CSV"
]
set
page_content
"
<form enctype=multipart/form-data method=POST action=upload-contacts-2.tcl>
...
...
www/customers/upload-customers-2.tcl
View file @
add505ce
...
...
@@ -27,7 +27,7 @@ ad_page_contract {
set user_id
[
ad_maybe_redirect_for_registration
]
set
page_title
"Upload New File/URL"
set
page_body
"<PRE>
\n
<A HREF=
$return
_url>Return to Project Page</A>
\n
"
set
context_bar
[
ad_context_bar
[
list
"/intranet/cusomers/"
"C
lient
s"
]
"Upload CSV"
]
set
context_bar
[
ad_context_bar
[
list
"/intranet/cusomers/"
"C
ompanie
s"
]
"Upload CSV"
]
# Get the file from the user.
# number_of_bytes is the upper-limit
...
...
www/customers/upload-customers.tcl
View file @
add505ce
...
...
@@ -22,9 +22,9 @@ ad_page_contract {
}
set
user_id
[
ad_maybe_redirect_for_registration
]
set
page_title
"Upload C
lient
CSV"
set
page_title
"Upload C
ompanies
CSV"
set
context_bar
[
ad_context_bar
[
list
"/intranet/customers/"
"C
ustomer
s"
]
"Upload CSV"
]
set
context_bar
[
ad_context_bar
[
list
"/intranet/customers/"
"C
ompanie
s"
]
"Upload CSV"
]
set
page_content
"
<form enctype=multipart/form-data method=POST action=upload-customers-2.tcl>
...
...
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