Skip to content

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

Initial Import

parents
Pipeline #204 failed with stages
      Hide whitespace changes
      Inline Side-by-side
      Showing with 1027 additions and 0 deletions
      intranet-csv-import.info 0 → 100644
      View file @ a49d944e
      <?xml version="1.0"?>
      <!-- Generated by the OpenACS Package Manager -->
      <package key="intranet-csv-import" url="http://openacs.org/repository/apm/packages/intranet-csv-import" type="apm_application">
      <package-name>]project-open[ CSV Import</package-name>
      <pretty-plural>]project-open[ CSV Import</pretty-plural>
      <initial-install-p>f</initial-install-p>
      <singleton-p>t</singleton-p>
      <implements-subsite-p>f</implements-subsite-p>
      <inherit-templates-p>f</inherit-templates-p>
      <auto-mount>intranet-csv-import</auto-mount>
      <version name="0.1d" url="http://openacs.org/repository/download/apm/intranet-csv-import-0.1d.apm">
      <owner url="mailto:frank.bergmann@project-open.com">Frank Bergmann</owner>
      <summary>Import objects from CSV files</summary>
      <vendor url="http://www.project-open.com/">]project-open[</vendor>
      <description format="text/plain">Allows to map CSV column names to ]po[ fields and imports various type of objects</description>
      <maturity>0</maturity>
      <provides url="intranet-csv-import" version="0.1d"/>
      <callbacks>
      </callbacks>
      <parameters>
      <!-- No version parameters -->
      </parameters>
      </version>
      </package>
      tcl/intranet-csv-import-procs.tcl 0 → 100644
      View file @ a49d944e
      # /packages/intranet-cvs-import/tcl/intranet-cvs-import-procs.tcl
      #
      # Copyright (C) 2011 ]project-open[
      #
      # All rights reserved. Please check
      # http://www.project-open.com/license/ for details.
      ad_library {
      @author frank.bergmann@project-open.com
      }
      # ----------------------------------------------------------------------
      #
      # ----------------------------------------------------------------------
      ad_proc -public im_csv_import_label_from_object_typet {
      -object_type:required
      } {
      Returns the main navbar lable for the object_type
      } {
      switch $object_type {
      im_company { return "companies" }
      im_project { return "projects" }
      person { return "users" }
      default { return "" }
      }
      }
      # ---------------------------------------------------------------------
      # Available Fields per Object Type
      # ---------------------------------------------------------------------
      ad_proc -public im_csv_import_object_fields {
      -object_type:required
      } {
      Returns the main navbar lable for the object_type
      } {
      switch $object_type {
      im_project {
      set object_fields {
      customer_name
      parent_nrs
      project_nr
      project_name
      project_status
      project_type
      start_date
      end_date
      customer_contact
      on_track_status
      percent_completed
      project_manager
      project_priority
      program
      milestone_p
      description
      note
      material
      uom
      planned_units
      billable_units
      cost_center_code
      timesheet_task_priority
      sort_order
      project_budget
      project_budget_currency
      project_budget_hours
      presales_probability
      presales_value
      project_path
      confirm_date
      source_language
      subject_area
      final_company
      expected_quality
      customer_project_nr
      }
      }
      default {
      ad_return_complaint 1 "Unknown object type '$object_type'"
      ad_script_abort
      }
      }
      set dynfield_sql "
      select aa.*,
      a.*,
      w.*
      from im_dynfield_widgets w,
      im_dynfield_attributes a,
      acs_attributes aa
      where a.widget_name = w.widget_name and
      a.acs_attribute_id = aa.attribute_id and
      aa.object_type in ('im_project', 'im_timesheet_task') and
      (also_hard_coded_p is null OR also_hard_coded_p = 'f')
      "
      db_foreach dynfields $dynfield_sql {
      lappend object_fields $attribute_name
      }
      return $object_fields
      }
      # ---------------------------------------------------------------------
      # Available Parsers
      # ---------------------------------------------------------------------
      ad_proc -public im_csv_import_parsers {
      -object_type:required
      } {
      Returns the list of available parsers
      } {
      switch $object_type {
      im_project {
      set parsers {
      no_change "No Change"
      date_european "European Data Parser (DD.MM.YYYY)"
      }
      }
      default {
      ad_return_complaint 1 "Unknown object type '$object_type'"
      ad_script_abort
      }
      }
      return $parsers
      }
      # ---------------------------------------------------------------------
      # Guess the most appropriate parser for a column
      # ---------------------------------------------------------------------
      ad_proc -public im_csv_import_guess_parser {
      {-sample_values {}}
      -object_type:required
      -field_name:required
      } {
      Returns the best guess for a parser for the given field
      } {
      # Abort if there are not enough values
      if {[llength $sample_values] < 2} { return "" }
      # Available parsers
      set date_european_p 1
      set date_american_p 1
      set number_plain_p 1
      set number_european_p 1
      set number_american_p 1
      # set the parserst to 0 if one of the values doesn't fit
      foreach val $sample_values {
      if {![regexp {^(.+)\.(.+)\.(....)$} $val match]} { set date_european_p 0 }
      if {![regexp {^[0-9]+$} $val match]} { set number_plain 0 }
      }
      if {$date_european_p} { return "date_european" }
      if {$number_plain_p} { return "number_plain" }
      return ""
      }
      # ---------------------------------------------------------------------
      # Convert the list of parent_nrs into the parent_id
      # ---------------------------------------------------------------------
      ad_proc -public im_csv_import_convert_project_parent_nrs {
      {-parent_id ""}
      parent_nrs
      } {
      Returns {parent_id err}
      } {
      ns_log Notice "im_csv_import_convert_project_parent_nrs -parent_id $parent_id $parent_nrs"
      # Recursion end - just return the parent.
      if {"" == $parent_nrs} { return [list $parent_id ""] }
      # Lookup the first parent_nr below the current parent_id
      set parent_nr [lindex $parent_nrs 0]
      set parent_nrs [lrange $parent_nrs 1 end]
      set parent_sql "= $parent_id"
      if {"" == $parent_id} { set parent_sql "is null" }
      set parent_id [db_string pid "
      select project_id
      from im_projects
      where parent_id $parent_sql and
      lower(project_nr) = lower(:parent_nr)
      "]
      if {"" == $parent_id} {
      return [list "" "Didn't find project with project_nr='$project_nr' and parent_id='$parent_id'"]
      }
      return [im_csv_import_convert_project_parent_nrs -parent_id $parent_id $parent_nrs]
      }
      \ No newline at end of file
      www/import-2.adp 0 → 100644
      View file @ a49d944e
      <master>
      <property name="title">@page_title@</property>
      <property name="context">@context_bar@</property>
      <property name="main_navbar_label">@main_navbar_label@</property>
      <form enctype="multipart/form-data" method=POST action="import-@object_type@.tcl">
      <%= [export_form_vars object_type return_url import_filename] %>
      <table>
      <tr clas=rowtitle>
      <td class=rowtitle>Field Name</td>
      <td class=rowtitle>Row 1</td>
      <td class=rowtitle>Row 2</td>
      <td class=rowtitle>Mapping</td>
      <td class=rowtitle>Transformation</td>
      </tr>
      <multiple name=mapping>
      <if @mapping.rownum@ odd><tr class="list-odd"></if>
      <else><tr class="list-even"></else>
      <td>@mapping.field_name@ @mapping.column;noquote@</td>
      <td>@mapping.row_1@</td>
      <td>@mapping.row_2@</td>
      <td>@mapping.map;noquote@</td>
      <td>@mapping.parser;noquote@</td>
      </tr>
      </multiple>
      </table>
      <table>
      <tr>
      <td>Save Mapping as:</td>
      <td><input type=text name=mapping_name></td>
      </tr>
      <tr>
      <td></td>
      <td><input type=submit value="#intranet-csv-import.Import_CVS#"></td>
      </tr>
      </table>
      </form>
      www/import-2.tcl 0 → 100755
      View file @ a49d944e
      # /packages/intranet-csv-import/www/import-2.tcl
      #
      ad_page_contract {
      Starts the analysis process for the file imported
      @author frank.bergmann@project-open.com
      } {
      { return_url "" }
      { main_navbar_label "" }
      object_type
      upload_file
      object_type
      }
      # ---------------------------------------------------------------------
      # Default & Security
      # ---------------------------------------------------------------------
      set current_user_id [ad_maybe_redirect_for_registration]
      set page_title [lang::message::lookup "" intranet-cvs-import.Upload_Objects "Upload Objects"]
      set context_bar [im_context_bar "" $page_title]
      set admin_p [im_is_user_site_wide_or_intranet_admin $current_user_id]
      if {!$admin_p} {
      ad_return_complaint 1 "Only administrators have the right to import objects"
      ad_script_abort
      }
      # Get the file from the user.
      # number_of_bytes is the upper-limit
      set max_n_bytes [ad_parameter -package_id [im_package_filestorage_id] MaxNumberOfBytes "" 0]
      set tmp_filename [ns_queryget upload_file.tmpfile]
      im_security_alert_check_tmpnam -location "import-2.tcl" -value $tmp_filename
      if { $max_n_bytes && ([file size $tmp_filename] > $max_n_bytes) } {
      ad_return_complaint 1 "Your file is larger than the maximum permissible upload size:
      [util_commify_number $max_n_bytes] bytes"
      ad_script_abort
      }
      # strip off the C:\directories... crud and just get the file name
      if ![regexp {([^//\\]+)$} $upload_file match filename] {
      # couldn't find a match
      set filename $upload_file
      }
      if {[regexp {\.\.} $filename]} {
      set error "Filename contains forbidden characters"
      ad_returnredirect "/error.tcl?[export_url_vars error]"
      }
      if {![file readable $tmp_filename]} {
      ad_return_complaint 1 "Unable to read the file '$tmp_filename'. <br>
      Please check the file permissions or contact your system administrator.\n"
      ad_script_abort
      }
      set import_filename "${tmp_filename}_copy"
      catch {
      exec cp $tmp_filename $import_filename
      }
      # ---------------------------------------------------------------------
      # Open and parse the file
      # ---------------------------------------------------------------------
      set encoding "utf-8"
      if {[catch {
      set fl [open $tmp_filename]
      fconfigure $fl -encoding $encoding
      set lines_content [read $fl]
      close $fl
      } err]} {
      ad_return_complaint 1 "Unable to open file $tmp_filename:<br><pre>\n$err</pre>"
      ad_script_abort
      }
      # Extract the header line from the file
      set lines [split $lines_content "\n"]
      set separator [im_csv_guess_separator $lines]
      # ad_return_complaint 1 $separator
      set lines_len [llength $lines]
      set header [lindex $lines 0]
      set headers [im_csv_split $header $separator]
      set header_len [llength $headers]
      set values_lol [im_csv_get_values $lines_content $separator]
      # Take a sample of max_row rows from the file and show
      set max_row 10
      for {set i 1} {$i <= $max_row} {incr i} {
      set row_$i [im_csv_split [lindex $lines $i] $separator]
      }
      # Get the list of all available fields for the object_type
      set object_fields [im_csv_import_object_fields -object_type $object_type]
      # Determine the list of parsers for the object_type
      set parser_pairs [im_csv_import_parsers -object_type $object_type]
      # ---------------------------------------------------------------------
      # Create and fill the multirow
      # ---------------------------------------------------------------------
      # Setup the multirow with some sample rows
      multirow create mapping field_name column map parser
      for {set i 1} {$i < $max_row} {incr i} {
      multirow extend mapping "row_$i"
      }
      set object_type_pairs [list]
      foreach field $object_fields { lappend object_type_pairs $field $field }
      set cnt 0
      foreach header_name $headers {
      # Column - Name of the CSV colum
      set column "<input type=hidden name=column.$cnt value=\"$header_name\">"
      # Mapping - Map to which object field?
      set default_map $header_name
      set map [im_select map.$cnt $object_type_pairs $default_map]
      # Parser - convert the value from CSV values to ]po[ values
      set parser_sample_values [list]
      for {set i 1} {$i <= $max_row} {incr i} {
      set row_name "row_$i"
      set val [lindex [set $row_name] $cnt]
      if {"" != $val} { lappend parser_sample_values $val }
      }
      set default_parser [im_csv_import_guess_parser -object_type $object_type -field_name $header_name -sample_values $parser_sample_values]
      set parser [im_select parser.$cnt $parser_pairs $default_parser]
      set first_val [lindex $row_1 $cnt]
      set second_val [lindex $row_2 $cnt]
      multirow append mapping $header_name $column $map $parser $first_val $second_val
      incr cnt
      }
      www/import-im_project.tcl 0 → 100644
      View file @ a49d944e
      # /packages/intranet-csv-import/www/import-im_project.tcl
      #
      ad_page_contract {
      Starts the analysis process for the file imported
      @author frank.bergmann@project-open.com
      @param mapping_name: Should we store the current mapping in the DB for future use?
      @param column: Name of the CSV column
      @param map: Name of the ]po[ object attribute
      @param parser: Converter for CSV data type -> ]po[ data type
      } {
      { return_url "" }
      { upload_file "" }
      { import_filename "" }
      { mapping_name "" }
      column:array
      map:array
      parser:array
      }
      # ---------------------------------------------------------------------
      # Aux functions
      # ---------------------------------------------------------------------
      ad_proc -public im_id_from_user_name { name } {
      Checks for a user with the given name
      } {
      set user_id [db_string uid "
      select min(user_id)
      from users
      where lower(trim(username)) = lower(trim(:name))
      " -default ""]
      if {"" == $user_id} {
      set user_id [db_string uid "
      select min(person_id)
      from persons
      where lower(trim(im_name_from_user_id(person_id))) = lower(trim(:name))
      " -default ""]
      }
      return $user_id
      }
      ad_proc -public im_csv_import_parser_date_european { arg } {
      Parses a European date format like '08.06.2011' as the 8th of June, 2011
      } {
      if {[regexp {^(.+)\.(.+)\.(....)$} $arg match dom month year]} { return [list "$year-$month-$dom" ""] }
      return [list "" "Error parsing European date format '$arg': expected 'dd.mm.yyyy'"]
      }
      # ---------------------------------------------------------------------
      # Default & Security
      # ---------------------------------------------------------------------
      set current_user_id [ad_maybe_redirect_for_registration]
      set page_title [lang::message::lookup "" intranet-cvs-import.Upload_Objects "Upload Objects"]
      set context_bar [im_context_bar "" $page_title]
      set admin_p [im_is_user_site_wide_or_intranet_admin $current_user_id]
      if {!$admin_p} {
      ad_return_complaint 1 "Only administrators have the right to import objects"
      ad_script_abort
      }
      # ---------------------------------------------------------------------
      # Check and open the file
      # ---------------------------------------------------------------------
      if {![file readable $import_filename]} {
      ad_return_complaint 1 "Unable to read the file '$import_filename'. <br>
      Please check the file permissions or contact your system administrator.\n"
      ad_script_abort
      }
      set encoding "utf-8"
      if {[catch {
      set fl [open $import_filename]
      fconfigure $fl -encoding $encoding
      set lines_content [read $fl]
      close $fl
      } err]} {
      ad_return_complaint 1 "Unable to open file $import_filename:<br><pre>\n$err</pre>"
      ad_script_abort
      }
      # Extract the header line from the file
      set lines [split $lines_content "\n"]
      set separator [im_csv_guess_separator $lines]
      set lines_len [llength $lines]
      set header [lindex $lines 0]
      set header_fields [im_csv_split $header $separator]
      set header_len [llength $header_fields]
      set values_list_of_lists [im_csv_get_values $lines_content $separator]
      # ------------------------------------------------------------
      # Get DynFields
      set dynfield_sql "
      select aa.*,
      a.*,
      w.*
      from im_dynfield_widgets w,
      im_dynfield_attributes a,
      acs_attributes aa
      where a.widget_name = w.widget_name and
      a.acs_attribute_id = aa.attribute_id and
      aa.object_type in ('im_project', 'im_timesheet_task') and
      (also_hard_coded_p is null OR also_hard_coded_p = 'f')
      "
      # ------------------------------------------------------------
      # Render Result Header
      ad_return_top_of_page "
      [im_header]
      [im_navbar]
      "
      # ------------------------------------------------------------
      set cnt 1
      foreach csv_line_fields $values_list_of_lists {
      incr cnt
      ns_write "<li>\n"
      ns_write "<li>Starting to parse line $cnt\n"
      # Preset values, defined by CSV sheet:
      set project_name ""
      set project_nr ""
      set project_path ""
      set customer_name ""
      set customer_id ""
      set parent_nrs ""
      set parent_id ""
      set project_status_id ""
      set project_type_id ""
      set project_lead_id ""
      set start_date ""
      set end_date ""
      set percent_completed ""
      set on_track_status ""
      set project_budget ""
      set project_budget_currency ""
      set project_budget_hours ""
      set description ""
      set note ""
      set company_contact_id ""
      set company_project_nr ""
      set confirm_date ""
      set expected_quality_id ""
      set final_company ""
      set milestone_p ""
      set project_priority ""
      set sort_order ""
      set source_language_id ""
      set subject_area_id ""
      set template_p ""
      set cost_center ""
      set uom ""
      set planned_units ""
      set billable_units ""
      set priority ""
      set sort_order ""
      db_foreach initiate_dynfields $dynfield_sql {
      set $attribute_name ""
      }
      # -------------------------------------------------------
      # Extract variables from the CSV file
      #
      set var_name_list [list]
      for {set j 0} {$j < $header_len} {incr j} {
      set var_name [string trim [lindex $header_fields $j]]
      if {"" == $var_name} {
      # No variable name - probably an empty column
      continue
      }
      set var_name [string tolower $var_name]
      set var_name [string map -nocase {" " "_" "\"" "" "'" "" "/" "_" "-" "_" "\[" "(" "\{" "(" "\}" ")" "\]" ")"} $var_name]
      lappend var_name_list $var_name
      ns_log notice "upload-companies-2: varname([lindex $header_fields $j]) = $var_name"
      set var_value [string trim [lindex $csv_line_fields $j]]
      set var_value [string map -nocase {"\"" "'" "\[" "(" "\{" "(" "\}" ")" "\]" ")"} $var_value]
      if {[string equal "NULL" $var_value]} { set var_value ""}
      # replace unicode characters by non-accented characters
      # Watch out! Does not work with Latin-1 characters
      set var_name [im_mangle_unicode_accents $var_name]
      set cmd "set $var_name \"$var_value\""
      ns_log Notice "upload-companies-2: cmd=$cmd"
      set result [eval $cmd]
      }
      # -------------------------------------------------------
      # Transform the variables
      set i 0
      foreach varname $var_name_list {
      set p $parser($i)
      switch $p {
      no_change { }
      default {
      set proc_name "im_csv_import_parser_$p"
      if {[catch {
      set val [set $varname]
      if {"" != $val} {
      set result [$proc_name $val]
      set res [lindex $result 0]
      set err [lindex $result 1]
      if {"" != $err} {
      ns_write "<li><font color=brown>Warning: Error parsing field='[set $varname]' using parser '$p':<pre>$err</pre></font>\n"
      }
      set $varname $res
      }
      } err_msg]} {
      ns_write "<li><font color=red>Error: Error parsing field='[set $varname]' using parser '$p':<pre>$err_msg</pre></font>"
      }
      }
      }
      incr i
      }
      # -------------------------------------------------------
      # Specific field transformations
      # project_name needs to be there
      if {"" == $project_name} {
      ns_write "<li><font color=red>Error: We have found an empty 'Project Name' in line $cnt.<br>
      Please correct the CSV file. Every projects needs to have a unique Project Name.</font>\n"
      continue
      }
      # project_nr needs to be there
      if {"" == $project_nr} {
      ns_write "<li><font color=red>Error: We have found an empty 'Project Nr' in line $cnt.<br>
      Please correct the CSV file. Every project needs to have a unique Project Nr.</font>\n"
      continue
      }
      # parent_nrs contains a space separated list
      if {[catch {
      set result [im_csv_import_convert_project_parent_nrs $parent_nrs]
      } err_msg]} {
      ns_write "<li><font color=red>Error: We have found an error parsing Parent NRs '$parent_nrs'.<pre>\n$err_msg</pre>"
      continue
      }
      set parent_id [lindex $result 0]
      set err [lindex $result 1]
      if {"" != $err} {
      ns_write "<li><font color=red>Error: <pre>$err</pre></font>\n"
      continue
      }
      # Status is a required field
      set project_status_id [im_id_from_category $project_status "Intranet Project Status"]
      if {"" == $project_status_id} {
      ns_write "<li><font color=brown>Warning: Didn't find project status '$project_status', using default status 'Open'</font>\n"
      set project_status_id [im_project_status_open]
      }
      # Type is a required field
      set project_type_id [im_id_from_category [list $project_type] "Intranet Project Type"]
      if {"" == $project_type_id} {
      ns_write "<li><font color=brown>Warning: Didn't find project type '$project_type', using default status 'Other'</font>\n"
      set project_status_id [im_project_type_other]
      }
      # On track status can be NULL without problems
      set on_track_status_id [im_id_from_category [list $on_track_status] "Intranet Project On Track Status"]
      # Priority has been introduced by department planner...
      set project_priority_id [im_id_from_category [list $project_priority] "Intranet Department Planner Project Priority"]
      ns_write "<li>priority=$project_priority_id for $project_priority\n"
      # customer_id
      if {"" == $customer_id } { set customer_id [db_string cust "select company_id from im_companies where lower(company_name) = trim(lower(:customer_name))" -default ""] }
      if {"" == $customer_id } { set customer_id [db_string cust "select company_id from im_companies where lower(company_path) = trim(lower(:customer_name))" -default ""] }
      if {"" == $customer_id } {
      ns_write "<li><font color=red>Error: Didn't find customer for '$customer_name'.<br>
      Every projects needs a valid customer. Please correct the CSV file.</font>\n"
      continue
      }
      set project_lead_id [im_id_from_user_name $project_manager]
      if {"" == $project_lead_id && "" != $project_manager} {
      ns_write "<li><font color=brown>Warning: Didn't find project manager '$project_manager'.</font>\n"
      }
      set company_contact_id [im_id_from_user_name $customer_contact]
      if {"" == $company_contact_id && "" != $customer_contact} {
      ns_write "<li><font color=brown>Warning: Didn't find customer contact '$customer_contact'.</font>\n"
      }
      # -------------------------------------------------------
      # Check if the project already exists
      ns_write "<li>Checking for project duplicates: name='$project_name', nr='$project_nr'"
      set parent_id_sql "= $parent_id"
      if {"" == $parent_id} {
      set parent_id_sql "is null"
      }
      set project_id [db_string project_id "
      select project_id
      from im_projects p
      where p.parent_id $parent_id_sql and
      ( lower(trim(project_name)) = lower(trim(:project_name))
      OR lower(trim(project_nr)) = lower(trim(:project_nr))
      )
      " -default ""]
      # Check for problems with project_path
      set project_path_exists_p [db_string project_path_existis_p "
      select count(*)
      from im_projects p
      where p.parent_id $parent_id_sql and
      p.project_id != :project_id and
      lower(trim(project_path)) = lower(trim(:project_path))
      "]
      if {$project_path_exists_p} {
      ns_write "<li><font color=red>Error: project_path='$project_path' already exists with the parent '$parent_id'</font>"
      continue
      }
      # Project Path is the same as the if not specified otherwise
      if {"" == $project_path} { set project_path $project_nr }
      # Create a new project if necessary
      if {"" == $project_id} {
      ns_write "<li>Going to create project: name='$project_name', nr='$project_nr'"
      if {[catch {
      set project_id [project::new \
      -project_name $project_name \
      -project_nr $project_nr \
      -project_path $project_path \
      -company_id $customer_id \
      -parent_id $parent_id \
      -project_type_id $project_type_id \
      -project_status_id $project_status_id \
      ]
      } err_msg]} {
      ns_write "<li><font color=red>Error: Creating new project:<br><pre>$err_msg</pre></font>"
      continue
      }
      }
      ns_write "<li>Before updating project, on_track_status_id=$on_track_status_id\n"
      if {[catch {
      db_dml update_project "
      update im_projects set
      project_lead_id = :project_lead_id,
      start_date = :start_date,
      end_date = :end_date,
      percent_completed = :percent_completed,
      on_track_status_id = :on_track_status_id,
      project_budget = :project_budget,
      project_budget_currency = :project_budget_currency,
      project_budget_hours = :project_budget_hours,
      project_priority_id = :project_priority_id,
      company_contact_id = :company_contact_id,
      company_project_nr = :customer_project_nr,
      note = :note,
      description = :description
      where
      project_id = :project_id
      "
      } err_msg]} {
      ns_write "<li><font color=red>Error: Error updating project:<br><pre>$err_msg</pre></font>"
      continue
      }
      # -------------------------------------------------------
      # Make sure there is an entry in im_timesheet_tasks if the project is of type task
      if {$project_type_id == [im_project_type_task]} {
      set material_id ""
      if {"" != $material} {
      set material_id [db_string material_lookup "
      select min(material_id)
      from im_materials
      where ( lower(trim(material_nr)) = lower(trim(:material))
      OR lower(trim(material_name)) = lower(trim(:material))
      )
      " -default ""]
      if {"" == $material_id} {
      ns_write "<li><font color=brown>Warning: Didn't find material '$material', using 'Default'.</font>\n"
      }
      }
      if {"" == $material_id} {
      set material_id [im_material_default_material_id]
      }
      # Task Cost Center
      set cost_center_id [db_string cost_center_lookup "
      select min(cost_center_id)
      from im_cost_centers
      where ( lower(trim(cost_center_name)) = lower(trim(:cost_center))
      OR lower(trim(cost_center_label)) = lower(trim(:cost_center))
      OR lower(trim(cost_center_code)) = lower(trim(:cost_center))
      )
      " -default ""]
      if {"" == $cost_center_id && "" != $cost_center} {
      ns_write "<li><font color=brown>Warning: Didn't find cost_center '$cost_center'.</font>\n"
      }
      # Task UoM
      if {"" == $uom} { set uom "Hour" }
      set uom_id [im_id_from_category [list $uom] "Intranet UoM"]
      if {"" == $uom_id} {
      ns_write "<li><font color=brown>Warning: Didn't find UoM '$uom', using default 'Hour'</font>\n"
      set uom_id [im_uom_hour]
      }
      set task_exists_p [db_string task_exists_p "
      select count(*)
      from im_timesheet_tasks
      where task_id = :project_id
      "]
      if {!$task_exists_p} {
      db_dml task_insert "
      insert into im_timesheet_tasks (
      task_id,
      material_id,
      uom_id
      ) values (
      :project_id,
      :material_id,
      :uom_id
      )
      "
      db_dml make_project_to_task "
      update acs_objects
      set object_type = 'im_timesheet_task'
      where object_id = :project_id
      "
      }
      db_dml update_task "
      update im_timesheet_tasks set
      material_id = :material_id,
      uom_id = :uom_id,
      planned_units = :planned_units,
      billable_units = :billable_units,
      cost_center_id = :cost_center_id
      where
      task_id = :project_id
      "
      }
      # -------------------------------------------------------
      # Import DynFields
      set project_dynfield_updates {}
      set task_dynfield_updates {}
      db_foreach store_dynfiels $dynfield_sql {
      switch $object_type {
      im_project {
      lappend project_dynfield_updates "$attribute_name = :$attribute_name"
      }
      im_timesheet_task {
      lappend task_dynfield_updates "$attribute_name = :$attribute_name"
      }
      }
      }
      if {"" != $project_dynfield_updates} {
      set project_update_sql "
      update im_projects set
      [join $project_dynfield_updates ",\n\t\t"]
      where project_id = :project_id
      "
      if {[catch {
      ns_write "<li>Updating Project Dynfields:<br><pre>$project_update_sql</pre>"
      db_dml project_dynfield_update $project_update_sql
      } err_msg]} {
      ns_write "<li><font color=brown>Warning: Error updating dynfields:<br><pre>$err_msg</pre>"
      }
      }
      if {"" != $task_dynfield_updates} {
      set task_update_sql "
      update im_timesheet_tasks set
      [join $task_dynfield_updates ",\n\t\t"]
      where task_id = :project_id
      "
      if {[catch {
      ns_write "<li>Updating Task Dynfields:<br><pre>$task_update_sql</pre>"
      db_dml task_dynfield_update $task_update_sql
      } err_msg]} {
      ns_write "<li><font color=brown>Warning: Error updating dynfields:<br><pre>$err_msg</pre>"
      }
      }
      }
      ns_write "</ul>\n"
      ns_write "<p>\n"
      ns_write "<A HREF=$return_url>Return to Project Page</A>\n"
      # ------------------------------------------------------------
      # Render Report Footer
      ns_write [im_footer]
      www/index.adp 0 → 100644
      View file @ a49d944e
      <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
      <master>
      <property name="title">@page_title@</property>
      <property name="context">@context_bar@</property>
      <property name="main_navbar_label">@main_navbar_label@</property>
      <form enctype="multipart/form-data" method=POST action="import-2.tcl">
      <%= [export_form_vars return_url main_navbar_label] %>
      <table border=0>
      <tr>
      <td>#intranet-csv-import.Object_Type#</td>
      <td>
      <%= [im_select object_type [list im_project "Project" im_company "Company" person "User"] $object_type] %>
      </td>
      </tr>
      <tr>
      <td>Filename</td>
      <td>
      <input type=file name=upload_file size=30>
      <%= [im_gif help "Use the &quot;Browse...&quot; button to locate your file, then click &quot;Open&quot;."] %>
      </td>
      </tr>
      <tr>
      <td></td>
      <td>
      <input type=submit>
      </td>
      </tr>
      </table>
      </form>
      <table>
      <tr>
      <td>
      We espect that the import file contains the column names in the first row.
      </td>
      </tr>
      </table>
      www/index.tcl 0 → 100755
      View file @ a49d944e
      # /package/intranet-core/companies/upload-companies.tcl
      #
      # Copyright (C) 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.
      ad_page_contract {
      Serve the user a form to upload a new file or URL
      @author Frank Bergmann (frank.bergmann@project-open.com)
      @creation-date July 2003
      } {
      { return_url "" }
      { object_type "" }
      }
      set user_id [ad_maybe_redirect_for_registration]
      set page_title [lang::message::lookup "" intranet-csv-import.Upload_file "Upload File"]
      set context_bar [im_context_bar "" $page_title]
      set main_navbar_label [im_csv_import_label_from_object_typet -object_type $object_type]
      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