Repository List / Contenido / utf8 / samples / promosuite / comps / www / helloween / store.html @ r296

<% $document->id %>
<%args>

	$id	=> undef

</%args>
<%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;

</%init>