". "Translations enable you to change / adapt the content of each CSV field for your needs.
". "General syntax is: pattern1 ${ASep} replacement1 ${PSep} ... ${PSep} patternN ${ASep} replacementN
". "If the pattern-part of a pair is ommited it will match everything ('^.*$'), which is only ". "usefull for the last pair, as they are worked from left to right.

". "First example: 1${ASep}private${PSep}public
". "This will translate a '1' in the CVS field to 'privat' and everything else to 'public'.

". "Patterns as well as the replacement can be regular expressions (the replacement is done via ereg_replace). ". "If, after all replacements, the value starts with an '@' the whole value is eval()'ed, so you ". "may use all php, phpgw plus your own functions. This is quiet powerfull, but circumvents all ACL.

". "Example using regular expressions and '@'-eval():
$mktime_lotus
". "It will read a date of the form '2001-05-20 08:00:00.00000000000000000' (and many more, see the regular expr.). ". "The [ .:-]-separated fields are read and assigned in different order to @mktime(). Please note to use ". "${VPre} insted of a backslash (I couldn't get backslash through all the involved templates and forms.) ". "plus the field-number of the pattern.

". "In addintion to the fields assign by the pattern of the reg.exp. you can use all other CSV-fields, with the ". "syntax ${CPre}CVS-FIELDNAME$CPos. Here is an example:
". ".+$ASep${CPre}Company$CPos: ${CPre}NFamily$CPos, ${CPre}NGiven$CPos$PSep${CPre}NFamily$CPos, ${CPre}NGiven$CPos
". "It is used on the CVS-field 'Company' and constructs a something like Company: FamilyName, GivenName or ". "FamilyName, GivenName if 'Company' is empty.

". "You can use the 'No CVS #'-fields to assign cvs-values to more than on field, the following example uses the ". "cvs-field 'Note' (which gots already assingned to the description) and construct a short subject: ". "@substr(${CPre}Note$CPos,0,60).' ...'

". "Their is two important user-function for the InfoLog:
". "@addr_id(${CPre}NFamily$CPos,${CPre}NGiven$CPos,${CPre}Company$CPos) ". "searches the addressbook for an address and returns the id if it founds an exact match of at least ". "NFamily AND (NGiven OR Company). This is necessary to link your imported InfoLog-entrys ". "with the addressbook.
". "@cat_id(Cat-name) returns a numerical cat_id. If a category isn't found, it ". "will be automaticaly added.

". "I hope that helped to understand the features, if not ask."; $template->set_var('help_on_trans',lang($help_on_trans)); // I don't think anyone will translate this break; case 'next': $_POST['info_fields'] = unserialize(stripslashes($_POST['info_fields'])); $_POST['trans'] = unserialize(stripslashes($_POST['trans'])); // fall-through case 'import': $hiddenvars = html::input_hidden(array( 'action' => 'continue', 'fieldsep'=> $_POST['fieldsep'], 'charset' => $_POST['charset'], 'start' => $_POST['start']+(!$_POST['debug'] ? $_POST['max'] : 0), 'max' => $_POST['max'], 'debug' => $_POST['debug'], 'info_fields' => $_POST['info_fields'], 'trans' => $_POST['trans'] )); @set_time_limit(0); $fp=fopen($csvfile,'r'); $csv_fields = fgetcsv($fp,8000,$_POST['fieldsep']); $csv_fields = translation::convert($csv_fields,$_POST['charset']); $csv_fields[] = 'no CSV 1'; // eg. for static assignments $csv_fields[] = 'no CSV 2'; $csv_fields[] = 'no CSV 3'; $info_fields = array_diff($_POST['info_fields'],array( '' )); // throw away empty / not assigned entrys $defaults = array(); foreach($info_fields as $csv_idx => $info) { // convert $trans[$csv_idx] into array of pattern => value $defaults[$csv_fields[$csv_idx]] = $info; if ($_POST['trans'][$csv_idx]) { $defaults[$csv_fields[$csv_idx]] .= $PSep.addslashes($_POST['trans'][$csv_idx]); } } $GLOBALS['egw']->preferences->read_repository(); $GLOBALS['egw']->preferences->add('infolog','cvs_import',$defaults); $GLOBALS['egw']->preferences->save_repository(True); $log = ''."\n\t\n"; foreach($info_fields as $csv_idx => $info) { // convert $trans[$csv_idx] into array of pattern => value // if (!$debug) echo "

$csv_idx: ".$csv_fields[$csv_idx].": $info".($trans[$csv_idx] ? ': '.$trans[$csv_idx] : '')."

"; $pat_reps = explode($PSep,stripslashes($_POST['trans'][$csv_idx])); $replaces = ''; $values = ''; if ($pat_reps[0] != '') { foreach($pat_reps as $k => $pat_rep) { list($pattern,$replace) = explode($ASep,$pat_rep,2); if ($replace == '') { $replace = $pattern; $pattern = '^.*$'; } $values[$pattern] = $replace; // replace two with only one, added by the form $replaces .= ($replaces != '' ? $PSep : '') . $pattern . $ASep . $replace; } $trans[$csv_idx] = $values; } /*else unset( $trans[$csv_idx] );*/ $log .= "\t\t\n"; } if (!in_array('access',$info_fields)) // autocreate public access if not set by user { $log .= "\t\t\n"; } $start = $_POST['start'] < 1 ? 1 : $_POST['start']; // ignore empty lines, is_null($fields[0]) is returned on empty lines !!! for($i = 1; $i < $start; ++$i) // overread lines before our start-record { while(($fields = fgetcsv($fp,8000,$_POST['fieldsep'])) && is_null($fields[0])) ; } for($anz = 0; !$_POST['max'] || $anz < $_POST['max']; ++$anz) { while(($fields = fgetcsv($fp,8000,$_POST['fieldsep'])) && is_null($fields[0])) ; if (!$fields) { break; // EOF } $fields = translation::convert($fields,$_POST['charset']); $log .= "\t\n"; $values = $orig = array(); foreach($info_fields as $csv_idx => $info) { //echo "

$csv: $info".($trans[$csv] ? ': '.$trans[$csv] : '')."

"; $val = $fields[$csv_idx]; if (isset($trans[$csv_idx])) { $trans_csv = $trans[$csv_idx]; while (list($pattern,$replace) = each($trans_csv)) { if (ereg((string) $pattern,$val)) { // echo "

csv_idx='$csv_idx',info='$info',trans_csv=".print_r($trans_csv).",preg_replace('/$pattern/','$replace','$val') = "; $val = preg_replace('/'.(string) $pattern.'/',str_replace($VPre,'\\',$replace),(string) $val); // echo "'$val'

"; $reg = $CPreReg.'([a-zA-Z_0-9]+)'.$CPosReg; while (ereg($reg,$val,$vars)) { // expand all CSV fields $val = str_replace($CPre.$vars[1].$CPos,$val[0] == '@' ? "'".addslashes($fields[array_search($vars[1],$csv_fields)])."'" : $fields[array_search($vars[1],$csv_fields)],$val); } if ($val[0] == '@') { // removing the $ to close security hole of showing vars, which contain eg. passwords $val = 'return '.substr(str_replace('$','',$val),1).';'; // echo "

eval('$val')="; $val = eval($val); // echo "'$val'

"; } if ($pattern[0] != '@' || $val) break; } } } $values[$info] = $orig[$info] = $val; } $empty = !count($values); // convert the category name to an id if ($values['cat'] && !is_numeric($values['cat'])) { $values['cat'] = cat_id($values['cat']); } // convert dates to timestamps foreach(array('startdate','enddate','datemodified','datecompleted') as $date) { if (isset($values[$date]) && !is_numeric($date)) { if (preg_match('/(.*)\.[0-9]+/',$values[$date],$parts)) $values[$date] = $parts[1]; $values[$date] = strtotime($values[$date]); } } if (!isset($values['datemodified'])) $values['datemodified'] = $values['startdate']; // convert user-names to user-id's foreach(array('owner','modifier') as $user) { if (isset($values[$user]) && !is_numeric($values[$user])) { if (preg_match('/\[([^\]]+)\]/',$values[$user],$matches)) $values[$user] = $matches[1]; $values[$user] = $GLOBALS['egw']->accounts->name2id($values[$user],'account_lid',$user=='owner'?null:'u'); } } if (isset($values['responsible'])) { $responsible = $values['responsible']; $values['responsible'] = array(); foreach(preg_split('/[,;]/',$responsible) as $user) { if (preg_match('/\[([^\]]+)\]/',$user,$matches)) $user = $matches[1]; if ($user && !is_numeric($user)) $user = $GLOBALS['egw']->accounts->name2id($user); if ($user) $values['responsible'][] = $user; } } if (!in_array('access',$info_fields)) { $values['access'] = 'public'; // public access if not set by user $log .= "\t\t\n"; } if(!$_POST['debug'] && !$empty) // dont import empty contacts { // create new names with info_ prefix $to_write = array(); foreach($values as $name => $value) { $to_write[substr($name,0,5) != 'info_' && $name{0} != '#' ? 'info_'.$name : $name] = $value; } if ($values['addr_id'] && !is_numeric($values['addr_id'])) { list($lastname,$firstname,$org_name) = explode(',',$values['addr_id']); $values['addr_id'] = addr_id($lastname,$firstname,$org_name); } if ($values['project_id'] && !is_numeric($values['project_id'])) { $values['project_id'] = project_id($values['project_id']); } if (($id = $infolog_bo->write($to_write,True,False))) { $info_link_id = false; foreach(array( 'projectmanager:'.$values['project_id'], 'addressbook:'.$values['addr_id'], $values['link_1'],$values['link_2'],$values['link_3'], ) as $value) { list($app,$app_id) = explode(':',$value); if ($app && $app_id) { //echo "

linking infolog:$id with $app:$app_id

\n"; $link_id = egw_link::link('infolog',$id,$app,$app_id); if ($link_id && !$info_link_id) { $to_write = array( 'info_id' => $id, 'info_link_id' => $link_id, ); $infolog_bo->write($to_write); $info_link_id = true; } } } } } // display read and interpreted results, so the user can check it foreach($info_fields as $name) { $log .= "\t\t\n"; } } $log .= "\t\n

#	$info	access
".($start+$anz)."	".$values['access']."	".($orig[$name] != $values[$name] ? htmlspecialchars($orig[$name]).' --> ' : ''). htmlspecialchars($values[$name])."

\n"; $template->set_var('anz_imported',($_POST['debug'] ? lang('%1 records read (not yet imported, you may go %2back%3 and uncheck Test Import)', $anz,'','') : lang('%1 records imported',$anz)). ' '. (!$_POST['debug'] && $fields ? html::submit_button('next','Import next set') . ' ':''). html::submit_button('continue','Back') . ' '. html::submit_button('cancel','Cancel')); $template->set_var('log',$log); $template->parse('rows','imported'); break; } $template->set_var('hiddenvars',str_replace('{','{',$hiddenvars)); $template->pfp('phpgw_body','import'); $GLOBALS['egw']->common->egw_footer();