5 |
use base 'Catalyst::Controller'; |
use base 'Catalyst::Controller'; |
6 |
|
|
7 |
use HTML::Tidy; |
use HTML::Tidy; |
|
use Data::Dumper; |
|
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
153 |
sub record : Local { |
sub record : Local { |
154 |
my ( $self, $c ) = @_; |
my ( $self, $c ) = @_; |
155 |
|
|
156 |
$c->log->debug('record params '.Dumper($c->req->params)); |
$c->log->dumper($c->req->params, 'params'); |
157 |
|
|
158 |
my $record_uri = $c->req->params->{record_uri}; |
my $record_uri = $c->req->params->{record_uri}; |
159 |
$record_uri ||= $c->config->{editor}->{default_record_uri} and |
$record_uri ||= $c->config->{editor}->{default_record_uri} and |