pos/pay.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use CGI;
   6 use JSON qw( from_json );
   7
   8 use C4::Auth qw/:DEFAULT get_session/;
   9 use C4::Output;
  10 use C4::Context;
  11
  12 use Koha::AuthorisedValues;
  13 use Koha::Cash::Registers;
  14 use Koha::Charges::Sales;
  15 use Koha::Database;
  16 use Koha::Libraries;
  17
  18 my $q         = CGI->new();
  19 my $sessionID = $q->cookie('CGISESSID');
  20 my $session   = get_session($sessionID);
  21
  22 my ( $template, $loggedinuser, $cookie, $user_flags ) = get_template_and_user(
  23     {
  24         template_name   => 'pos/pay.tt',
  25         query           => $q,
  26         type            => 'intranet',
  27         authnotrequired => 0,
  28     }
  29 );
  30 my $logged_in_user = Koha::Patrons->find($loggedinuser) or die "Not logged in";
  31
  32 my $library_id = C4::Context->userenv->{'branch'};
  33 my $registerid = $q->param('registerid');
  34 my $registers  = Koha::Cash::Registers->search(
  35     { branch   => $library_id, archived => 0 },
  36     { order_by => { '-asc' => 'name' } }
  37 );
  38
  39 if ( !$registers->count ) {
  40     $template->param( error_registers => 1 );
  41 }
  42 else {
  43     if ( !$registerid ) {
  44         my $default_register = Koha::Cash::Registers->find(
  45             { branch => $library_id, branch_default => 1 } );
  46         $registerid = $default_register->id if $default_register;
  47     }
  48     $registerid = $registers->next->id if !$registerid;
  49
  50     $template->param(
  51         registerid => $registerid,
  52         registers  => $registers,
  53     );
  54 }
  55
  56 my $total_paid = $q->param('paid');
  57 if ( $total_paid and $total_paid ne '0.00' ) {
  58     my $cash_register = Koha::Cash::Registers->find( { id => $registerid } );
  59     my $payment_type  = $q->param('payment_type');
  60     my $sale          = Koha::Charges::Sales->new(
  61         {
  62             cash_register => $cash_register,
  63             staff_id      => $logged_in_user->id
  64         }
  65     );
  66
  67     my @sales = $q->multi_param('sales');
  68     for my $item (@sales) {
  69         $item = from_json $item;
  70         $sale->add_item($item);
  71     }
  72
  73     my $payment = $sale->purchase( { payment_type => $payment_type } );
  74
  75     $template->param(
  76         payment_id => $payment->accountlines_id,
  77         collected  => scalar $q->param('collected'),
  78         change     => scalar $q->param('change')
  79     );
  80 }
  81
  82 output_html_with_http_headers( $q, $cookie, $template->output );
  83
  84 1;