+ if ( my $view = $self->param('view') ) {
+ mkdir $view_path unless -e $view_path;
+ write_file( "$view_path/$view", { binmode => ':utf8' }, map { "$_\n" } @columns );
+ warn "view $view_path/$view ", -s "$view_path/$view", " bytes\n";
+ }
+
+ return $self->redirect_to('/data/items');
+
+ } elsif ( ! $self->session('header') ) {
+ return $self->redirect_to('/data/load');
+ }
+
+ if ( my $id = $self->param('id') ) {
+ my $view_full = "$view_path/$id";
+ if ( -f $view_full ) {
+ my @columns = map { chomp; $_ } read_file $view_full, binmode => ':utf8';
+ warn "view $view_full loaded ", dump @columns;
+ $self->session( 'columns' => [ @columns ] );
+ return $self->redirect_to('/data/items');
+ }