- Changed style of thesis entry fields to match ADT requirements. - Added configuration for ADT installation.

nigel.stanger / Digital_Repository

Browse code - Changed style of thesis entry fields to match ADT requirements. - Added configuration for ADT installation. master
1 parent 98c7eb8 commit 11519a7c5fee2e01dba855fe65d6a50608730e58 nstanger authored on 16 Dec 2005

Patch

Showing 3 changed files

Ignore Space Show notes View Repositories/otago_eprints/otago_eprints/cfg/ArchiveMetadataFieldsConfig.pm
###################################################################### # # Site Information: Metadata Fields # ###################################################################### # # This file is part of GNU EPrints 2. # # Copyright (c) 2000-2004 University of Southampton, UK. SO17 1BJ. # # EPrints 2 is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # EPrints 2 is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with EPrints 2; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # ###################################################################### # # Metadata Configuration # # The archive specific fields for users and eprints. Some fields # come automatically like a user's username or an eprints type. See # the docs for more information. # # It's very tricky to change these fields without erasing the archive # and starting from scratch. So make the effort to get it right! # # Note: Changing the fields here (usually) requires you to make a # number of other configuration changes in some or all of the # following: # - The metadata types config XML file # - The citation config XML file(s) # - The render functions # - The search options # - The OAI support # # To (re)create the database you will need to run # bin/erase_archive (if you've already run create_tables before) # bin/create_tables # # See the documentation for more information. # ###################################################################### sub get_metadata_conf { my $fields = {}; $fields->{user} = [ { name => "name", type => "name", render_opts=>{order=>"gf"} }, { name => "dept", type => "text" }, { name => "org", type => "text" }, { name => "address", type => "longtext", input_rows => 5 }, { name => "country", type => "text" }, { name => "hideemail", type => "boolean", input_style=>"radio" }, { name => "os", type => "set", input_rows => 1, options => [ "win", "unix", "vms", "mac", "other" ] }, { name => "url", type => "url" } ]; $fields->{eprint} = [ { name => "creators", type => "name", multiple => 1, input_boxes => 4, hasid => 1, input_id_cols=>20, family_first=>1, hide_honourific=>1, hide_lineage=>1 }, { name => "title", type => "longtext", multilang=>0, input_rows => 3 }, { name => "ispublished", type => "set", options => [ "pub","inpress","submitted" , "unpub" ] }, { name => "subjects", type=>"subject", top=>"subjects", multiple => 1, browse_link => "subjects", render_input=>\&EPrints::Extras::subject_browser_input }, { name => "affiliations", type=>"subject", top=>"affiliations", multiple => 1, browse_link => "affiliations", render_input=>\&EPrints::Extras::subject_browser_input }, { name => "full_text_status", type=>"set", options => [ "public", "restricted", "none" ] }, { name => "monograph_type", type=>"set", options => [ "technical_report", "project_report", "documentation", "manual", "working_paper", "discussion_paper", "other" ] }, { name => "pres_type", type=>"set", options => [ "paper", "lecture", "speech", "poster", "other" ] }, { name => "keywords", type => "longtext", input_rows => 2 }, { name => "note", type => "longtext", input_rows => 3 }, { name => "suggestions", type => "longtext" }, { name => "abstract", input_rows => 10, type => "longtext" }, { name => "date_sub", type=>"date", min_resolution=>"year" }, { name => "date_issue", type=>"date", min_resolution=>"year" }, { name => "date_effective", type=>"date", min_resolution=>"year" }, { name => "series", type => "text" }, { name => "publication", type => "text" }, { name => "volume", type => "text", maxlength => 6 }, { name => "number", type => "text", maxlength => 6 }, { name => "publisher", type => "text" }, { name => "place_of_pub", type => "text", sql_index => 0 }, { name => "pagerange", type => "pagerange", sql_index => 0 }, { name => "pages", type => "int", maxlength => 6, sql_index => 0 }, { name => "event_title", type => "text", sql_index => 0 }, { name => "event_location", type => "text", sql_index => 0 }, { name => "event_dates", type => "text", sql_index => 0 }, { name => "event_type", type => "set", options=>[ "conference","workshop","other" ] }, { name => "id_number", type => "text" }, { name => "patent_applicant", type => "text", sql_index => 0 }, { name => "institution", type => "text" }, { name => "department", type => "text", sql_index => 0 }, { name => "thesis_type", type => "set", options=>[ "blank", "honours", "cmaster", "rmaster", "phd", "other" ] }, { name => "refereed", type => "boolean", input_style=>"radio" }, { name => "isbn", type => "text" }, { name => "issn", type => "text" }, { name => "fileinfo", type => "longtext", sql_index => 0, render_value=>\&render_fileinfo }, { name => "book_title", type => "text", sql_index => 0 }, { name => "editors", type => "name", multiple => 1, hasid=>1, input_boxes => 4, input_id_cols=>20, family_first=>1, hide_honourific=>1, hide_lineage=>1 }, { name => "official_url", type => "url", sql_index => 0 }, # nb. Can't call this field "references" because that's a MySQL keyword. { name => "referencetext", type => "longtext", input_rows => 10 } ]; # Don't worry about this bit, remove it if you want. # it's to store some information for a citation-linking # modules we've not built yet. $fields->{document} = [ { name => "citeinfo", type => "longtext", multiple => 1 } ]; return $fields; } ###################################################################### # # set_eprint_defaults( $data , $session ) # set_user_defaults( $data , $session ) # set_document_defaults( $data , $session ) # set_subscription_defaults( $data , $session ) # ###################################################################### # $data # - reference to HASH mapping # fieldname string # to # metadata value structure (see docs) # $session # - the session object # $eprint # - (only for set_document_defaults) this is the # eprint to which this document will belong. # # returns: nothing (Modify $data instead) # ###################################################################### # These methods allow you to set some default values when things # are created. This is useful if you skip stages in the submission # form or just want to set a default. # ###################################################################### sub set_eprint_defaults { my( $data, $session ) = @_; $data->{type} = "article"; $data->{thesis_type} = "UNSPECIFIED"; } sub set_user_defaults { my( $data, $session ) = @_; $data->{hideemail} = "TRUE"; } sub set_document_defaults { my( $data, $session, $eprint ) = @_; $data->{language} = $session->get_langid(); $data->{security} = ""; } sub set_subscription_defaults { my( $data, $session ) = @_; } ###################################################################### # # set_eprint_automatic_fields( $eprint ) # set_user_automatic_fields( $user ) # set_document_automatic_fields( $doc ) # set_subscription_automatic_fields( $subscription ) # ###################################################################### # $eprint/$user/$doc/$subscription # - the object to be modified # # returns: nothing (Modify the object instead). # ###################################################################### # These methods are called every time commit is called on an object # (commit writes it back into the database) # These methods allow you to read and modify fields just before this # happens. There are a number of uses for this. One is to encrypt # passwords as "secret" fields are only set if they are being changed # otherwise they are empty. Another is to create fields which the # submitter can't edit directly but you want to be searchable. eg. # Number of authors. # ###################################################################### sub set_eprint_automatic_fields { 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 Southampton" ); } } 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 $date; if( $eprint->is_set( "date_issue" ) ) { $date = $eprint->get_value( "date_issue" ); } elsif( $eprint->is_set( "date_sub" ) ) { $date = $eprint->get_value( "date_sub" ); } else { $date = $eprint->get_value( "datestamp" ); # worstcase } $eprint->set_value( "date_effective", $date ); my @docs = $eprint->get_all_documents(); my $textstatus = "none"; my @finfo = (); if( scalar @docs > 0 ) { $textstatus = "public"; foreach( @docs ) { if( $_->is_set( "security" ) ) { $textstatus = "restricted" } push @finfo, $_->get_type.";".$_->get_url; } } $eprint->set_value( "full_text_status", $textstatus ); $eprint->set_value( "fileinfo", join( "\|", @finfo ) ); } sub set_user_automatic_fields { my( $user ) = @_; if( !$user->is_set( "frequency" ) ) { $user->set_value( "frequency", "never" ); } } sub set_document_automatic_fields { my( $doc ) = @_; } sub set_subscription_automatic_fields { my( $subscription ) = @_; } # Return true to indicate the module loaded OK. 1; ###################################################################### # # Site Information: Metadata Fields # ###################################################################### # # This file is part of GNU EPrints 2. # # Copyright (c) 2000-2004 University of Southampton, UK. SO17 1BJ. # # EPrints 2 is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # EPrints 2 is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with EPrints 2; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # ###################################################################### # # Metadata Configuration # # The archive specific fields for users and eprints. Some fields # come automatically like a user's username or an eprints type. See # the docs for more information. # # It's very tricky to change these fields without erasing the archive # and starting from scratch. So make the effort to get it right! # # Note: Changing the fields here (usually) requires you to make a # number of other configuration changes in some or all of the # following: # - The metadata types config XML file # - The citation config XML file(s) # - The render functions # - The search options # - The OAI support # # To (re)create the database you will need to run # bin/erase_archive (if you've already run create_tables before) # bin/create_tables # # See the documentation for more information. # ###################################################################### sub get_metadata_conf { my $fields = {}; $fields->{user} = [ { name => "name", type => "name", render_opts=>{order=>"gf"} }, { name => "dept", type => "text" }, { name => "org", type => "text" }, { name => "address", type => "longtext", input_rows => 5 }, { name => "country", type => "text" }, { name => "hideemail", type => "boolean", input_style=>"radio" }, { name => "os", type => "set", input_rows => 1, options => [ "win", "unix", "vms", "mac", "other" ] }, { name => "url", type => "url" } ]; $fields->{eprint} = [ { name => "creators", type => "name", multiple => 1, input_boxes => 4, hasid => 1, input_id_cols=>20, family_first=>1, hide_honourific=>1, hide_lineage=>1 }, { name => "title", type => "longtext", multilang=>0, input_rows => 3 }, { name => "ispublished", type => "set", options => [ "pub","inpress","submitted" , "unpub" ] }, { name => "subjects", type=>"subject", top=>"subjects", multiple => 1, browse_link => "subjects", render_input=>\&EPrints::Extras::subject_browser_input }, { name => "affiliations", type=>"subject", top=>"affiliations", multiple => 1, browse_link => "affiliations", render_input=>\&EPrints::Extras::subject_browser_input }, { name => "full_text_status", type=>"set", options => [ "public", "restricted", "none" ] }, { name => "monograph_type", type=>"set", options => [ "technical_report", "project_report", "documentation", "manual", "working_paper", "discussion_paper", "other" ] }, { name => "pres_type", type=>"set", options => [ "paper", "lecture", "speech", "poster", "other" ] }, { name => "keywords", type => "longtext", input_rows => 2 }, { name => "note", type => "longtext", input_rows => 3 }, { name => "suggestions", type => "longtext" }, { name => "abstract", input_rows => 10, type => "longtext" }, { name => "date_sub", type=>"date", min_resolution=>"year" }, { name => "date_issue", type=>"date", min_resolution=>"year" }, { name => "date_effective", type=>"date", min_resolution=>"year" }, { name => "series", type => "text" }, { name => "publication", type => "text" }, { name => "volume", type => "text", maxlength => 6 }, { name => "number", type => "text", maxlength => 6 }, { name => "publisher", type => "text" }, { name => "place_of_pub", type => "text", sql_index => 0 }, { name => "pagerange", type => "pagerange", sql_index => 0 }, { name => "pages", type => "int", maxlength => 6, sql_index => 0 }, { name => "event_title", type => "text", sql_index => 0 }, { name => "event_location", type => "text", sql_index => 0 }, { name => "event_dates", type => "text", sql_index => 0 }, { name => "event_type", type => "set", options=>[ "conference","workshop","other" ] }, { name => "id_number", type => "text" }, { name => "patent_applicant", type => "text", sql_index => 0 }, { name => "institution", type => "text" }, { name => "department", type => "text", sql_index => 0 }, { name => "thesis_type", type => "set", options=>[ "phd", "masters", "honours", "other"] }, { name => "refereed", type => "boolean", input_style=>"radio" }, { name => "isbn", type => "text" }, { name => "issn", type => "text" }, { name => "fileinfo", type => "longtext", sql_index => 0, render_value=>\&render_fileinfo }, { name => "book_title", type => "text", sql_index => 0 }, { name => "editors", type => "name", multiple => 1, hasid=>1, input_boxes => 4, input_id_cols=>20, family_first=>1, hide_honourific=>1, hide_lineage=>1 }, { name => "official_url", type => "url", sql_index => 0 }, # nb. Can't call this field "references" because that's a MySQL keyword. { name => "referencetext", type => "longtext", input_rows => 10 } ]; # Don't worry about this bit, remove it if you want. # it's to store some information for a citation-linking # modules we've not built yet. $fields->{document} = [ { name => "citeinfo", type => "longtext", multiple => 1 } ]; return $fields; } ###################################################################### # # set_eprint_defaults( $data , $session ) # set_user_defaults( $data , $session ) # set_document_defaults( $data , $session ) # set_subscription_defaults( $data , $session ) # ###################################################################### # $data # - reference to HASH mapping # fieldname string # to # metadata value structure (see docs) # $session # - the session object # $eprint # - (only for set_document_defaults) this is the # eprint to which this document will belong. # # returns: nothing (Modify $data instead) # ###################################################################### # These methods allow you to set some default values when things # are created. This is useful if you skip stages in the submission # form or just want to set a default. # ###################################################################### sub set_eprint_defaults { my( $data, $session ) = @_; $data->{type} = "article"; } sub set_user_defaults { my( $data, $session ) = @_; $data->{hideemail} = "TRUE"; } sub set_document_defaults { my( $data, $session, $eprint ) = @_; $data->{language} = $session->get_langid(); $data->{security} = ""; } sub set_subscription_defaults { my( $data, $session ) = @_; } ###################################################################### # # set_eprint_automatic_fields( $eprint ) # set_user_automatic_fields( $user ) # set_document_automatic_fields( $doc ) # set_subscription_automatic_fields( $subscription ) # ###################################################################### # $eprint/$user/$doc/$subscription # - the object to be modified # # returns: nothing (Modify the object instead). # ###################################################################### # These methods are called every time commit is called on an object # (commit writes it back into the database) # These methods allow you to read and modify fields just before this # happens. There are a number of uses for this. One is to encrypt # passwords as "secret" fields are only set if they are being changed # otherwise they are empty. Another is to create fields which the # submitter can't edit directly but you want to be searchable. eg. # Number of authors. # ###################################################################### sub set_eprint_automatic_fields { 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 Southampton" ); } } 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 $date; if( $eprint->is_set( "date_issue" ) ) { $date = $eprint->get_value( "date_issue" ); } elsif( $eprint->is_set( "date_sub" ) ) { $date = $eprint->get_value( "date_sub" ); } else { $date = $eprint->get_value( "datestamp" ); # worstcase } $eprint->set_value( "date_effective", $date ); my @docs = $eprint->get_all_documents(); my $textstatus = "none"; my @finfo = (); if( scalar @docs > 0 ) { $textstatus = "public"; foreach( @docs ) { if( $_->is_set( "security" ) ) { $textstatus = "restricted" } push @finfo, $_->get_type.";".$_->get_url; } } $eprint->set_value( "full_text_status", $textstatus ); $eprint->set_value( "fileinfo", join( "\|", @finfo ) ); } sub set_user_automatic_fields { my( $user ) = @_; if( !$user->is_set( "frequency" ) ) { $user->set_value( "frequency", "never" ); } } sub set_document_automatic_fields { my( $doc ) = @_; } sub set_subscription_automatic_fields { my( $subscription ) = @_; } # Return true to indicate the module loaded OK. 1;

