projekt kivitendo

our $VERSION = 1;

use SL::Helper::UserPreferences;

 'scalar --get_set_init' => [ qw(module js prefs) ],

  } @{

    $::instance_conf->get_quick_search_modules

  };

sub init_prefs {

  SL::Helper::UserPreferences->new(

    namespace         => __PACKAGE__,

    upgrade_callbacks => {},

  )

}

package SL::Controller::Helper::FileUploader;

# Controller will not be used if things for FILES needed they can go in Helpers

use strict;

use parent qw(SL::Controller::Base);

use SL::DB::File;

use SL::Helper::Flash;

use SL::Locale::String;

use Rose::Object::MakeMethods::Generic

(

  'scalar --get_set_init' => [ qw(file) ],

);

#

# actions

#

sub action_test_page{

  my ($self) = @_;

  $self->render('fileuploader/test_page');

}

sub action_upload_form{

  my ($self) = @_;

  $self->file(SL::DB::File->new);

  $self->render('common/file_upload', {header => 0});

}

sub action_show_files {

  my ($self) = @_;

  my $images = SL::DB::Manager::File->get_all( query => [ trans_id => $::form->{id}, modul => $::form->{modul} ] );

}

# this can go in Helpers::Fileuploader

sub action_ajax_add_file{

  my ($self) = @_;

  $self->file(SL::DB::File->new);

  $self->render('common/file_upload', { layout => 0}, DATA => $::form);

}

sub action_ajax_upload_file{

  my ($self, %params) = @_;

  my $attributes                  = $::form->{ $::form->{form_prefix} } || die "Missing FormPrefix";

  $attributes->{trans_id}         = $::form->{id} || die "Missing ID";

  $attributes->{modul}            = $::form->{modul} || die "Missing Modul";

  $attributes->{filename}         = $::form->{FILENAME} || die "Missing Filename";

  $attributes->{title}            = $::form->{ $::form->{form_prefix} }->{title};

  $attributes->{description}      = $::form->{ $::form->{form_prefix} }->{description};

  my @image_types = ("jpg","tif","png");

  my @errors = $self->file(SL::DB::File->new(%{ $attributes }))->validate;

  return $self->js->error(@errors)->render($self) if @errors;

  $self->file->save;

  # TODO js call

  $self->render('fileuploader/test_page');

}

#

# helpers

#

sub init_file {

  return SL::DB::File->new(id => $::form->{id})->load;

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::Controller::FileUploader - Controller to manage fileuploads

=head1 SYNOPSIS

  use SL::Controller::FileUploader;

  # synopsis.. =>

=head1 DESCRIPTION

# longer description...

=head1 INTERFACE

=head1 DEPENDENCIES

=head1 SEE ALSO

=head1 AUTHOR

Werner Hahn E<lt>wh@futureworldsearch.netE<gt>

=cut

package SL::Helper::UserPreferences;

use strict;

1;

__END__

=encoding utf-8

=head1 NAME

SL::Helper::UserPreferences - user based preferences store

=head1

  use SL::Helper::UserPreferences;

  my $user_pref = SL::Helper::UserPreferences->new(

    login             => $login,        # defaults to current user

    namespace         => $namespace,    # defaults to current package

    upgrade_callbacks => $upgrade_callbacks,

    current_version   => $version,      # defaults to __PACKAGE__->VERSION

    auto_store_back   => 0,             # default 1 

  );

  # OR

  my $user_pref = $::auth->current_user->user_preferences(

    namespace         => $namespace,

    upgrade_callbacks => $upgrade_callbacks,

    current_version   => $version,      # defaults to __PACKAGE__->VERSION

    auto_store_back   => 0, # default 1 

  );

  $user_pref->store($key, $value);

  my $val  = $user_pref->get($key);

  my $vals = $user_pref->get_all;

  my $keys = $user_pref->get_keys;

  $user_pref->delete($key);

  $user_pref->delete_all;

=head1 DESCRIPTION

=head1 BEHAVIOUR

* If a (namepace, key) tuple exists, a store will overwrite the last version

* If the value retrieved from the database is newer than the code version, an

  error must be thrown.

* get will check the version against the current version and apply all upgrade

  steps.

* if the final step is not the current version, behaviour is undefined

*  

=head1 VERSIONING

Every entry in the user prefs must have a version to be compatible in case of code upgrades.

Code reading user prefs must check if the version is the expected one, and must have upgrade code to upgrade out of date preferences to the current version.

Code SHOULD write the upgraded version back to the store at the earliest time to keep preferences up to date. This should be able to be disabled to have developer versions not overwrite preferences with unsupported versions.

Example:

Initial code dealing with prefs:

  our $VERSION = 1;

  $user_prefs->store("selected tab", $::form->{selected_tab});

And the someone edits the code and removes the tab "Webdav". To ensure favorites with webdav selected are upgraded:

  our $VERSION = 2;

  my $upgrade_callbacks = {

    2 => sub { $_[0] eq 'WebDav' ? 'MasterData' : $_[0]; },

  };

  my $val = $user_prefs->get("selected tab");

=head1 FUNCTIONS

=head1 SPECIAL CASES

* get must work in both scalar and list context

* version might be integer or version object

* not defined if it should be possible to retrieve the version of a tuple

=head1 BUGS

None yet :)

=head1 AUTHOR

=cut

      my %pos_columns = ( description       => $pos->{articleName},

                          partnumber        => $pos->{articleNumber},

                          price             => $pos->{price},

                          quantity          => $pos->{quantity},

                          position          => $position,

                          tax_rate          => $pos->{taxRate},

                          shop_trans_id     => $pos->{articleId},

                          shop_order_id     => $id,

                                  'Auslandsversand Einschreiben'  => { 'partnumber' => '900650'},

                                  'Auslandsversand'               => { 'partnumber' => '900650'},

                                  'Standard Versand'              => { 'partnumber' => '905500'},

                                  'Kostenloser Versand'           => { 'partnumber' => '905500'},

      my %shipping_pos = ( description    => $import->{data}->{dispatch}->{name},

                           partnumber     => $shipping_partnumbers{$shipping}->{partnumber},

                           price          => $import->{data}->{invoiceShipping},

                           quantity       => 1,

                           position       => $position,

                           tax_rate       => 7,

    my $temp ={ ( link        => 'data:' . $img->{file_content_type} . ';base64,' . MIME::Base64::encode($img->{file_content},''),

                  description => $img->{title},

                  position    => $img->{position},

                  extension   => $extension,

                  path        => $path,

  # mapping to shopware

  my %shop_data =  (  name              => $part->{description},

                      taxId             => 4, # TODO Hardcoded kann auch der taxwert sein zB. tax => 19.00

                      mainDetail        => { number   => $part->{partnumber},

                      supplier          => $cvars->{freifeld_7}->{value},

                      description       => $shop_part->{shop_description},

                      active            => $shop_part->active,

                      images            => [ @upload_img ],

                      __options_images  => { replace => 1, },

                      categories        => [ @cat ], #{ path => 'Deutsch|test2' }, ], #[ $categories ],

    #TODO partnumber escapen slash uri_encode

  ns.massTransferInitialize = function() {

  ns.massTransferStarted = function() {

  ns.massTransferFinished = function() {

  ns.setup = function() {

 <!-- TODO action ändern in übergebene Variable, sodass jede xbelibiege Controller/Action aufgerufen werden kann -->

      <td align="right" valign="top">[% var.VALID_BOX %]</td>

<!-- TODO javascript nach kivi.js id,modul,controller/action -->