summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-15 05:21:31 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-15 05:21:31 +0000
commitb058034becbabad46381db6c2e1f588283fced26 (patch)
treec59bf613813320231e26e70288273488476ed303
parent9846397cb1c8a1a9ac86a8a305de0b2af32f890d (diff)
Adding ledgersmb.conf.default
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@908 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xLedgerSMB.pm35
-rw-r--r--ledgersmb.conf.default55
2 files changed, 82 insertions, 8 deletions
diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index a7a34db6..3a38fef3 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -12,6 +12,10 @@ in database objects (LedgerSMB::DBObject)
=item new ()
This method creates a new base request instance.
+=item date_to_number (user => $LedgerSMB::User, date => $string);
+This function takes the date in the format provided and returns a numeric
+string in YYMMDD format. This may be moved to User in the future.
+
=item debug (file => $path);
This dumps the current object to the file if that is defined and otherwise to
@@ -28,7 +32,12 @@ This function returns the $string encoded using %hexhex using ordinary notation.
=item format_amount (user => $LedgerSMB::User::hash, amount => $string, precision => $integer, neg_format => (-|DRCR));
The function takes a monetary amount and formats it according to the user
-preferences, the negative format (- or DR/CR).
+preferences, the negative format (- or DR/CR). Note that it may move to
+LedgerSMB::User at some point in the future.
+
+=item parse_amount (user => $LedgerSMB::User::hash, amount => $variable);
+If $amount is a Bigfloat, it is returned as is. If it is a string, it is
+parsed according to the user preferences stored in the LedgerSMB::User object.
=item format_fields (fields => \@array);
This function converts fields to their appropriate representation in
@@ -368,10 +377,12 @@ sub format_amount {
$amount;
}
-
+# This should probably go to the User object too.
sub parse_amount {
-
- my ($self, $myconfig, $amount) = @_;
+ my $self = shift @_;
+ my %args = @_;
+ my $myconfig = $args{user};
+ my $amount = $args{amount};
if ($amount eq '' or $amount == undef){
return 0;
@@ -447,9 +458,12 @@ sub call_procedure {
@results;
}
-sub datetonum {
-
- my ($self, $myconfig, $date, $picture) = @_;
+# This should probably be moved to User too...
+sub date_to_number {
+ my $self = shift @_;
+ my %args = @_;
+ my $myconfig = $args{user};
+ my $date = $args{date};
my ($yy, $mm, $dd);
if ($date && $date =~ /\D/) {
@@ -483,7 +497,10 @@ sub datetonum {
# Database routines used throughout
sub db_init {
- my ($self, $myconfig) = @_;
+ my $self = shift @_;
+ my %args = @_;
+ my $myconfig = $args{user};
+
$self->{dbh} = $self->dbconnect_noauto($myconfig) || $self->dberror();
my $query =
@@ -501,6 +518,8 @@ sub db_init {
}
}
+# Will merge this into db_init in the future.
+# Deprecated and hence undocumented. Chris.
sub dbconnect_noauto {
my ($self, $myconfig) = @_;
diff --git a/ledgersmb.conf.default b/ledgersmb.conf.default
new file mode 100644
index 00000000..04aa3386
--- /dev/null
+++ b/ledgersmb.conf.default
@@ -0,0 +1,55 @@
+session : DB
+logging : 0
+
+# Set language for login and admin pages
+language :
+
+# If you have LaTeX installed, set to 1
+latex : 1
+
+# Maximum number of invoices that can be printed on a cheque
+check_max_invoices : 5
+
+[environment]
+# If the server can't find applications, append to the path
+PATH: /usr/local/pgsql/bin
+PATH: /usr/local/bin
+
+# If on Mac OS X using Fink's Perl libs, append to the path
+#PERL5LIB = /sw/lib/perl5
+
+[paths]
+# spool directory for batch printing
+spool = spool
+# path to user configuration files
+userspath = users
+# templates base directory
+templates = templates
+# images base directory
+images = images
+# member file
+memberfile = users/members
+localepath = locale/po
+
+[programs]
+# program to use for file compression
+gzip = gzip -S .gz
+
+[mail]
+### How to send mail. The sendmail command is used unless smtphost is set.
+sendmail = /usr/bin/sendmail -t
+# smtphost = 127.0.0.1
+# smtptimeout = 60
+
+[printers]
+# Available printers
+Laser = lpr -Plaser
+Epson = lpr -PEpson
+
+[globaldb]
+# These paramaters *must* be set correctly
+# for LedgerSMB >= 1.2 to work
+DBUserName = ledgersmb
+DBPassword = set me to correct password
+DBport: 5432
+DBName: Set me to your database name