Help for this page

Select Code to Download


  1. or download this
    package alter;

...
  my $nec = shift;
  my $ipic1 = org::item::essential($nec, "Input Picture");
my $(ipic) = $nec->locateAbsolutepath($ipic1);
  2. or download this
    #!/usr/bin/perl -w
use pic;#.pm file
...

my $rapaz = alter->onPerform();
$rapaz-> {"Input Picture"} = ($rapaz1);