Line # Revision Author
1 296 ahitrov <% $document->id %>
2 <%args>
3
4 $id => undef
5
6 </%args>
7 <%init>
8
9 &abort404 unless $id && $id =~ /^\d+$/;
10 my $document = $keeper->get_document_by_id ( $id,
11 class => 'promosuite::Postcard',
12 );
13 return unless ref $document;
14 my %hash = (
15 imageX => $ARGS{imageX},
16 imageY => $ARGS{imageY},
17 imageWidth => $ARGS{imageWidth},
18 imageHeight => $ARGS{imageHeight},
19 imageRotation => $ARGS{imageRotation},
20 monsterType => $ARGS{monsterType},
21 );
22 $document->status(1);
23 local $Data::Dumper::Indent = 0;
24 $document->params(Dumper(\%hash));
25 $document->store;
26
27 </%init>