diff --git a/lib/NGCP/Panel.pm b/lib/NGCP/Panel.pm index b5a6086a02..a0205e263e 100644 --- a/lib/NGCP/Panel.pm +++ b/lib/NGCP/Panel.pm @@ -68,19 +68,6 @@ __PACKAGE__->config( ABSOLUTE => 1, EVAL_PERL => 1, }, - 'View::SVG' => { - INCLUDE_PATH => [ - '/usr/share/ngcp-panel/templates', - '/usr/share/ngcp-panel/layout', - '/usr/share/ngcp-panel/static', - __PACKAGE__->path_to('share', 'templates'), - __PACKAGE__->path_to('share', 'layout'), - __PACKAGE__->path_to('share', 'static'), - ], - ABSOLUTE => 1, - EVAL_PERL => 1, - WRAPPER => '', - }, 'View::JSON' => { #Set the stash keys to be exposed to a JSON response #(sEcho iTotalRecords iTotalDisplayRecords aaData) for datatables diff --git a/lib/NGCP/Panel/View/SVG.pm b/lib/NGCP/Panel/View/SVG.pm deleted file mode 100644 index 6f16dc0759..0000000000 --- a/lib/NGCP/Panel/View/SVG.pm +++ /dev/null @@ -1,125 +0,0 @@ -package NGCP::Panel::View::SVG; - -use Sipwise::Base; -use NGCP::Panel::Utils::I18N; - -use strict; -extends 'Catalyst::View::TT'; - - - -__PACKAGE__->config( - TEMPLATE_EXTENSION => '.tt', - render_die => 1, - ENCODING => 'UTF-8', - WRAPPER => '', - FILTERS => {}, - ABSOLUTE => 0, - expose_methods => [qw/translate_form/], -); -#copy-paste from html, method is too small to move it to separate class -sub translate_form { - my $self = shift; - NGCP::Panel::Utils::I18N->translate_form(@_); -} - -sub process{ - my ( $self, $c ) = @_; - #$c->res->content_type("image/svg+xml"); - $self->{template}->context->define_vmethod( - hash => get_column => sub { - my($item,$col) = @_; - if('HASH' eq ref $item){ - return $item->{$col}; - } - } - ); - - if($c->stash->{VIEW_NO_TT_PROCESS}) { - $c->log->debug("VIEW_NO_TT_PROCESS=".$c->stash->{VIEW_NO_TT_PROCESS}.";\n"); - - my $output = $self->getTemplateContent($c); - - $c->log->debug("output is empty=".($output?0:1).";\n"); - - $c->response->body($output); - #$self->{template}->{LOAD_TEMPLATES}->load(); - } else{ - $c->log->debug("VIEW INVOICE TEMPLATE:just send to process;\n"); - $self->SUPER::process($c) ; - } - return 1; -} -sub getTemplate{ - my ( $self, $c, $template ) = @_; - if(defined $template){ - $c and $c->log->debug("getTemplate: template=$template;"); - } - $c and $template ||= ( $c->stash->{template} || $c->action . $self->config->{TEMPLATE_EXTENSION} ); - $c and $c->log->debug("getTemplate: template=$template;"); - return $template; -} -#method is necessary to apply APP specific template configurations, e.g. path, tt file extensions etc -#may be moved to main view class, but as on template_invoice experiments stage it would be ok to leave it in separated class -sub getTemplateContent{ - my ( $self, $c, $template ) = @_; - - my $r = $self->{template}->context->insert($self->getTemplate($c,$template)); - use utf8; - utf8::decode($r); - return $r; -} -sub getTemplateProcessed{ - my ( $self, $c, $template, $stash ) = @_; - $self->{template}->context->define_vmethod( - hash => get_column => sub { - my($item,$col) = @_; - if('HASH' eq ref $item){ - return $item->{$col}; - } - } - ); - #$c->log->debug("getTemplateProcessed: template=$template;"); - #my $result = $self->{template}->context->process($template, $stash); - #$c->log->debug("getTemplateProcessed: result=$result;"); - - #return $result - return $self->{template}->context->process($template, $stash); -} -sub getTemplateVars{ - my ( $self, $c, $template,$vars ) = @_; - #$vars //= {}; - # - #$template = \' - #[%var = "qqq"%] - # - #'; - # - #my $text = ''; - #my $stc = {}; - #$vars->{template_import} ||= $stc; - #my $importold = $Template::Stash::HASH_OPS->{ import } if defined $Template::Stash::HASH_OPS->{ import }; - #$Template::Stash::HASH_OPS->{ import } = sub { $stc = $_[0]; }; - #$self->{template}->context->define_vmethod( - # hash => import => sub { - # my($item,$col) = @_; - # if('HASH' eq ref $item){ - # return $item->{$col}; - # } - # } - #); - #$self->{template}->process($template,$vars,\$text); - #$Template::Stash::HASH_OPS->{ import } = $importold if defined $importold; - # - ##$subject ||= $stc->get('subject'); - ##$type ||= $stc->get('mimetype'); - ##$from ||= $stc->get('from'); - #$Data::Dumper::Maxdepth = 1; - #use irka; - #use Data::Dumper; - #irka::loglong(Dumper($stc)); - ##$c->log->debug("var=".$stc->get('var').";"); - #return $stc; -} - -1;