<% $document->id %> <%args> $id => undef <%init> &abort404 unless $id && $id =~ /^\d+$/; my $document = $keeper->get_document_by_id ( $id, class => 'promosuite::Postcard', ); return unless ref $document; my %hash = ( imageX => $ARGS{imageX}, imageY => $ARGS{imageY}, imageWidth => $ARGS{imageWidth}, imageHeight => $ARGS{imageHeight}, imageRotation => $ARGS{imageRotation}, monsterType => $ARGS{monsterType}, ); $document->status(1); local $Data::Dumper::Indent = 0; $document->params(Dumper(\%hash)); $document->store;