$c->{set_eprint_automatic_fields} = sub { my( $eprint ) = @_; my $type = $eprint->get_value( "type" ); if( $type eq "monograph" || $type eq "thesis" ) { unless( $eprint->is_set( "institution" ) ) { # This is a handy place to make monographs and thesis default to # your insitution # $eprint->set_value( "institution", "University of Otago" ); } } if( $type eq "patent" ) { $eprint->set_value( "ispublished", "pub" ); # patents are always published! } if( $type eq "thesis" ) { $eprint->set_value( "ispublished", "unpub" ); # thesis are always unpublished. } my @docs = $eprint->get_all_documents(); my $textstatus = "none"; if( scalar @docs > 0 ) { $textstatus = "public"; foreach my $doc ( @docs ) { if( !$doc->is_public ) { $textstatus = "restricted"; last; } } } $eprint->set_value( "full_text_status", $textstatus ); };