projekt kivitendo

<<<<<<< HEAD

=======

>>>>>>> 85669d3... Fileuploader: Textpage für Parts und Shopparts ohne callback, Bilder werden mit thumbnails in der Datenbank gespeichert

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::File;

use strict;

use SL::DB::MetaSetup::File;

use SL::DB::Manager::File;

use SL::DB::Helper::ActsAsList;

use SL::DB::Helper::ThumbnailCreator;

use SL::Locale::String;

__PACKAGE__->meta->initialize;

__PACKAGE__->configure_acts_as_list(group_by => [qw(trans_id modul)]);

__PACKAGE__->before_save(\&file_update_thumbnail);

sub validate {

  my ( $self ) = @_;

  my @errors;

  push @errors, t8('The file name is missing') if !$self->filename;

  if (!length($self->file_content // '')) {

    push @errors, t8('No file has been uploaded');

  } else {

    push @errors, $self->file_update_type_and_dimensions;

  }

  return @errors;

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::DB::File - Databaseclass for Fileuploader

=head1 SYNOPSIS

  use SL::DB::File;

  # 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::DB::Helper::ThumbnailCreator;

use strict;

use Carp;

use GD;

use Image::Info;

use File::MimeInfo::Magic;

use List::MoreUtils qw(apply);

use List::Util qw(max);

use Rose::DB::Object::Util;

require Exporter;

our @ISA      = qw(Exporter);

our @EXPORT   = qw(file_create_thumbnail file_update_thumbnail file_probe_type file_update_type_and_dimensions);

# TODO PDFs and others like odt,txt,...

our %supported_mime_types = (

  'image/gif'  => { extension => 'gif', convert_to_png => 1, },

  'image/png'  => { extension => 'png' },

  'image/jpeg' => { extension => 'jpg' },

  'image/tiff' => { extension => 'tif'},

);

sub file_create_thumbnail {

  my ($self) = @_;

  croak "No picture set yet" if !$self->file_content;

  my $image            = GD::Image->new($self->file_content);

  my ($width, $height) = $image->getBounds;

  my $max_dim          = 64;

  my $curr_max         = max $width, $height, 1;

  my $factor           = $curr_max <= $max_dim ? 1 : $curr_max / $max_dim;

  my $new_width        = int($width  / $factor + 0.5);

  my $new_height       = int($height / $factor + 0.5);

  my $thumbnail        = GD::Image->new($new_width, $new_height);

  $thumbnail->copyResized($image, 0, 0, 0, 0, $new_width, $new_height, $width, $height);

  $self->thumbnail_img_content($thumbnail->png);

  $self->thumbnail_img_content_type('image/png');

  $self->thumbnail_img_width($new_width);

  $self->thumbnail_img_height($new_height);

  return 1;

}

sub file_update_thumbnail {

  my ($self) = @_;

  return 1 if !$self->file_content || !$self->file_content_type || !Rose::DB::Object::Util::get_column_value_modified($self, 'file_content');

  $self->file_create_thumbnail;

  return 1;

}

sub file_probe_type {

  my ($self) = @_;

  return (t8("No file uploaded yet")) if !$self->file_content;

  my $mime_type = File::MimeInfo::Magic::magic($self->file_content);

  my $info = Image::Info::image_info(\$self->{file_content});

  if (!$info || $info->{error} || !$info->{file_media_type} || !$supported_mime_types{ $info->{file_media_type} }) {

    $::lxdebug->warn("Image::Info error: " . $info->{error}) if $info && $info->{error};

    return (t8('Unsupported image type (supported types: #1)', join(' ', sort keys %supported_mime_types)));

  }

  $self->file_content_type($info->{file_media_type});

  $self->files_img_width($info->{width});

  $self->files_img_height($info->{height});

  $self->files_mtime(DateTime->now_local);

  $self->file_create_thumbnail;

  return ();

}

sub file_update_type_and_dimensions {

  my ($self) = @_;

  return () if !$self->file_content;

  return () if $self->file_content_type && $self->file_img_width && $self->file_img_height && !Rose::DB::Object::Util::get_column_value_modified($self, 'file_content');

  my @errors = $self->file_probe_type;

  return @errors if @errors;

  my $info = $supported_mime_types{ $self->file_content_type };

  if ($info->{convert_to_png}) {

    $self->file_content(GD::Image->new($self->file_content)->png);

    $self->file_content_type('image/png');

    $self->filename(apply { s/\.[^\.]+$//;  $_ .= '.png'; } $self->filename);

  }

  return ();

}

1;

__END__

=pod

=encoding utf8

=head1 NAME

SL::DB::Helper::ThumbnailCreator - DatabaseClass Helper for Fileuploads

=head1 SYNOPSIS

  use SL::DB::Helper::ThumbnailCreator;

  # synopsis...

=head1 DESCRIPTION

# longer description..

=head1 AUTHOR

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

=cut

=head1 INTERFACE

=head1 DEPENDENCIES

=head1 SEE ALSO

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Manager::File;

use strict;

use parent qw(SL::DB::Helper::Manager);

sub object_class { 'SL::DB::File' }

__PACKAGE__->make_manager_methods;

1;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::File;

use strict;

use parent qw(SL::DB::Object);

__PACKAGE__->meta->table('files');

__PACKAGE__->meta->columns(

  description                => { type => 'text' },

  file_content               => { type => 'bytea' },

  file_content_type          => { type => 'text' },

  filename                   => { type => 'text', not_null => 1 },

  files_img_height           => { type => 'integer' },

  files_img_width            => { type => 'integer' },

  files_mtime                => { type => 'timestamp', default => 'now()' },

  id                         => { type => 'serial', not_null => 1 },

  itime                      => { type => 'timestamp', default => 'now()' },

  location                   => { type => 'text' },

  modul                      => { type => 'text', not_null => 1 },

  mtime                      => { type => 'timestamp' },

  position                   => { type => 'integer' },

  thumbnail_img_content      => { type => 'bytea' },

  thumbnail_img_content_type => { type => 'text' },

  thumbnail_img_height       => { type => 'integer' },

  thumbnail_img_width        => { type => 'integer' },

  title                      => { type => 'varchar', length => 45 },

  trans_id                   => { type => 'integer', not_null => 1 },

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

__PACKAGE__->meta->allow_inline_column_values(1);

1;

;

-- @tag: files

-- @description: Tabelle für Files

-- @charset: UTF-8

-- @depends: release_3_3_0

-- @ignore: 0

CREATE TABLE files(

  id                          SERIAL PRIMARY KEY,

  modul                       TEXT NOT NULL, -- Tabellenname des Moduls z.B. customer, parts ... Fremdschlüssel Zusammen mit trans_id

  trans_id                    INTEGER NOT NULL, -- Fremschlüssel auf die id der Tabelle aus Spalte modul

  filename                    TEXT NOT NULL, -- Dateiname

  location                    TEXT, -- Dateipfad

  description                 TEXT, -- Zusätzliche Beschreibung z.B. Alternative Bildbeschreibung für Shopbilder

  position                    INTEGER , -- Sortierreihenfolge der Bilder UNIQUE zusammen mit trans_id

  itime                       TIMESTAMP DEFAULT now(),

  mtime                       TIMESTAMP,

  file_content                bytea,

  files_img_width             integer,

  files_img_height            integer,

  thumbnail_img_content       bytea,

  thumbnail_img_width         integer,

  thumbnail_img_height        integer,

  title                       varchar(45),

  file_content_type           TEXT,

  files_mtime                 TIMESTAMP DEFAULT now(),

  thumbnail_img_content_type  TEXT

);

CREATE TRIGGER mtime_files BEFORE UPDATE ON files

    FOR EACH ROW EXECUTE PROCEDURE set_mtime();

[%- USE LxERP -%][%- USE L -%][%- USE HTML -%][%- USE JavaScript -%][% USE Base64 %]

[% SET style="width: 500px" %]

[% SET id_base = "fileupload" %]

[% L.dump(DATA) %]

<form method="post" id="fileupload_form" method="POST" enctype="multipart/form-data">

 [% L.hidden_tag('form_prefix',                    id_base,         id=id_base _ '_form_prefix') %]

 [% L.hidden_tag('id',                             DATA.id, no_id=1) %]

 [% L.hidden_tag('modul',                          DATA.modul) %]

 <h2>

  [%- IF SELF.file.id %]

   [%- LxERP.t8("Edit file properties ", SELF.file.number) %]

  [%- ELSE %]

   [%- LxERP.t8("Add file to webdav") %]

  [%- END %]

 </h2>

 <table>

[% IF SELF.file.number %]

  <tr>

   <th align="right">[%- LxERP.t8("Number") %]:</th>

   <td>[% HTML.escape(SELF.file.number) %]</td>

  </tr>

[% END %]

  <tr>

   <th align="right">[%- LxERP.t8("Description") %]:</th>

   <td>[% L.input_tag(id_base _ '.description', SELF.file.description, style=style) %]</td>

  </tr>

  <tr>

   <th align="right">[%- LxERP.t8("Title") %]:</th>

   <td>[% L.input_tag(id_base _ '.title', SELF.file.title, style=style) %]</td>

  </tr>

[% IF SELF.file.file_content %]

  <tr>

   <th align="right">[%- LxERP.t8("File name") %]:</th>

   <td>[% HTML.escape(SELF.file.file_file_name) %]</td>

  </tr>

  <tr>

   <th align="right">[%- LxERP.t8("MIME type") %]:</th>

   <td>[% HTML.escape(SELF.file.file_content_type) %]</td>

  </tr>

  <tr>

   <th align="right">[%- LxERP.t8("Dimensions") %]:</th>

   <td>[% HTML.escape(SELF.file.file_width) %]x[% HTML.escape(SELF.file.file_height) %]</td>

  </tr>

  <tr>

   <th align="right">[%- LxERP.t8("Uploaded at") %]:</th>

   <td>[% HTML.escape(SELF.file.file_mtime.to_kivitendo(precision='second')) %]</td>

  </tr>

[% END %]

  <tr>

   <th align="right">[%- LxERP.t8("Select file to upload") %]:</th>

   <td>[% L.input_tag(id_base _ '.file_content', '', type='file') %]</td>

  </tr>

 </table>

 <p>

  [%- L.ajax_submit_tag('controller.pl?action=FileUploader/ajax_upload_file', '#fileupload_form', LxERP.t8('Save'), no_id=1) %]

  <a href="#" onclick="$('#jqueryui_popup_dialog').dialog('close');">[%- LxERP.t8("Cancel") %]</a>

 </p>

</form>

[% IF SELF.file.id %]

<h2>[% LxERP.t8("Current file") %]</h2>

<div>

 <img src="data:[% HTML.escape(SELF.file.file_content_type) %];base64,[% SELF.file.file_content.encode_base64 %]">

</div>

[% END %]

[% USE L %]

<h1>Fileupload Testpage</h1>

<form method="post" id="fileupload" method="POST" enctype="multipart/form-data">

  <div id="testfunctions" style="width:50%; float:left; border:thin solid green">

    <div id="part_1" height="75px">

      Part: Select Part Where to store the file<br>

      [% L.part_picker('part_id1','',fat_set_item=1) %]<br>

      Part: <span id="change1"> </span> -- <span id="change2"></span><br>

      <div id="fileupload_button" style="display:none;">

        [% L.hidden_tag("id") %]

        [% L.hidden_tag("modul","part") %]

        [% L.button_tag("add_file(this.form.id.value,this.form.modul.value)", 'Fileupload') %]

      </div>

    </div>

    <div id="shoppart" height="75px">

      ShopPart: Select Part Where to store the file<br>

      [% L.part_picker('shoppart','',fat_set_item=1) %]<br>

      ShopPart: <span id="shoppartchange1"> </span> -- <span id="shoppartchange2"></span><br>

      <div id="shop_img_upload_button" style="display:none;">

        [% L.hidden_tag("shop_part_id") %]

        [% L.hidden_tag("shop_part_modul","shop_part") %]

        [% L.button_tag("add_file(this.form.shop_part_id.value,this.form.shop_part_modul.value)", 'Fileupload') %]

      </div>

    </div>

  </div>

</form>

<div id="testviews" style="width:50%; float:left; border:thin solid green">

  <div id="viewpart" height="75px">

  </div>

  <div id="viewshoppart" height="75px">

  </div>

</div>

<script type='text/javascript'>

<!--

 $('#part_id1').change(function() { $('#change1').html($('#part_id1').val()) });

 $('#part_id1').on('set_item:PartPicker', function(e,o) { $('#id').val(o.id);

                                                          $('#change2').html(o.id);

                                                          $('#fileupload_button').show();

                                                                  });

 $('#shoppart').change(function() { $('#shoppartchange1').html($('#shoppart').val()) });

 $('#shoppart').on('set_item:PartPicker', function(e,o) { $('#shop_part_id').val(o.id);

                                                          $('#shoppartchange2').html(o.id);

                                                          $('#shop_img_upload_button').show();

                                                                  });

function add_file(id,modul) {

  //var id = this.$('#part').val();

  kivi.popup_dialog({

        url :           'controller.pl?action=FileUploader/ajax_add_file',

        data:           'id=' + id + '&modul=' + modul,

        dialog:         { title: kivi.t8('File upload') }

  } );

  return true;

}

-->

</script>