$c->{set_eprint_defaults} = sub { my( $data, $session ) = @_; $data->{type} = "article"; # 2007-04-18: Added defaults for new author permission and copyright # status fields. $data->{author_permission} = "unproc"; $data->{copyright_status} = "unproc"; };