Ignore Space Show notes View

Repositories/otago_eprints/otago_eprints/cfg/ArchiveMetadataFieldsConfig.pm

######################################################################
#
#  Site Information: Metadata Fields
#
######################################################################
#
# This file is part of GNU EPrints 2.
# 
# Copyright (c) 2000-2004 University of Southampton, UK. SO17 1BJ.
# 
# EPrints 2 is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
# 
# EPrints 2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with EPrints 2; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
######################################################################
#
# Metadata Configuration
#
#  The archive specific fields for users and eprints. Some fields
#  come automatically like a user's username or an eprints type. See
#  the docs for more information.
#
#  It's very tricky to change these fields without erasing the archive
#  and starting from scratch. So make the effort to get it right!
#
#  Note: Changing the fields here (usually) requires you to make a 
#  number of other configuration changes in some or all of the 
#  following:
#   - The metadata types config XML file
#   - The citation config XML file(s)
#   - The render functions
#   - The search options 
#   - The OAI support 
#
#  To (re)create the database you will need to run
#   bin/erase_archive  (if you've already run create_tables before)
#   bin/create_tables
#
#  See the documentation for more information.
#
######################################################################

sub get_metadata_conf
{
my $fields = {};

$fields->{user} = [

{ name => "name", type => "name", render_opts=>{order=>"gf"} },

{ name => "dept", type => "text" },

{ name => "org", type => "text" },

{ name => "address", type => "longtext", input_rows => 5 },

{ name => "country", type => "text" },

{ name => "hideemail", type => "boolean", input_style=>"radio" },

{ name => "os", type => "set", input_rows => 1,
		options => [ "win", "unix", "vms", "mac", "other" ] },

{ name => "url", type => "url" }

];

$fields->{eprint} = [

{ name => "creators", type => "name", multiple => 1, input_boxes => 4,
		hasid => 1, input_id_cols=>20, 
		family_first=>1, hide_honourific=>1, hide_lineage=>1 },

{ name => "title", type => "longtext", multilang=>0, input_rows => 3 },

{ name => "ispublished", type => "set", 
			options => [ "pub","inpress","submitted" , "unpub" ] },

{ name => "subjects", type=>"subject", top=>"subjects", multiple => 1, 
		browse_link => "subjects",
		render_input=>\&EPrints::Extras::subject_browser_input },

{ name => "affiliations", type=>"subject", top=>"affiliations", multiple => 1,
		browse_link => "affiliations",
		render_input=>\&EPrints::Extras::subject_browser_input },

{ name => "full_text_status", type=>"set",
			options => [ "public", "restricted", "none" ] },

{ name => "monograph_type", type=>"set",
			options => [ 
				"technical_report", 
				"project_report",
				"documentation",
				"manual",
				"working_paper",
				"discussion_paper",
				"other" ] },

{ name => "pres_type", type=>"set",
			options => [ 
				"paper", 
				"lecture", 
				"speech", 
				"poster", 
				"other" ] },

{ name => "keywords", type => "longtext", input_rows => 2 },

{ name => "note", type => "longtext", input_rows => 3 },

{ name => "suggestions", type => "longtext" },

{ name => "abstract", input_rows => 10, type => "longtext" },

{ name => "date_sub", type=>"date", min_resolution=>"year" },

{ name => "date_issue", type=>"date", min_resolution=>"year" },

{ name => "date_effective", type=>"date", min_resolution=>"year" },

{ name => "series", type => "text" },

{ name => "publication", type => "text" },

{ name => "volume", type => "text", maxlength => 6 },

{ name => "number", type => "text", maxlength => 6 },

{ name => "publisher", type => "text" },

{ name => "place_of_pub", type => "text", sql_index => 0 },

{ name => "pagerange", type => "pagerange", sql_index => 0 },

{ name => "pages", type => "int", maxlength => 6, sql_index => 0 },

{ name => "event_title", type => "text", sql_index => 0 },

{ name => "event_location", type => "text", sql_index => 0 },
	
	{ name => "event_dates", type => "text", sql_index => 0 },

{ name => "event_type", type => "set", options=>[ "conference","workshop","other" ] },

{ name => "id_number", type => "text" },

{ name => "patent_applicant", type => "text", sql_index => 0 },

{ name => "institution", type => "text" },

{ name => "department", type => "text", sql_index => 0 },

{ name => "thesis_type", type => "set", options=>[ "blank", "honours", "cmaster", "rmaster", "phd", "other" ] },

{ name => "refereed", type => "boolean", input_style=>"radio" },

{ name => "isbn", type => "text" },

{ name => "issn", type => "text" },

{ name => "fileinfo", type => "longtext", sql_index => 0,
		render_value=>\&render_fileinfo },

{ name => "book_title", type => "text", sql_index => 0 },
	
	{ name => "editors", type => "name", multiple => 1, hasid=>1,
		input_boxes => 4, input_id_cols=>20, 
		family_first=>1, hide_honourific=>1, hide_lineage=>1 },

{ name => "official_url", type => "url", sql_index => 0 },

# nb. Can't call this field "references" because that's a MySQL keyword.
	{ name => "referencetext", type => "longtext", input_rows => 10 }

];

# Don't worry about this bit, remove it if you want.
# it's to store some information for a citation-linking
# modules we've not built yet. 
	
$fields->{document} = [
	{ name => "citeinfo", type => "longtext", multiple => 1 }
];

return $fields;
}

