SL/Controller/ImageUpload.pm

   1 package SL::Controller::ImageUpload;
   2
   3 use strict;
   4 use parent qw(SL::Controller::Base);
   5
   6 use SL::DB::Part;
   7 use SL::DB::Order;
   8 use SL::DB::DeliveryOrder;
   9
  10 use Rose::Object::MakeMethods::Generic
  11 (
  12   scalar => [ qw() ],
  13   'scalar --get_set_init' => [ qw(object_type object) ],
  14 );
  15
  16 my %object_loader = (
  17   part            => [ "SL::DB::Part" ],
  18   sales_order     => [ "SL::DB::Order", [ sales => 1, quotation => 0 ] ],
  19   sales_quotation => [ "SL::DB::Order", [ sales => 1, quotation => 1 ] ],
  20   purchase_order  => [ "SL::DB::Order", [ sales => 0, quotation => 1 ] ],
  21   sales_delivery_order => [ "SL::DB::DeliveryOrder", [ is_sales => 1 ] ],
  22 );
  23
  24
  25 ################ actions #################
  26
  27 sub action_upload_image {
  28   my ($self) = @_;
  29
  30   $::request->layout->add_javascripts('kivi.File.js');
  31   $::request->layout->add_javascripts('kivi.FileDB.js');
  32   $::request->layout->add_javascripts('kivi.ImageUpload.js');
  33
  34   $self->render('image_upload/local_list');
  35 }
  36
  37 ################# internal ###############
  38
  39 sub init_object_type {
  40   $::form->{object_type} or die "need object type"
  41 }
  42
  43 sub init_object {
  44   my ($self) = @_;
  45
  46   return unless $self->object_type;
  47
  48   my $loader = $object_loader{ $self->object_type } or die "unknown object type";
  49   my $manager = $loader->[0]->_get_manager_class;
  50
  51   return $manager->find_by(id => $::form->{object_id}*1) if $::form->{object_id};
  52
  53   return $manager->find_by(donumber => $::form->{object_number}, @{ $loader->[1] // [] }) if $::form->{object_number};
  54 }
  55
  56
  57 1;
  58
  59