Moved defaults handling into separate object

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@876 4979c152-3d1c-0410-bac9-87ea11338e46

3 files changed, 206 insertions, 144 deletions

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index e751a229..c1dabfb7 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -2722,150 +2722,6 @@ sub save_intnotes {
 }
 
 
-sub update_defaults {
-
-	my ($self, $myconfig, $fld) = @_;
-
-	if (!$self->{dbh} && $self){
-		$self->db_init($myconfig);
-	} 
-		
-	my $dbh = $self->{dbh};
-
-	if (!$self){
-		$dbh = $_[3];
-	}
-
-	my $query = qq|
-		SELECT value FROM defaults 
-		 WHERE setting_key = ? FOR UPDATE|;
-	$sth = $dbh->prepare($query);
-	$sth->execute($fld);
-	($_) = $sth->fetchrow_array();
-
-	$_ = "0" unless $_;
-
-	# check for and replace
-	# <?lsmb DATE ?>, <?lsmb YYMMDD ?>, <?lsmb YEAR ?>, <?lsmb MONTH ?>, <?lsmb DAY ?> or variations of
-	# <?lsmb NAME 1 1 3 ?>, <?lsmb BUSINESS ?>, <?lsmb BUSINESS 10 ?>, <?lsmb CURR... ?>
-	# <?lsmb DESCRIPTION 1 1 3 ?>, <?lsmb ITEM 1 1 3 ?>, <?lsmb PARTSGROUP 1 1 3 ?> only for parts
-	# <?lsmb PHONE ?> for customer and vendors
-
-	my $num = $_;
-	($num) = $num =~ /(\d+)/;
-
-	if (defined $num) {
-		my $incnum;
-		# if we have leading zeros check how long it is
-
-		if ($num =~ /^0/) {
-			my $l = length $num;
-			$incnum = $num + 1;
-			$l -= length $incnum;
-
-			# pad it out with zeros
-			my $padzero = "0" x $l;
-			$incnum = ("0" x $l) . $incnum;
-		} else {
-			$incnum = $num + 1;
-		}
-
-		s/$num/$incnum/;
-	}
-
-	my $dbvar = $_;
-	my $var = $_;
-	my $str;
-	my $param;
-
-	if (/<\?lsmb /) {
-
-		while (/<\?lsmb /) {
-
-			s/<\?lsmb .*? \?>//;
-			last unless $&;
-		$param = $&;
-			$str = "";
-
-			if ($param =~ /<\?lsmb date \?>/i) {
-				$str = ($self->split_date($myconfig->{dateformat}, $self->{transdate}))[0];
-				$var =~ s/$param/$str/;
-			}
-
-			if ($param =~ /<\?lsmb (name|business|description|item|partsgroup|phone|custom)/i) {
-
-				my $fld = lc $&;
-				$fld =~ s/<\?lsmb //;
-
-				if ($fld =~ /name/) {
-					if ($self->{type}) {
-						$fld = $self->{vc};
-					}
-				}
-
-				my $p = $param;
-				$p =~ s/(<|>|%)//g;
-				my @p = split / /, $p;
-				my @n = split / /, uc $self->{$fld};
-
-				if ($#p > 0) {
-
-					for (my $i = 1; $i <= $#p; $i++) {
-						$str .= substr($n[$i-1], 0, $p[$i]);
-					}
-
-				} else {
-					($str) = split /--/, $self->{$fld};
-				}
-
-				$var =~ s/$param/$str/;
-				$var =~ s/\W//g if $fld eq 'phone';
-			}
-
-			if ($param =~ /<\?lsmb (yy|mm|dd)/i) {
-
-				my $p = $param;
-				$p =~ s/(<|>|%)//g;
-				my $spc = $p;
-				$spc =~ s/\w//g;
-				$spc = substr($spc, 0, 1);
-				my %d = ( yy => 1, mm => 2, dd => 3 );
-				my @p = ();
-
-				my @a = $self->split_date($myconfig->{dateformat}, $self->{transdate});
-				for (sort keys %d) { push @p, $a[$d{$_}] if ($p =~ /$_/) }
-				$str = join $spc, @p;
-				$var =~ s/$param/$str/;
-			}
-
-			if ($param =~ /<\?lsmb curr/i) {
-				$var =~ s/$param/$self->{currency}/;
-			}
-		}
-	}
-
-	$query = qq|
-		UPDATE defaults
-		   SET value = ?
-		 WHERE setting_key = ?|;
-
-	$sth = $dbh->prepare($query); 
-	$sth->execute($dbvar, $fld) || $self->dberror($query);
-
-	$dbh->commit;
-
-	$var;
-}
-
-sub db_prepare_vars {
-	my $self = shift;
-
-	for (@_){
-		if (!$self->{$_} and $self->{$_} ne "0"){
-			undef $self->{$_};
-		}
-	}
-}
 
 sub split_date {
 
diff --git a/LedgerSMB/Setting.pm b/LedgerSMB/Setting.pm
new file mode 100644
index 00000000..959fcaeb
--- /dev/null
+++ b/LedgerSMB/Setting.pm
@@ -0,0 +1,139 @@
+=head1 NAME
+
+LedgerSMB::Setting - LedgerSMB class for managing Business Locations
+
+=head1 SYOPSIS
+
+This module creates object instances based on LedgerSMB's in-database ORM.  
+
+=head1 METHODS
+
+The following method is static:
+=item new ($LedgerSMB object);
+
+The following methods are passed through to stored procedures:
+=item get ($self->{key})
+=item set ($self->{key}, $self->{value})
+=item get_default_accounts()
+
+The above list may grow over time, and may depend on other installed modules.
+
+=head1 Copyright (C) 2007, The LedgerSMB core team.
+This file is licensed under the Gnu General Public License version 2, or at your
+option any later version.  A copy of the license should have been included with
+your software.
+
+=back
+
+=cut
+
+package LedgerSMB::Setting;
+use LedgerSMB;
+use LedgerSMB::DBObject;
+our $VERSION = '1.0.0';
+
+our @ISA = qw(LedgerSMB::DBObject);
+
+sub AUTOLOAD {
+	my $self = shift;
+	$AUTOLOAD =~ s/^.*:://;
+	my $procname = "setting_$AUTOLOAD";
+	$self->exec_method($procname, @_);
+}
+
+sub get {
+	$self = shift;
+	$hashref = @{$self->exec_method('setting_get');
+	$self->merge($hashref, 'value');
+
+sub parse {
+
+	$self = shift;
+
+	# Long-run, we may want to run this via Parse::RecDescent, but this is
+	# at least a start for here.  Chris T.
+
+	# Replaces Form::UpdateDefaults
+
+	$_ = $self->incriment;
+	# check for and replace
+	# <?lsmb DATE ?>, <?lsmb YYMMDD ?>, <?lsmb YEAR ?>, <?lsmb MONTH ?>, <?lsmb DAY ?> or variations of
+	# <?lsmb NAME 1 1 3 ?>, <?lsmb BUSINESS ?>, <?lsmb BUSINESS 10 ?>, <?lsmb CURR... ?>
+	# <?lsmb DESCRIPTION 1 1 3 ?>, <?lsmb ITEM 1 1 3 ?>, <?lsmb PARTSGROUP 1 1 3 ?> only for parts
+	# <?lsmb PHONE ?> for customer and vendors
+
+	my $dbvar = $_;
+	my $var = $_;
+	my $str;
+	my $param;
+
+	if (/<\?lsmb /) {
+
+		while (/<\?lsmb /) {
+
+			s/<\?lsmb .*? \?>//;
+			last unless $&;
+		$param = $&;
+			$str = "";
+
+			if ($param =~ /<\?lsmb date \?>/i) {
+				$str = ($self->split_date($myconfig->{dateformat}, $self->{transdate}))[0];
+				$var =~ s/$param/$str/;
+			}
+
+			if ($param =~ /<\?lsmb (name|business|description|item|partsgroup|phone|custom)/i) {
+
+				my $fld = lc $&;
+				$fld =~ s/<\?lsmb //;
+
+				if ($fld =~ /name/) {
+					if ($self->{type}) {
+						$fld = $self->{vc};
+					}
+				}
+
+				my $p = $param;
+				$p =~ s/(<|>|%)//g;
+				my @p = split / /, $p;
+				my @n = split / /, uc $self->{$fld};
+
+				if ($#p > 0) {
+
+					for (my $i = 1; $i <= $#p; $i++) {
+						$str .= substr($n[$i-1], 0, $p[$i]);
+					}
+
+				} else {
+					($str) = split /--/, $self->{$fld};
+				}
+
+				$var =~ s/$param/$str/;
+				$var =~ s/\W//g if $fld eq 'phone';
+			}
+
+			if ($param =~ /<\?lsmb (yy|mm|dd)/i) {
+
+				my $p = $param;
+				$p =~ s/(<|>|%)//g;
+				my $spc = $p;
+				$spc =~ s/\w//g;
+				$spc = substr($spc, 0, 1);
+				my %d = ( yy => 1, mm => 2, dd => 3 );
+				my @p = ();
+
+				my @a = $self->split_date($myconfig->{dateformat}, $self->{transdate});
+				for (sort keys %d) { push @p, $a[$d{$_}] if ($p =~ /$_/) }
+				$str = join $spc, @p;
+				$var =~ s/$param/$str/;
+			}
+
+			if ($param =~ /<\?lsmb curr/i) {
+				$var =~ s/$param/$self->{currency}/;
+			}
+		}
+	}
+
+	$self->{value} = $var;
+	$var;
+}
+
diff --git a/sql/modules/Settings.sql b/sql/modules/Settings.sql
new file mode 100644
index 00000000..d977550b
--- /dev/null
+++ b/sql/modules/Settings.sql
@@ -0,0 +1,67 @@
+CREATE OR REPLACE FUNCTION setting_set (in_key varchar, in_value varchar) 
+RETURNS VOID AS
+$$
+BEGIN
+	UPDATE defaults SET value = in_value WHERE setting_key = in_key;
+	RETURN;
+END;
+
+CREATE OR REPLACE FUNCTION setting_get (in_key varchar) RETURNS varchar AS
+$$
+DECLARE
+	out_value varchar;
+BEGIN
+	SELECT value INTO out_value FROM defaults WHERE setting_key = in_key;
+	RETURN value;
+END;
+$$ LANGUAGE plpgsql;
+
+CREATE OR REPLACE FUNCTION setting_get_default_accounts () 
+RETURNS SETOF defaults AS
+$$
+DECLARE
+	account defaults%ROWTYPE;
+BEGIN;
+	FOR account IN 
+		SELECT * FROM defaults 
+		WHERE setting_key like '%accno_id'
+	LOOP
+		RETURN NEXT account;
+	END LOOP;
+END;
+$$ LANGUAGE plpgsql;
+
+CREATE OR REPLACE FUNCTION setting_incriment (in_key varchar) returns varchar
+AS
+$$
+DECLARE
+	base_value VARCHAR;
+	raw_value VARCHAR;
+	incriment INTEGER;
+	inc_length INTEGER;
+	new_value VARCHAR;
+BEGIN
+	SELECT value INTO raw_value FROM defaults 
+	WHERE setting_key = in_key
+	FOR UPDATE;
+
+	SELECT substring(raw_value from  '(\\d*)(\\D*|<\\?lsmb [^<>] \\?>)*$')
+	INTO base_value;
+
+	IF base_value like '0%' THEN
+		incriment := base_value::integer + 1;
+		SELECT char_length(incriment::text) INTO inc_length;
+
+		SELECT overlay(base_value placing incriment::varchar
+			from (select char_length(base_value) 
+				- inc_length + 1) for inc_length)
+		INTO new_value;
+	ELSE
+		new_value := base_value::integer + 1;
+	END IF;
+	SELECT regexp_replace(raw_value, base_value, new_value) INTO new_value;
+	UPDATE defaults SET value = new_value WHERE setting_key = in_key;
+
+	return new_value;	
+END;
+$$ LANGUAGE PLPGSQL;