Error trace

Undefined subroutine &CGI::Compile::ROOT::kohadevbox_koha_serials_subscription_2drenew_2epl::GetSerials called at /kohadevbox/koha/serials/subscription-renew.pl line 140

    in (eval) at /kohadevbox/koha/serials/subscription-renew.pl line 140

      137:     my $newstartdate = output_pref( { str => $subscription->{enddate}, dateonly => 1 } )
      138:         or output_pref( { dt => dt_from_string, dateonly => 1 } );
      139: 
      140:     my ($serials_number) = GetSerials($subscriptionid);
      141:     if ($serials_number > 1) {
      142:         $template->param(more_than_one_serial => 1);
      143:     }

    in CGI::Compile::ROOT::kohadevbox_koha_serials_subscription_2drenew_2epl::__ANON__ at /kohadevbox/koha/serials/subscription-renew.pl line 2

        1: #!/usr/bin/perl
        2: 
        3: # Copyright 2000-2002 Katipo Communications
        4: #
        5: # This file is part of Koha.

    Show function arguments
    in CGI::Compile::ROOT::kohadevbox_koha_serials_subscription_2drenew_2epl::subscription_2drenew_2epl at /usr/share/perl5/CGI/Compile.pm line 151

      148:             # this is necessary for MSWin32
      149:             my $orig_warn = $SIG{__WARN__} || sub { warn(@_) };
      150:             local $SIG{__WARN__} = sub { $orig_warn->(@_) unless $_[0] =~ /^No such signal/ };
      151:             $code->($self, $data, $path, $dir, \@args)
      152:         };
      153:     };
      154: 

    in CGI::Emulate::PSGI::__ANON__ at /usr/share/perl5/CGI/Emulate/PSGI.pm line 30

       27:                 local *STDOUT = $stdout;
       28:                 local *STDERR = $env->{'psgi.errors'};
       29: 
       30:                 $code->();
       31:             }
       32:         }
       33: 

    Show function arguments
    in Plack::App::WrapCGI::call at /usr/share/perl5/Plack/App/WrapCGI.pm line 95

       92: 
       93: sub call {
       94:     my($self, $env) = @_;
       95:     $self->_app->($env);
       96: }
       97: 
       98: 1;

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::App::CGIBin::serve_path at /usr/share/perl5/Plack/App/CGIBin.pm line 50

       47:     my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new(
       48:         script => $file, execute => $self->would_exec($file),
       49:     )->to_app;
       50:     $app->($env);
       51: }
       52: 
       53: 1;

    Show function arguments
    in Plack::App::File::call at /usr/share/perl5/Plack/App/File.pm line 34

       31:         $env->{'plack.file.PATH_INFO'}   = '';
       32:     }
       33: 
       34:     return $self->serve_path($env, $file);
       35: }
       36: 
       37: sub locate_file {

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::LogWarn::call at /usr/share/perl5/Plack/Middleware/LogWarn.pm line 22

       19:          message => join '', @_
       20:       });
       21:    };
       22:    my $res = $self->app->($env);
       23: 
       24:    return $res;
       25: }

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::Log4perl::call at /usr/share/perl5/Plack/Middleware/Log4perl.pm line 30

       27:         $self->logger->$level($args->{message});
       28:     };
       29: 
       30:     $self->app->($env);
       31: }
       32: 
       33: 1;

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::HTTPExceptions::try {...} at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 20

       17:     my($self, $env) = @_;
       18: 
       19:     my $res = try {
       20:         $self->app->($env);
       21:     } catch {
       22:         $self->transform_error($_, $env);
       23:     };

    in (eval) at /usr/share/perl5/Try/Tiny.pm line 100

       97:     if ( $wantarray ) {
       98:       @ret = $try->();
       99:     } elsif ( defined $wantarray ) {
      100:       $ret[0] = $try->();
      101:     } else {
      102:       $try->();
      103:     };

    in Try::Tiny::try at /usr/share/perl5/Try/Tiny.pm line 93

       90: 
       91:   # failed will be true if the eval dies, because 1 will not be returned
       92:   # from the eval body
       93:   my $failed = not eval {
       94:     $@ = $prev_error;
       95: 
       96:     # evaluate the try block in the correct context

    Show function arguments
    in Plack::Middleware::HTTPExceptions::call at /usr/share/perl5/Plack/Middleware/HTTPExceptions.pm line 23

       20:         $self->app->($env);
       21:     } catch {
       22:         $self->transform_error($_, $env);
       23:     };
       24: 
       25:     return $res if ref $res eq 'ARRAY';
       26: 

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::ErrorDocument::call at /usr/share/perl5/Plack/Middleware/ErrorDocument.pm line 15

       12:     my $self = shift;
       13:     my $env  = shift;
       14: 
       15:     my $r = $self->app->($env);
       16: 
       17:     $self->response_cb($r, sub {
       18:         my $r = shift;

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::App::URLMap::call at /usr/share/perl5/Plack/App/URLMap.pm line 71

       68:         return $self->response_cb($app->($env), sub {
       69:             $env->{PATH_INFO} = $orig_path_info;
       70:             $env->{SCRIPT_NAME} = $orig_script_name;
       71:         });
       72:     }
       73: 
       74:     DEBUG && warn "All matching failed.\n";

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Koha::Middleware::RealIP::call at /kohadevbox/koha/Koha/Middleware/RealIP.pm line 64

       61:         }
       62:     }
       63: 
       64:     return $self->app->($env);
       65: }
       66: 
       67: =head2 get_real_ip

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Koha::Middleware::SetEnv::call at /kohadevbox/koha/Koha/Middleware/SetEnv.pm line 105

      102:         %setenvs
      103:     };
      104: 
      105:     return $self->app->($env);
      106: }
      107: 
      108: =head1 AUTHOR

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::Static::call at /usr/share/perl5/Plack/Middleware/Static.pm line 18

       15:         return $res;
       16:     }
       17: 
       18:     return $self->app->($env);
       19: }
       20: 
       21: sub _handle_static {

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::ReverseProxy::call at /usr/share/perl5/Plack/Middleware/ReverseProxy.pm line 68

       65:         }
       66:     }
       67: 
       68:     $self->app->($env);
       69: }
       70: 
       71: 1;

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::Lint::call at /usr/share/perl5/Plack/Middleware/Lint.pm line 24

       21:     my $env = shift;
       22: 
       23:     $self->validate_env($env);
       24:     my $res = $self->app->($env);
       25:     return $self->validate_res($res);
       26: }
       27: 

    Show function arguments
    in Plack::Middleware::StackTrace::try {...} at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    in (eval) at /usr/share/perl5/Try/Tiny.pm line 100

       97:     if ( $wantarray ) {
       98:       @ret = $try->();
       99:     } elsif ( defined $wantarray ) {
      100:       $ret[0] = $try->();
      101:     } else {
      102:       $try->();
      103:     };

    in Plack::Middleware::StackTrace::call at /usr/share/perl5/Try/Tiny.pm line 93

       90: 
       91:   # failed will be true if the eval dies, because 1 will not be returned
       92:   # from the eval body
       93:   my $failed = not eval {
       94:     $@ = $prev_error;
       95: 
       96:     # evaluate the try block in the correct context

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in Plack::Middleware::AccessLog::call at /usr/share/perl5/Plack/Middleware/AccessLog.pm line 27

       24:     my $self = shift;
       25:     my($env) = @_;
       26: 
       27:     my $res = $self->app->($env);
       28: 
       29:     if ( ref($res) && ref($res) eq 'ARRAY' ) {
       30:         my $content_length = Plack::Util::content_length($res->[2]);

    Show function arguments
    in Plack::Component::__ANON__ at /usr/share/perl5/Plack/Component.pm line 50

       47: sub to_app {
       48:     my $self = shift;
       49:     $self->prepare_app;
       50:     return sub { $self->call(@_) };
       51: }
       52: 
       53: 

    Show function arguments
    in (eval) at /usr/share/perl5/Plack/Util.pm line 145

      142: sub run_app($$) {
      143:     my($app, $env) = @_;
      144: 
      145:     return eval { $app->($env) } || do {
      146:         my $body = "Internal Server Error";
      147:         $env->{'psgi.errors'}->print($@);
      148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];

    in Plack::Util::run_app at /usr/share/perl5/Plack/Util.pm line 145

      142: sub run_app($$) {
      143:     my($app, $env) = @_;
      144: 
      145:     return eval { $app->($env) } || do {
      146:         my $body = "Internal Server Error";
      147:         $env->{'psgi.errors'}->print($@);
      148:         [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];

    Show function arguments
    in Starman::Server::dispatch_request at /usr/share/perl5/Starman/Server.pm line 195

      192:     my ($self, $env) = @_;
      193: 
      194:     # Run PSGI apps
      195:     my $res = Plack::Util::run_app($self->{app}, $env);
      196: 
      197:     if (ref $res eq 'CODE') {
      198:         $res->(sub { $self->_finalize_response($env, $_[0]) });

    Show function arguments
    in Starman::Server::process_request at /usr/share/perl5/Starman/Server.pm line 298

      295: 
      296:         $self->_prepare_env($env);
      297: 
      298:         $self->dispatch_request($env);
      299: 
      300:         DEBUG && warn "[$$] Request done\n";
      301: 

    Show function arguments
    in Net::Server::run_client_connection at /usr/share/perl5/Net/Server.pm line 72

       69:     $self->post_accept_hook($c);    # user customizable hook
       70: 
       71:     my $ok = $self->allow_deny($c) && $self->allow_deny_hook($c); # do allow/deny check on client info
       72:     if ($ok) {
       73:         $self->process_request($c);   # This is where the core functionality of a Net::Server should be.
       74:     } else {
       75:         $self->request_denied_hook($c);     # user customizable hook

    Show function arguments
    in (eval) at /usr/share/perl5/Net/Server/PreFork.pm line 225

      222:         $prop->{'connected'} = 1;
      223:         print $write "$$ processing\n";
      224: 
      225:         my $ok = eval { $self->run_client_connection; 1 };
      226:         if (! $ok) {
      227:             print $write "$$ exiting\n";
      228:             die $@;

    in Net::Server::PreFork::run_child at /usr/share/perl5/Net/Server/PreFork.pm line 225

      222:         $prop->{'connected'} = 1;
      223:         print $write "$$ processing\n";
      224: 
      225:         my $ok = eval { $self->run_client_connection; 1 };
      226:         if (! $ok) {
      227:             print $write "$$ exiting\n";
      228:             die $@;

    Show function arguments
    in Net::Server::PreFork::run_n_children at /usr/share/perl5/Net/Server/PreFork.pm line 183

      180:             if ($prop->{'child_communication'}) {
      181:                 $prop->{'parent_sock'} = $childsock;
      182:             }
      183:             $self->run_child;
      184:         }
      185:     }
      186: }

    Show function arguments
    in Net::Server::PreFork::coordinate_children at /usr/share/perl5/Net/Server/PreFork.pm line 373

      370: 
      371:     my $total = $tally->{'waiting'} + $tally->{'processing'};
      372: 
      373:     if ($total < $prop->{'min_servers'}) {
      374:         $self->run_n_children($prop->{'min_servers'} - $total); # need more min_servers
      375: 
      376:     } elsif ($tally->{'waiting'} < $prop->{'min_spare_servers'}

    Show function arguments
    in Net::Server::PreFork::run_parent at /usr/share/perl5/Net/Server/PreFork.pm line 327

      324:                 }
      325:             }
      326:         }
      327:         $self->coordinate_children();
      328:     }
      329: }
      330: 

    Show function arguments
    in Starman::Server::run_parent at /usr/share/perl5/Starman/Server.pm line 164

      161:         delete $args{QUIT};
      162:         Net::Server::SIG::register_sig(%args);
      163:     };
      164:     $self->SUPER::run_parent(@_);
      165: }
      166: 
      167: # The below methods run in the child process

    Show function arguments
    in Net::Server::PreFork::loop at /usr/share/perl5/Net/Server/PreFork.pm line 109

      106:     $self->log(3, "Beginning prefork ($start processes)");
      107:     $self->run_n_children($start);
      108: 
      109:     $self->run_parent;
      110: }
      111: 
      112: 

    Show function arguments
    in Net::Server::run at /usr/share/perl5/Net/Server.pm line 58

       55:     $self->post_bind;           # allow for chrooting, becoming a different user and group
       56: 
       57:     $self->pre_loop_hook;       # user customizable hook
       58:     $self->loop;                # repeat accept/process cycle
       59: 
       60:     $self->server_close;        # close the server and release the port
       61: }

    Show function arguments
    in Starman::Server::run at /usr/share/perl5/Starman/Server.pm line 106

      103:         max_requests        => $options->{max_requests}      || 1000,
      104:         user                => $options->{user}              || $>,
      105:         group               => $options->{group}             || $),
      106:         listen              => $options->{backlog}           || 1024,
      107:         check_for_waiting   => 1,
      108:         no_client_stdout    => 1,
      109:         %extra

    Show function arguments
    in Plack::Handler::Starman::run at /usr/share/perl5/Plack/Handler/Starman.pm line 25

       22:     }
       23:     $self->{net_server_args} = \%nsa if %nsa;
       24: 
       25:     Starman::Server->new->run($app, {%$self});
       26: }
       27: 
       28: 1;

    Show function arguments
    in Plack::Loader::Delayed::run at /usr/share/perl5/Plack/Loader/Delayed.pm line 20

       17:     };
       18: 
       19:     $server->{psgi_app_builder} = $self->{builder};
       20:     $server->run($app);
       21: }
       22: 
       23: 1;

    Show function arguments
    in Plack::Runner::run at /usr/share/perl5/Plack/Runner.pm line 279

      276:     $loader->preload_app($app);
      277: 
      278:     my $server = $self->load_server($loader);
      279:     $loader->run($server);
      280: }
      281: 
      282: 1;

    Show function arguments
    at /usr/bin/starman line 38

       35: }
       36: 
       37: $runner->set_options(argv => \@argv);
       38: $runner->run;
       39: 
       40: __END__
       41: