X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fct.pl;h=a81f451a68bad2a4172dd007c65e0e22f3208499;hb=81fed28305f28aff317639f9a190cdf83a678ed4;hp=dbf8cdd82d833b44c3c39840ba291e82e42f390f;hpb=4f6a2fa1d46212e189bc46a04fce62a77120e02f;p=kivitendo-erp.git

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index dbf8cdd82..a81f451a6 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -49,6 +49,7 @@ use POSIX qw(strftime);
 
 use SL::CT;
 use SL::CVar;
+use SL::Request qw(flatten);
 use SL::DB::Business;
 use SL::DB::Default;
 use SL::Helper::Flash;
@@ -102,7 +103,7 @@ sub search {
 
   $form->{jsscript} = 1;
   $form->{title}    = $form->{IS_CUSTOMER} ? $locale->text('Customers') : $locale->text('Vendors');
-  $form->{fokus}    = 'Form.name';
+  $::request->{layout}->focus('#name');
 
   $form->header();
   print $form->parse_html_template('ct/search');
@@ -110,6 +111,24 @@ sub search {
   $main::lxdebug->leave_sub();
 }
 
+sub search_contact {
+  $::lxdebug->enter_sub;
+  $::auth->assert('customer_vendor_edit');
+
+  $::form->{CUSTOM_VARIABLES}                  = CVar->get_configs('module' => 'Contacts');
+  ($::form->{CUSTOM_VARIABLES_FILTER_CODE},
+   $::form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables'    => $::form->{CUSTOM_VARIABLES},
+                                                                           'include_prefix' => 'l.',
+                                                                           'filter_prefix'  => 'filter.',
+                                                                           'include_value'  => 'Y');
+
+  $::form->{title} = $::locale->text('Search contacts');
+  $::form->header;
+  print $::form->parse_html_template('ct/search_contact');
+
+  $::lxdebug->leave_sub;
+}
+
 sub list_names {
   $main::lxdebug->enter_sub();
 
@@ -268,6 +287,123 @@ sub list_names {
   $main::lxdebug->leave_sub();
 }
 
+sub list_contacts {
+  $::lxdebug->enter_sub;
+  $::auth->assert('customer_vendor_edit');
+
+  $::form->{sortdir} = 1 unless defined $::form->{sortdir};
+
+  my @contacts     = CT->search_contacts(
+    search_term => $::form->{search_term},
+    filter      => $::form->{filter},
+  );
+
+  my $cvar_configs = CVar->get_configs('module' => 'Contacts');
+
+  my @columns      = qw(
+    cp_id vcname vcnumber cp_name cp_givenname cp_street cp_zipcode cp_city cp_phone1 cp_phone2
+    cp_mobile1 cp_mobile2 cp_email cp_abteilung cp_birthday cp_gender
+  );
+
+  my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
+  my @searchable_custom_variables  = grep { $_->{searchable} }  @{ $cvar_configs };
+  my %column_defs_cvars            = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
+
+  push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
+
+  my @visible_columns;
+  if ($::form->{l}) {
+    @visible_columns = grep { $::form->{l}{$_} } @columns;
+    push @visible_columns, qw(cp_phone1 cp_phone2)   if $::form->{l}{cp_phone};
+    push @visible_columns, qw(cp_mobile1 cp_mobile2) if $::form->{l}{cp_mobile};
+  } else {
+   @visible_columns = qw(vcname vcnumber cp_name cp_givenname cp_phone1 cp_phone2 cp_mobile1 cp_email);
+  }
+
+  my %column_defs  = (
+    'cp_id'        => { 'text' => $::locale->text('ID'), },
+    'vcname'       => { 'text' => $::locale->text('Customer/Vendor'), },
+    'vcnumber'     => { 'text' => $::locale->text('Customer/Vendor Number'), },
+    'cp_name'      => { 'text' => $::locale->text('Name'), },
+    'cp_givenname' => { 'text' => $::locale->text('Given Name'), },
+    'cp_street'    => { 'text' => $::locale->text('Street'), },
+    'cp_zipcode'   => { 'text' => $::locale->text('Zipcode'), },
+    'cp_city'      => { 'text' => $::locale->text('City'), },
+    'cp_phone1'    => { 'text' => $::locale->text('Phone1'), },
+    'cp_phone2'    => { 'text' => $::locale->text('Phone2'), },
+    'cp_mobile1'   => { 'text' => $::locale->text('Mobile1'), },
+    'cp_mobile2'   => { 'text' => $::locale->text('Mobile2'), },
+    'cp_email'     => { 'text' => $::locale->text('E-mail'), },
+    'cp_abteilung' => { 'text' => $::locale->text('Department'), },
+    'cp_birthday'  => { 'text' => $::locale->text('Birthday'), },
+    'cp_gender'    => { 'text' => $::locale->text('Gender'), },
+    %column_defs_cvars,
+  );
+
+  map { $column_defs{$_}->{visible} = 1 } @visible_columns;
+
+  my @hidden_variables  = (qw(search_term filter l));
+  my $hide_vars         = { map { $_ => $::form->{$_} } @hidden_variables };
+  my @hidden_nondefault = grep({ $::form->{$_} } @hidden_variables);
+  my $callback          = build_std_url('action=list_contacts', join '&', map { E($_->[0]) . '=' . E($_->[1]) } @{ flatten($hide_vars) });
+  $::form->{callback}     = "$callback&sort=" . E($::form->{sort});
+
+  map { $column_defs{$_}->{link} = "${callback}&sort=${_}&sortdir=" . ($::form->{sort} eq $_ ? 1 - $::form->{sortdir} : $::form->{sortdir}) } @columns;
+
+  $::form->{title} = $::locale->text('Contacts');
+
+  my $report     = SL::ReportGenerator->new(\%::myconfig, $::form);
+
+  my @options;
+  push @options, $::locale->text('Search term') . ': ' . $::form->{search_term} if $::form->{search_term};
+  for (qw(cp_name cp_givenname cp_title cp_email cp_abteilung cp_project)) {
+    push @options, $column_defs{$_}{text} . ': ' . $::form->{filter}{$_} if $::form->{filter}{$_};
+  }
+  if ($::form->{filter}{status}) {
+    push @options, $::locale->text('Status') . ': ' . (
+      $::form->{filter}{status} =~ /active/   ? $::locale->text('Active')   :
+      $::form->{filter}{status} =~ /orphaned/ ? $::locale->text('Orphaned') :
+      $::form->{filter}{status} =~ /all/      ? $::locale->text('All')      : ''
+    );
+  }
+
+
+  $report->set_options('top_info_text'       => join("\n", @options),
+                       'output_format'       => 'HTML',
+                       'title'               => $::form->{title},
+                       'attachment_basename' => $::locale->text('contact_list') . strftime('_%Y%m%d', localtime time),
+    );
+  $report->set_options_from_form;
+
+  $report->set_columns(%column_defs);
+  $report->set_column_order(@columns);
+
+  $report->set_export_options('list_contacts', @hidden_variables);
+
+  $report->set_sort_indicator($::form->{sort}, $::form->{sortdir});
+
+  CVar->add_custom_variables_to_report('module'         => 'Contacts',
+                                       'trans_id_field' => 'cp_id',
+                                       'configs'        => $cvar_configs,
+                                       'column_defs'    => \%column_defs,
+                                       'data'           => \@contacts);
+
+
+  foreach my $ref (@contacts) {
+    my $row = { map { $_ => { 'data' => $ref->{$_} } } @columns };
+
+    $row->{vcname}->{link}   = build_std_url('action=edit', 'id=' . E($ref->{vcid}), 'db=' . E($ref->{db}), 'callback', @hidden_nondefault);
+    $row->{vcnumber}->{link} = $row->{vcname}->{link};
+    $row->{cp_email}->{link} = 'mailto:' . E($ref->{cp_email});
+
+    $report->add_data($row);
+  }
+
+  $report->generate_with_headers;
+
+  $::lxdebug->leave_sub;
+}
+
 sub edit {
   $main::lxdebug->enter_sub();
 
@@ -329,8 +465,8 @@ sub form_header {
   $form->{contacts_label} = \&_contacts_label;
   $form->{taxzone_id}     = 0                                                               if !$form->{id};
   $form->{jsscript}       = 1;
-  $form->{fokus}          = "ct.greeting";
   $form->{SHIPTO_ALL}     = [ +{ shipto_id => '0', shiptoname => $::locale->text('All') }, @{ $form->{SHIPTO} } ];
+  $::request->{layout}->focus("#greeting");
 
   $form->{title} = $form->{title_save}
                 || $locale->text("$form->{title} " . ucfirst $form->{db}) . ($form->{title} eq "Edit" ? " $form->{name}" : '');
@@ -385,9 +521,7 @@ sub form_footer {
 }
 
 sub _do_save {
-  $main::auth->assert('customer_vendor_edit & ' .
-                      '(general_ledger         | invoice_edit         | vendor_invoice_edit | ' .
-                      ' request_quotation_edit | sales_quotation_edit | sales_order_edit    | purchase_order_edit)');
+  $main::auth->assert('customer_vendor_edit');
 
   $::form->isblank("name", $::locale->text("Name missing!"));