######################################################################
#
# set_eprint_defaults( $data , $session )
# set_user_defaults( $data , $session )
# set_document_defaults( $data , $session )
# set_subscription_defaults( $data , $session )
#
######################################################################
# $data 
# - reference to HASH mapping 
#      fieldname string
#   to
#      metadata value structure (see docs)
# $session 
# - the session object
# $eprint 
# - (only for set_document_defaults) this is the
#   eprint to which this document will belong.
#
# returns: nothing (Modify $data instead)
#
######################################################################
# These methods allow you to set some default values when things
# are created. This is useful if you skip stages in the submission 
# form or just want to set a default.
#
######################################################################

sub set_eprint_defaults
{
	my( $data, $session ) = @_;

$data->{type} = "article";
	$data->{thesis_type} = "UNSPECIFIED";
}

sub set_user_defaults
{
	my( $data, $session ) = @_;

$data->{hideemail} = "TRUE";
}

sub set_document_defaults
{
	my( $data, $session, $eprint ) = @_;

$data->{language} = $session->get_langid();
	$data->{security} = "";
}

sub set_subscription_defaults
{
	my( $data, $session ) = @_;
}

######################################################################
#
# set_eprint_automatic_fields( $eprint )
# set_user_automatic_fields( $user )
# set_document_automatic_fields( $doc )
# set_subscription_automatic_fields( $subscription )
#
######################################################################
# $eprint/$user/$doc/$subscription 
# - the object to be modified
#
# returns: nothing (Modify the object instead).
#
######################################################################
# These methods are called every time commit is called on an object
# (commit writes it back into the database)
# These methods allow you to read and modify fields just before this
# happens. There are a number of uses for this. One is to encrypt 
# passwords as "secret" fields are only set if they are being changed
# otherwise they are empty. Another is to create fields which the
# submitter can't edit directly but you want to be searchable. eg.
# Number of authors.
#
######################################################################

