+
+ $param{width} = '400' unless exists $param{width} and defined $param{width};
+ $param{height} = '400' unless exists $param{height} and defined $param{height};
+ for (qw(width height)) {
+ if ($param{$_} !~ /^\d+$/) {
+ error("invalid $_; must be an integer: $param{$_}");
+ }
+ }
+ if (exists $param{picture}) {
+ my $md5 = code_md5($param{code}."width=$param{width}height=$param{height}");
+ my $page_esc = $params->{page};
+ $page_esc =~ s/"/\\"/g;
+ $pagestate{$param{page}}{$id}{R}->run(qq{png(filename="$page_esc",width=$param{width},height=$param{height});});
+ }