<%INIT> if (defined($CopyTo)) { my $dsn = $session{db}; my $src = ($session{PAGE} eq 'File') ? $session{current_file} : $session{current_report}; $DB{$dsn,$CopyTo} = $DB{$dsn,$src} if exists $DB{$dsn,$src}; tied(%DB)->sync; $m->print(""); $m->abort; } <%ARGS> $CopyTo => undef