sub set_eprint_automatic_fields
{
	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 Southampton" );
		}
	}

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 $date;
	if( $eprint->is_set( "date_issue" ) )
	{
		$date = $eprint->get_value( "date_issue" );
	} 
	elsif( $eprint->is_set( "date_sub" ) )
	{
		$date = $eprint->get_value( "date_sub" );
	}
	else
	{
	 	$date = $eprint->get_value( "datestamp" ); # worstcase
	}
	$eprint->set_value( "date_effective", $date );

my @docs = $eprint->get_all_documents();
	my $textstatus = "none";
	my @finfo = ();
	if( scalar @docs > 0 )
	{
		$textstatus = "public";
		foreach( @docs )
		{
			if( $_->is_set( "security" ) )
			{
				$textstatus = "restricted"
			}
			push @finfo, $_->get_type.";".$_->get_url;
		}
	}
	$eprint->set_value( "full_text_status", $textstatus );
	$eprint->set_value( "fileinfo", join( "|", @finfo ) );

}

sub set_user_automatic_fields
{
	my( $user ) = @_;

if( !$user->is_set( "frequency" ) )
	{
		$user->set_value( "frequency", "never" );
	}
}

sub set_document_automatic_fields
{
	my( $doc ) = @_;
}

sub set_subscription_automatic_fields
{
	my( $subscription ) = @_;
}

# Return true to indicate the module loaded OK.
1;