Gossamer Forum: General: Perl Programming: Re: [delicia] custom messages: Edit Log

Hi,

Why not make a common function that will just hold them as options? For example:

Code:
sub load_options { 
	return { 
		TABLE_FOO => { 
			name => "bla", 
			title => "something else", 
			success_message => "whatever" 
		}, 
		ANOTHER_TABLE => { 
			name => "bla", 
			title => "something else", 
			success_message => "whatever" 
		}, 
		SOMETHING => { 
			name => "bla", 
			title => "something else", 
			success_message => "whatever" 
		}, 
	} 

}

Then load with:

Code:
my $TBL_OPTS =  load_options();

Then call with stuff like:

Code:
$TBL_OPTS->{SOMETHING }->{name}, $TBL_OPTS->{SOMETHING }->{success_message} , etc

Not sure how practice that is with your setup - but its worth a go Angelic

Andy (mod)
andy@ultranerds.co.uk

General: Perl Programming: Re: [delicia] custom messages: Edit Log

Here is the list of edits for this post

Last edited by:

Edit Log: