Skip to content

I
intranet-csv-import
Commit f21860dc authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

-- Improvements and extensions

parent 30a788e6
Hide whitespace changes
Inline Side-by-side
Showing with 230 additions and 137 deletions
tcl/intranet-csv-import-procs.tcl
View file @ f21860dc
......@@ -20,6 +20,32 @@ ad_library {
# - Parser arguments (important for im_category type)
# ---------------------------------------------------------------------
ad_proc -public im_csv_import_guess_im_expense { } {} {
set mapping {
{expense_name "Cost Name" no_change ""}
{expense_date "Expense Date" date ""}
{effective_date "Effective Date" date ""}
{expence_currency "Expense Currency" no_change ""}
{cost_type_id "Cost Type" category "Intranet Cost Type"}
{cost_type "Cost Type" category "Intranet Cost Type"}
{cost_status_id "Cost Status" category "Intranet Cost Status"}
{amount "Amount" number ""}
{vat "VAT" number ""}
{note "Note" no_change ""}
{external_company_name "External Company Name" no_change "" }
{external_company_vat_number "External Vat Nr." no_change "" }
{receipt_reference "Receipt Reference" no_change "" }
{expense_type_id "Expense Type" category "Intranet Expense Type" }
{billable_p "Billable?" boolean ""}
{reimbursable "Reimbursable" number ""}
{expense_payment_type_id "Expense Payment Type" category "Intranet Expense Payment Type" }
{customer_id "Customer" company_name ""}
{provider_id "Provider" user_name ""}
{bundle_id_old "Bundle Id Old" no_change ""}
}
return $mapping
}
ad_proc -public im_csv_import_guess_im_expense_bundle { } {} {
set mapping {
......@@ -27,7 +53,7 @@ ad_proc -public im_csv_import_guess_im_expense_bundle { } {} {
{expense_date "Expense Date" date ""}
{effective_date "Effective Date" date ""}
{expence_currency "Expense Currency" no_change ""}
{parent_nrs "Parent Nrs." project_parent_nrs "" }
{project_nr "Project Nr" project_parent_nrs "" }
{cost_type_id "Cost Type" category "Intranet Cost Type"}
{cost_type "Cost Type" category "Intranet Cost Type"}
{cost_status "Cost Status" category "Intranet Cost Status"}
......@@ -42,6 +68,7 @@ ad_proc -public im_csv_import_guess_im_expense_bundle { } {} {
return $mapping
}
ad_proc -public im_csv_import_guess_rels { } {} {
set mapping {
{object_type_one "Object Type One" no_change "" }
......
www/import-2.adp
View file @ f21860dc
......@@ -124,6 +124,32 @@
</if>
<if @object_type@ eq im_expense>
<table cellpadding="5" cellspacing="5" border="0">
<tr>
<td>
<h2>Settings:</h2>
<table cellpadding="0" cellspacing="0" border="0">
<tr>
<td valign="top"><input type="checkbox" name="overwrite_existing_expense_item_attributes_p" value="1">&nbsp;</td>
<td valign="top"><strong>Should already existing expense attributes be overwritten?</strong><br/>Check to overwrite.</td>
</tr>
</table>
</td>
<!--
<td>
<h2>Please note:</h2>
<ul><li></li></ul>
</td>
-->
</tr>
</table>
</if>
<br/>
<h2>Mapping</h2>
<table>
......
www/import-im_company.tcl
View file @ f21860dc
......@@ -272,7 +272,7 @@ foreach csv_line_fields $values_list_of_lists {
# Create a new company if necessary
if {"" == $company_id} {
if {$ns_write_p} { ns_write "<li>Going to create company: name='$company_name'\n" }
if {$ns_write_p} { ns_write "<li><font color=green>Going to create company: name='$company_name'</li>" }
if {[catch {
......
www/import-im_expense.tcl
View file @ f21860dc
......@@ -15,7 +15,7 @@ ad_page_contract {
{ import_filename "" }
{ mapping_name "" }
{ ns_write_p 1 }
{ overwrite_existing_invoice_attributes_p 0 }
{ overwrite_existing_expense_item_attributes_p 0 }
column:array
map:array
parser:array
......@@ -134,6 +134,24 @@ foreach csv_line_fields $values_list_of_lists {
set reimbursable ""
set expense_payment_type_id ""
# im_costs values
set cost_name ""
set cost_nr ""
set effective_date ""
set expense_currency ""
set cost_type_id ""
set cost_type ""
set cost_status_id ""
set cost_status ""
set amount ""
set vat ""
set customer_name ""
set customer_id ""
set provider_name ""
set provider_id ""
set project_id ""
set bundle_id_old ""
foreach attribute_name $attribute_names {
set $attribute_name ""
}
......@@ -201,28 +219,32 @@ foreach csv_line_fields $values_list_of_lists {
incr i
}
if {$ns_write_p} { ns_write "<li>Before cost_nr: name=$cost_name, nr=$cost_nr</font>\n" }
# Use the current cost_name in the next line.
# That's useful for invoice_items right after the respective Financial Document
if {"" ne $cost_name} { set old_cost_name $cost_name }
# if {$ns_write_p} { ns_write "<li>Before cost_nr: name=$cost_name, nr=$cost_nr</font>\n" }
# -------------------------------------------------------
# Check if the cost already exists
# Check if we find the same cost by name with it's project.
set cost_id [db_string cost_id "select cost_id from im_costs where lower(trim(cost_nr)) = lower(trim(:cost_nr))" -default ""]
if {"" eq $cost_id} {
set cost_id [db_string cost_id "select cost_id from im_costs where lower(trim(cost_name)) = lower(trim(:cost_name))" -default ""]
}
if {$ns_write_p} { ns_write "<li>id=$cost_id, name='$cost_name', nr='$cost_nr'\n" }
# Validation
# Check if the cost already exists
set sql "
select cost_id
from im_costs c, im_expenses e
where c.amount = :amount
and e.external_company_name = :external_company_name
and e.expense_type_id = :expense_type_id
and c.effective_date = :expense_date
and c.cost_id = e.expense_id
"
set cost_id [db_string cost_id $sql -default ""]
# -------------------------------------------------------
# Specific field transformations
if { "" ne $cost_id && !$overwrite_existing_expense_item_attributes_p } {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an existing Expense:<br/><br/> id:$cost_id<br/>Amount:'$amount'<br/>Note:$note<br/>External Company Name: $external_company_name<br/>expense_type_id: $expense_type_id, expense_date: $expense_date <br/> ...and will not overwrite any of attributes.<br>Skipped record</font>\n"
}
continue
}
# cost_name needs to be there
if {"" == $cost_name} {
# cost_name is mandatory
if {"" == $expense_name} {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty 'Cost Name' in line $cnt.<br>
Skipped record. Please correct the CSV file. Every costs needs to have a unique Cost Name.</font>\n"
......@@ -230,48 +252,75 @@ foreach csv_line_fields $values_list_of_lists {
continue
}
# cost_nr needs to be there
if {"" eq $cost_nr} {
set cost_nr [regsub {[^a-z0-9_]} [string trim [string tolower $cost_name]] "_"]
}
if {"" == $cost_type_id} {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty 'Cost Type' in line $cnt.<br>
Skipped record. Please correct the CSV file.</font>\n"
# Expense Items only!
if { [im_cost_type_expense_item] != $cost_type_id || "" eq $cost_type_id } {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty cost type or a cost type id that is different from: [im_cost_type_expense_item] (Expense)<br>
Skipped record - please correct the CSV file.</font>\n"
}
continue
}
# Status is optional
if {"" == $cost_status_id} {
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find cost status '$cost_status', using default status 'Created'</font>\n" }
set cost_status_id [im_cost_status_created]
}
if {"" eq $currency} {
# VAT is optional
if { "" eq $vat } {
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find a value for VAT, setting VAT to '0'</font>\n" }
set vat 0
}
# Currency is optional
if { "" eq $expense_currency } {
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find currency, using default currency='$default_currency'</font>\n" }
set currency $default_currency
set expense_currency $default_currency
}
# Amount is mandatory
if {"" == $amount} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Didn't find a value for expense amount. Skipping record.</font>\n" }
continue
}
# Provider is mandatory
if {"" == $provider_id} {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty 'Provider' in line $cnt.<br>Skipped record. Please correct the CSV file.</font>\n"
}
continue
}
# expense_type_id is mandatory
if {"" == $expense_type_id} {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty 'Expense Type ID' in line $cnt.<br>
Skipped record. Please correct the CSV file.</font>\n"
}
continue
}
# -------------------------------------------------------
# Create a new expense item
if { } {
if { "" == $cost_id } {
if {$ns_write_p} { ns_write "<li><font color=green>No existing expense found, creating new one</font></li>" }
if {[catch {
set cost_id [db_string new_cost "
select im_expense__new (
:expense_id, -- expense_id
null, -- expense_id
'im_expense', -- object_type
now(), -- creation_date
:user_id_from_search, -- creation_user
:current_user_id, -- creation_user
'[ad_conn peeraddr]', -- creation_ip
null, -- context_id
:expense_name, -- expense_name
:project_id, -- project_id
:expense_date, -- expense_date now()
:currency, -- expense_currency default ''EUR''
:expense_currency, -- expense_currency default ''EUR''
null, -- expense_template_id default null
:cost_status, -- expense_status_id default 3802
:cost_status_id, -- expense_status_id default 3802
:cost_type_id, -- expense_type_id default 3720
30, -- payment_days default 30
:amount, -- amount
......@@ -295,22 +344,33 @@ foreach csv_line_fields $values_list_of_lists {
continue
}
# Update bundle_id if expense has been part of a bundle
if { "" != $bundle_id_old } {
if {[catch {
# Note: We have used im_costs::investment_id to store the cost_id of the expense bundle. To make sure investment_id hasn't been used otherwise, we also check the cost_type
set bundle_id_new [db_string get_bundle_id "select cost_id from im_costs where investment_id = :bundle_id_old and cost_type_id = [im_cost_type_expense_bundle]" -default 0]
if { 0 != $bundle_id_new } {
if {$ns_write_p} { ns_write "<li>Setting expense bundle (id: $bundle_id_new) for expense (id: $cost_id)\n</li>\n" }
db_dml set_bundle_id "update im_expenses set bundle_id = :bundle_id_new where expense_id = :cost_id"
} else {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Can't find Expense Bundle for bundle_id: $bundle_id_old - Expense will not be assigned to bundle</font>\n" }
}
} err_msg]} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Updating expense bundle:<br><pre>$err_msg</pre></font>\n" }
}
}
# Write Audit Trail
im_audit -object_id $cost_id -action after_create
} else {
if {$ns_write_p} { ns_write "<li>Cost already exists: name='$cost_name', nr='$cost_nr', id='$cost_id'</li>\n" }
if { !$overwrite_existing_invoice_attributes_p } {
if {$ns_write_p} { ns_write "<li>You have choosen not to overwrite/update already existing objects. Skipping record.</li>\n" }
continue
}
}
if {$ns_write_p} { ns_write "<li>Going to update the cost.\n" }
if {[catch {
db_dml update_cost "
if {$ns_write_p} { ns_write "<li>Cost already exists: name='$cost_name', nr='$cost_nr', id='$cost_id', going to update the cost.\n</li>\n" }
if {[catch {
db_dml update_cost "
update im_costs set
cost_name = :cost_name,
cost_name = :expense_name,
cost_nr = :cost_nr,
project_id = :project_id,
......@@ -322,7 +382,7 @@ foreach csv_line_fields $values_list_of_lists {
effective_date = :effective_date,
amount = :amount,
currency = :currency,
currency = :expense_currency,
vat = :vat,
tax = :tax,
......@@ -338,26 +398,29 @@ foreach csv_line_fields $values_list_of_lists {
description = :description
where
cost_id = :cost_id
"
db_dml update_invoice "
update im_invoices set
invoice_nr = :cost_name,
company_contact_id = :customer_contact_id,
payment_method_id = :payment_method_id,
invoice_office_id = :invoice_office_id
where
invoice_id = :cost_id
"
} err_msg]} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Error updating cost:<br><pre>$err_msg</pre></font>" }
continue
"
# Update expense item
db_dml update_expenses "
update im_expenses
set
external_company_name = :external_company_name,
external_company_vat_number = :external_company_vat_number,
receipt_reference = :receipt_reference,
billable_p = :billable_p,
reimbursable = :reimbursable,
expense_payment_type_id = :expense_payment_type_id,
where
expense_id = :cost_id
"
} err_msg]} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Error updating cost:<br><pre>$err_msg</pre></font>" }
continue
}
}
# -------------------------------------------------------
# Associate financial document with projects
#
if {"" ne $project_id} {
set rel_exists_p [db_string rel_exists_p "
select count(*)
......@@ -385,7 +448,6 @@ foreach csv_line_fields $values_list_of_lists {
}
}
# -------------------------------------------------------
# Import DynFields
set cost_dynfield_updates {}
......@@ -431,14 +493,14 @@ foreach csv_line_fields $values_list_of_lists {
}
if {$ns_write_p} { ns_write "<li>Going to write audit log.\n" }
im_audit -object_id $expense_id
im_audit -object_id $cost_id
}
if {$ns_write_p} {
ns_write "</ul>\n"
ns_write "<p>\n"
ns_write "<A HREF=$return_url>Return to Cost Page</A>\n"
ns_write "<a href='$return_url'>Return to main CVS import page</a>\n"
}
# ------------------------------------------------------------
......
www/import-im_expense_bundle.tcl
View file @ f21860dc
# /packages/intranet-csv-import/www/import-im_expense_bundle.tcl
#
# ToDo:
# - provider_name not shown in expense_bundle
ad_page_contract {
Starts the analysis process for the file imported
......@@ -197,17 +199,16 @@ foreach csv_line_fields $values_list_of_lists {
ns_log Notice "import-im_invoice: Parser: '$p -args $p_args $val' -> $target_varname=$res, err=$err"
if {"" != $err} {
if {$ns_write_p} {
ns_write "<li><font color=brown>Warning: Error parsing field='$target_varname' using parser '$p':<pre>$err</pre></font>\n"
ns_write "<li><font color=brown>Warning: Error parsing field='$target_varname' using parser '$p':<pre>$err</pre></font>\n</li>"
}
}
set $target_varname $res
}
} err_msg]} {
if {$ns_write_p} {
ns_write "<li><font color=brown>Warning: Error parsing field='$target_varname' using parser '$p':<pre>$err_msg</pre></font>"
ns_write "<li><font color=brown>Warning: Error parsing field='$target_varname' using parser '$p':<pre>$err_msg</pre></font></li>"
}
}
incr i
}
......@@ -221,7 +222,7 @@ foreach csv_line_fields $values_list_of_lists {
set cost_id [db_string cost_id "select cost_id from im_costs where lower(trim(cost_name)) = lower(trim(:expense_name))" -default ""]
if { "" ne $cost_id && !$overwrite_existing_expense_bundles_p } {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an Expense Bundle named '$cost_name' and will not overwrite any of attributes.<br>Skipped record</font>\n"
ns_write "<li><font color=red>Error: We have found an Expense Bundle named '$expense_name' and will not overwrite any of attributes.<br>Skipped record</font>\n</li>"
}
continue
}
......@@ -230,16 +231,16 @@ foreach csv_line_fields $values_list_of_lists {
if {"" == $expense_name} {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty 'Cost Name' in line $cnt.<br>
Skipped record. Please correct the CSV file. Every costs needs to have a unique Cost Name.</font>\n"
Skipped record. Please correct the CSV file. Every costs needs to have a unique Cost Name.</font>\n</li>"
}
continue
}
# We expect Excpense Bundles only!
if { 3722 != $cost_type_id } {
# We expect Expense Bundles only!
if { [im_cost_type_expense_bundle] != $cost_type_id } {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found a cost type that is different from 3722 (Expense Bundles)<br>
Skipped record - please correct the CSV file.</font>\n"
Skipped record - please correct the CSV file.</font>\n</li>"
}
continue
}
......@@ -260,10 +261,22 @@ foreach csv_line_fields $values_list_of_lists {
# Status is optional
if {"" == $cost_status_id} {
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find cost status '$cost_status', using default status 'Created'</font>\n" }
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find cost status '$cost_status', using default status 'Created'</font>\n</li>" }
set cost_status_id [im_cost_status_created]
}
# Amount
if {"" == $amount} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Didn't find a value for expense amount. Skipping record.</font>\n</li>" }
continue
}
# VAT
if { "" eq $vat } {
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find a value for VAT, setting VAT to '0'</font>\n</li>" }
set vat 0
}
# Customer and provider are required
if {"" == $provider_id} {
if {[im_category_is_a $cost_type_id [im_cost_type_customer_doc]]} { set provider_id [im_company_internal] }
......@@ -279,6 +292,7 @@ foreach csv_line_fields $values_list_of_lists {
continue
}
# Customer ID
if {"" == $customer_id} {
if {$ns_write_p} {
ns_write "<li><font color=red>Error: We have found an empty 'Customer' in line $cnt.<br>
......@@ -288,15 +302,15 @@ foreach csv_line_fields $values_list_of_lists {
}
# Currency
if {"" eq $currency} {
if {"" eq $expense_currency} {
if {$ns_write_p} { ns_write "<li><font color=brown>Warning: Didn't find currency, using default currency='$default_currency'</font>\n" }
set currency $default_currency
set expense_currency $default_currency
}
# -------------------------------------------------------
# Create a new cost if necessary
if {"" == $cost_id} {
if {$ns_write_p} { ns_write "<li>Going to create cost: name='$expense_name''\n" }
if {$ns_write_p} { ns_write "<li><font color=green>Going to create cost: name='$expense_name'</font></li>" }
if {[catch {
set cost_id [db_string new_cost "
......@@ -335,19 +349,7 @@ foreach csv_line_fields $values_list_of_lists {
'' -- description
)
"]
db_dml insert_invoices "
insert into im_invoices (
invoice_id, invoice_nr,
company_contact_id,
payment_method_id,
invoice_office_id
) values (
:cost_id, :cost_name,
:customer_contact_id,
:payment_method_id,
:invoice_office_id
)
"
} err_msg]} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Creating new financial document:<br><pre>$err_msg</pre></font>\n" }
continue
......@@ -357,53 +359,31 @@ foreach csv_line_fields $values_list_of_lists {
im_audit -object_id $cost_id -action after_create
} else {
if {$ns_write_p} { ns_write "<li>Cost already exists: name='$cost_name', nr='$cost_nr', id='$cost_id'</li>\n" }
if { !$overwrite_existing_invoice_attributes_p } {
if {$ns_write_p} { ns_write "<li>You have choosen not to overwrite/update already existing objects. Skipping record.</li>\n" }
continue
}
}
if {$ns_write_p} { ns_write "<li>Going to update the cost.\n" }
if {[catch {
db_dml update_cost "
if {$ns_write_p} { ns_write "<li>Cost already exists: name='$cost_name', nr='$cost_nr', id='$cost_id', overwriting with new attributes.</li>\n" }
if {[catch {
db_dml update_cost "
update im_costs set
cost_name = :cost_name,
cost_name = :expense_name,
cost_nr = :cost_nr,
project_id = :project_id,
customer_id = :customer_id,
provider_id = :provider_id,
cost_status_id = :cost_status_id,
cost_type_id = :cost_type_id,
effective_date = :effective_date,
amount = :amount,
currency = :currency,
currency = :expense_currency,
vat = :vat,
tax = :tax,
payment_days = :payment_days,
paid_amount = :paid_amount,
cost_center_id = :cost_center_id,
cause_object_id = :cause_object_id,
vat_type_id = :vat_type_id,
template_id = :template_id,
note = :note
where
cost_id = :cost_id
"
} err_msg]} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Error updating cost:<br><pre>$err_msg</pre></font>" }
continue
"
} err_msg]} {
if {$ns_write_p} { ns_write "<li><font color=red>Error: Error updating cost:<br><pre>$err_msg</pre></font>" }
continue
}
}
# -------------------------------------------------------
# Import DynFields
set cost_dynfield_updates {}
......@@ -457,7 +437,7 @@ foreach csv_line_fields $values_list_of_lists {
if {$ns_write_p} {
ns_write "</ul>\n"
ns_write "<p>\n"
ns_write "<A HREF=$return_url>Return to Cost Page</A>\n"
ns_write "<A HREF=$return_url>Return to CSV Import page</A>\n"
}
# ------------------------------------------------------------
......
www/import-im_invoice.tcl
View file @ f21860dc
# /packages/intranet-csv-import/www/import-im_invoice.tcl
#
# To-Do:
# Add support for:
# - template_id
ad_page_contract {
Starts the analysis process for the file imported
@author frank.bergmann@project-open.com
......@@ -253,15 +257,9 @@ foreach csv_line_fields $values_list_of_lists {
# -------------------------------------------------------
# Check if the cost already exists
# Check if we find the same cost by name with it's project.
set cost_id [db_string cost_id "select cost_id from im_costs where lower(trim(cost_nr)) = lower(trim(:cost_nr))" -default ""]
if {"" eq $cost_id} {
set cost_id [db_string cost_id "select cost_id from im_costs where lower(trim(cost_name)) = lower(trim(:cost_name))" -default ""]
}
set cost_id [db_string cost_id "select cost_id from im_costs where lower(trim(cost_name)) = lower(trim(:cost_name))" -default ""]
if {$ns_write_p} { ns_write "<li>id=$cost_id, name='$cost_name', nr='$cost_nr'\n" }
# -------------------------------------------------------
# Check if we've got an invoice item
set item_field_count 0
......@@ -307,7 +305,7 @@ foreach csv_line_fields $values_list_of_lists {
}
if {"" eq $item_id} {
# Item doesn't exist yet - insert
if {$ns_write_p} { ns_write "<li>Going to create line: cost_name='$cost_name', item_name='$item_name'\n" }
if {$ns_write_p} { ns_write "<li><font color=green>Going to create line: cost_name='$cost_name', item_name='$item_name'</font></li>" }
db_dml insert_item "
insert into im_invoice_items (
item_id,
......@@ -406,7 +404,7 @@ foreach csv_line_fields $values_list_of_lists {
# -------------------------------------------------------
# Create a new cost if necessary
if {"" == $cost_id} {
if {$ns_write_p} { ns_write "<li>Going to create cost: name='$cost_name', nr='$cost_nr'\n" }
if {$ns_write_p} { ns_write "<li><font=green>Going to create financial document: name='$cost_name', nr='$cost_nr'</font></li>" }
switch $cost_type_id {
3700 { set object_type "im_invoice" }
......@@ -484,7 +482,7 @@ foreach csv_line_fields $values_list_of_lists {
} else {
if {$ns_write_p} { ns_write "<li>Cost already exists: name='$cost_name', nr='$cost_nr', id='$cost_id'</li>\n" }
if { !$overwrite_existing_invoice_attributes_p } {
if {$ns_write_p} { ns_write "<li>You have choosen not to overwrite/update already existing objects. Skipping record.</li>\n" }
if {$ns_write_p} { ns_write "<li>You have choosen not to overwrite/update already existing objects. <b>Skipping record</b>.</li>\n" }
continue
}
}
......
www/import-im_project.tcl
View file @ f21860dc
......@@ -407,7 +407,7 @@ foreach csv_line_fields $values_list_of_lists {
# Create a new project if necessary
if {"" == $project_id} {
if {$ns_write_p} { ns_write "<li>Going to create project: name='$project_name', nr='$project_nr'\n" }
if {$ns_write_p} { ns_write "<li><font color='green'>Going to create project: name='$project_name', nr='$project_nr'</font></li>" }
if {[catch {
set project_id [im_project::new \
-project_name $project_name \
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment