Provided by: ledgersmb_1.3.46-1_all 
NAME
LedgerSMB::Form - Provides general legacy support functions and the central object.
SYNOPSIS
This module provides general legacy support functions and the central object
STATUS
Deprecated
COPYRIGHT
#====================================================================
# LedgerSMB
# Small Medium Business Accounting software
# http://www.ledgersmb.org/
#
# Copyright (C) 2006
# This work contains copyrighted information from a number of sources
# all used with permission.
#
# This file contains source code included with or based on SQL-Ledger
# which is Copyright Dieter Simader and DWS Systems Inc. 2000-2005
# and licensed under the GNU General Public License version 2 or, at
# your option, any later version. For a full list including contact
# information of contributors, maintainers, and copyright holders,
# see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
# Copyright (C) 2000
#
# Author: DWS Systems Inc.
# Web: http://www.sql-ledger.org
#
# Contributors: Thomas Bayen <bayen@gmx.de>
# Antti Kaihola <akaihola@siba.fi>
# Moritz Bunkus (tex)
# Jim Rawlings <jim@your-dba.com> (DB2)
#====================================================================
#
# This file has undergone whitespace cleanup.
#
#====================================================================
#
# main package
#
#====================================================================
METHODS
new Form([$argstr])
Returns a reference to new Form object. The initial set of attributes is obtained from $argstr, a
CGI query string, or $ARGV[0]. All the values are run through unescape to undo any URI encoding.
The version and dbversion attributes are set to hardcoded values; action, nextsub, path, script, and
login are filtered to remove some dangerous values. Both menubar and lynx are set if path matches
lynx.
$form->error may be called to deny access on some attribute values.
open_form()
This sets a $self->{form_id} to be used in later form validation (anti-XSRF measure).
check_form()
This returns true if the form_id was associated with the session, and false if not. Use this if the
form may be re-used (back-button actions are valid).
close_form()
Identical with check_form() above, but also removes the form_id from the session. This should be
used when back-button actions are not valid.
$form->debug([$file]);
Outputs the sorted contents of $form. If a filename is specified, log to it, otherwise output to
STDOUT.
$form->encode_all();
Does nothing and is unused. Contains merely the comment # TODO;
$form->decode_all();
Does nothing and is unused. Contains merely the comment # TODO
$form->escape($str[, $beenthere]);
Returns the URI-encoded $str. $beenthere is a boolean that when true forces a single encoding run.
When false, it escapes the string twice if it detects that it is running on a version of Apache 2.0
earlier than 2.0.44.
Note that recurring transaction support depends on this function escaping ','.
$form->unescape($str);
Returns the unencoded form of the URI-encoded $str.
$form->quote($str);
Replaces all double quotes in $str with '"'. Does nothing if $str is a reference.
$form->unquote($str);
Replaces all '"' in $str with double quotes. Does nothing if $str is a reference.
$form->hide_form([...]);
Outputs hidden HTML form fields to STDOUT. If values are passed into this function, only those $form
values are output. If no values are passed in, all $form values are output as well as deleting
$form->{header}. Values from the $form object are run through $form->quote, whereas keys/names are
not.
Sample output:
<input type="hidden" name="login" value="testuser" />
$form->error($msg);
Output an error message, $msg. If a CGI environment is detected, this outputs an HTTP and HTML
header section if required, and displays the message after running it through $form->format_string.
If it is not a CGI environment and $ENV{error_function} is set, call the specified function with $msg
as the sole argument. Otherwise, this function simply dies with $msg.
This function does not return. Execution is terminated at the end of the appropriate path.
$form->finalize_request();
Stops further processing, allowing post-request cleanup on intermediate levels by throwing an
exception.
This function replaces explicit 'exit()' calls.
$form->info($msg);
Output an informational message, $msg. If a CGI environment is detected, this outputs an HTTP and
HTML header section if required, and displays the message in bold tags without escaping. If it is
not a CGI environment and $ENV{info_function} is set, call the specified function with $msg as the
sole argument. Otherwise, this function simply prints $msg to STDOUT.
$form->numtextrows($str, $cols[, $maxrows]);
Returns the number of rows of $cols columns can be formed by $str. If $maxrows is set and the number
of rows is greater than $maxrows, this returns $maxrows. In the determination of rowcount, newline
characters, "\n", are taken into account while spaces are not.
$form->dberror($msg);
Outputs a message as in $form->error but with $DBI::errstr automatically appended to $msg.
$form->isblank($name, $msg);
Calls $form->error($msg) if the value of $form->{$name} matches /^\s*$/.
$form->header([$init, $headeradd]);
Outputs HTML and HTTP headers and sets $form->{header} to indicate that headers have been output. If
called with $form->{header} set or in a non-CGI environment, does not output anything. $init is
ignored. $headeradd is data to be added to the <head> portion of the output headers.
$form->{stylesheet}, $form->{title}, $form->{titlebar}, and $form->{pre} all affect the output of
this function.
If the stylesheet indicated by $form->{stylesheet} exists, output a link tag to reference it. If
$form->{title} is false, the title text is the value of $form->{titlebar}. If $form->{title} is
true, the title text takes the form of "$form->{title} - $form->{titlebar}". The value of
$form->{pre} is output immediately after the closing of <head>.
$form->open_status_div
Returns a div tag with an id of statusdiv.
If $form->{id} is set and $form->{approved} the class is set to "posted" and if id is set but not
approved, this is set to "saved." If neither applies, we set to "new."
$form->close_status_div
Simply returns a </div> tag. This is included for clarity of code.
$form->redirect([$msg]);
If $form->{callback} is set or $msg is not set, call the redirect function in common.pl. If
main::redirect returns, exit.
Otherwise, output $msg as an informational message with $form->info($msg).
$form->sort_columns(@columns);
Sorts the list @columns. If $form->{sort} is unset, do nothing. If the value of $form->{sort} does
not exist in @columns, returns the list formed by the value of $form->{sort} followed by the values
of @columns. If the value of $form->{sort} is in @columns, return the list formed by @columns with
the value of $form->{sort} moved to the head of the list.
$form->sort_order($columns[, $ordinal]);
Returns a string that contains ordering details for the columns in SQL form. $columns is a reference
to a list of columns, $ordinal is a reference to a hash that maps column names to ordinal positions.
This function depends upon the values of $form->{direction}, $form->{sort}, and $form->{oldsort}.
If $form->{direction} is false, it becomes 'ASC'. If $form->{direction} is true and $form->{sort}
and $form->{oldsort} are equal, reverse the order specified by $form->{direction}. $form->{oldsort}
is set to the same value as $form->{sort}
The actual sorting of $columns happens as in $form->sort_columns(@$columns).
If $ordinal is set, the positions given by it are substituted for the names of columns returned.
$form->convert_date($date, $myconfig)
This takes a date in YYYY-MM-DD format and returns it in the format of the user.
$form->format_amount($myconfig, $amount, $places, $dash);
Returns $amount as formatted in the form specified by $form->{numberformat}. $places is the number
of decimal places to have in the output. $dash indicates how to represent conditions surrounding
values.
+-------+----------+---------+------+
| $dash | -1.00 | 1.00 | 0.00 |
+-------+----------+---------+------+
| - | (1.00) | 1.00 | - |
| DRCR | 1.00 DR | 1.00 CR | DRCR |
| 0 | -1.00 | 1.00 | 0.00 |
| x | -1.00 | 1.00 | x |
| undef | -1.00 | 1.00 | |
+-------+----------+---------+------+
Sample behaviour of the formatted output of various numbers for select $dash values.
$form->parse_amount($myconfig, $amount);
Return a Math::BigFloat containing the value of $amount where $amount is formatted as
$myconfig->{numberformat}. If $amount is '' or undefined, it is treated as zero. DRCR and
parenthesis notation is accepted in addition to negative sign notation.
Calls $form->error if the value is NaN.
$form->round_amount($amount, $places);
Rounds the provided $amount to $places decimal places.
$form->db_parse_numeric('sth' => $sth, ['arrayref' => $arrayref, 'hashref' => $hashref])
Converts numeric values in the result set $arrayref or $hashref to Math::BigFloat using $sth to
determine which fields are numeric.
$form->get_my_emp_num($myconfig);
Function to get the employee number of the user $form->{login}. $myconfig is only used to create
%myconfig. $form->{emp_num} is set to the retrieved value.
This function is currently (2007-08-02) only used by pos.conf.pl.
$form->format_string(@fields);
Escape the values of $form selected by @fields for the format specified by $form->{format}.
$form->datetonum($myconfig, $date[, $picture]);
Converts $date from the format $myconfig->{dateformat} to the format 'yyyymmdd'. If the year
extracted is only two-digits, the year given is assumed to be in the range 2000-2099.
If $date does not contain any non-digits, datetonum does nothing.
$picture is ignored.
$form->add_date($myconfig, $date, $repeat, $unit);
Returns the date $repeat $units from $date in the input format. $date can either be in
$myconfig->{dateformat} or 'yyyymmdd' (four digit year required for this option). The valid values
for $unit are 'days', 'weeks', 'months', and 'years'.
This function is unreliable for $unit values other than 'days' or 'weeks' and can die horribly.
$form->print_button($button, $name);
Outputs a submit button to STDOUT. $button is a hashref that contains data about buttons, $name is
the key for the element in $button to output. Each value in $button is a reference to a hash of two
elements, 'key' and 'value'.
$name is the value of the button that gets sent to the server when clicked, $button->{$name}{key} is
the accesskey, and $button->{$name}{value} is the label for the button.
test_should_get_images
Returns true if images should get be retrieved for embedding in templates
$form->db_init($myconfig);
Connect to the database that $myconfig is set to use and initialise the base parameters. The
connection handle becomes $form->{dbh} and $form->{custom_db_fields} is populated. The connection
initiated has autocommit disabled.
$form->run_custom_queries($tablename, $query_type[, $linenum]);
Runs queries against custom fields for the specified $query_type against $tablename.
Valid values for $query_type are any casing of 'SELECT', 'INSERT', and 'UPDATE'.
$form->dbconnect($myconfig);
Returns an autocommit connection to the database specified in $myconfig.
$form->dbconnect_noauto($myconfig);
Returns a non-autocommit connection to the database specified in $myconfig.
$form->dbquote($var);
If $var is an empty string, return NULL, otherwise return $var as quoted by
$form->{dbh}->quote($var).
$form->update_balance($dbh, $table, $field, $where, $value);
WARNING: This is a dangerous private function. All apps calling it must be careful to avoid SQL
injection issues.
If $value is set, sets the value of $field in $table to the sum of the current stored value and
$value. In order to not annihilate the values in $table, $where must contain a WHERE clause that
limits the UPDATE to a single row.
$form->update_exchangerate($dbh, $curr, $transdate, $buy, $sell);
Updates the exchange rates $buy and $sell for the given $currency on $transdate. If there is not yet
an exchange rate for $currency on $transdate, an entry is inserted. This returns without doing
anything if $curr eq ''.
$dbh is not used, favouring $self->{dbh}.
$form->save_exchangerate($myconfig, $currency, $transdate, $rate, $fld);
Saves the exchange rate $rate for the given $currency on $transdate for the provided purpose in $fld.
$fld can be either 'buy' or 'sell'.
$myconfig is not used. $self->update_exchangerate is used for the majority of the work.
$form->get_exchangerate($dbh, $curr, $transdate, $fld);
Returns the exchange rate in relation to the default currency for $currency on $transdate for the
purpose indicated by $fld. $fld can be either 'buy' or 'sell' to get usable results.
$dbh is not used, favouring $self->{dbh}.
$form->check_exchangerate($myconfig, $currency, $transdate, $fld);
Returns some true value when an entry for $currency on $transdate is true for the purpose indicated
by $fld. $fld can be either 'buy' or 'sell' to get usable results. Returns false if $transdate is
not set.
$myconfig is not used.
$form->add_shipto($dbh, $id);
Inserts a new address into the table shipto if the value of any of the shipto address components in
$form differs to the regular attribute in $form. The inserted value of trans_id is $id, the other
fields correspond with the shipto address components of $form.
$dbh is unused.
$form->get_shipto ($location_id)
Returns the shipto record of the corresponding location, and attaches the info as expected for the
templates
$form->get_employee($dbh);
Returns a list containing the name and id of the employee $form->{login}. Any portion of
$form->{login} including and past '@' are ignored.
$dbh is unused.
$form->get_name($myconfig, $table[, $transdate])
Sets $form->{name_list} to refer to a list of customers or vendors whose names or numbers match the
value found in $form->{$table} and returns the number of matches. $table can be 'vendor',
'customer', or 'employee'; if the optional field $transdate is provided, the result set is further
limited to $table entries which were active on the provided date as determined by the start and end
dates. The elements of $form->{name_list} are references returned rows in hashref form and are
sorted by the name field. The fields of the hash are those of the view $table and the table entity.
$myconfig is unused.
$form->all_vc($myconfig, $vc, $module, $dbh, $transdate, $job);
Populates the list referred to by $form->{all_${vc}} with hashes of either vendor or customer id and
name, ordered by the name. This will be vendor details unless $vc is set to 'customer'. This list
can be limited to only vendors or customers which are usable on a given day by specifying $transdate.
As a further restriction, $form->{all_${vc}} will not be populated if the number of vendors or
customers that would be present in that list exceeds, or is equal to, $myconfig->{vclimit}.
In addition to the possible population of $form->{all_${vc}}, $form->{employee_id} is looked up if
not already set, the list $form->{all_language} is populated using the language table and is sorted
by the description, and $form->all_employees, $form->all_departments, $form->all_projects, and
$form->all_taxaccounts are all run.
$module and $dbh are unused.
$form->get_regular_metadata($myconfig, $vc, $module, $dbh, $transdate, $job)
This is API-compatible with all_vc. It is a handy wrapper function that calls the following
functions: all_employees all_departments all_projects all_taxaccounts
It is preferable to using all_vc where the latter does not work properly due to variable collisions,
etc.
$form->{employee_id} is looked up if not already set, the list $form->{all_language} is populated
using the language table and is sorted by the description, and $form->all_employees,
$form->all_departments, $form->all_projects, and $form->all_taxaccounts are all run.
$module and $dbh are unused.
$form->all_accounts()
Sets $form->{accounts} to all accounts. Returns the list as well. Example: my @account_list =
$form->all_accounts();
$form->all_taxaccounts($myconfig, $dbh2[, $transdate]);
Get the tax rates and numbers for all the taxes in $form->{taxaccounts}. Does nothing if
$form->{taxaccounts} is false. Taxes are listed as a space separated list of account numbers from
the chart. The retrieved values are placed within $form->{${accno}_rate} and
$form->{${accno}_taxnumber}. If $transdate is set, then only process taxes that were valid on
$transdate.
$myconfig and $dbh2 are unused.
$form->all_employees($myconfig, $dbh2, $transdate, $sales);
Sets $form->{all_employee} to be a reference to an array referencing hashes of employee information.
The hashes are of the form {'id' => id, 'name' => name}. If $transdate is set, the query is limited
to employees who are active on that day. If $sales is true, only employees with the sales flag set
are added.
$dbh2 is unused.
$form->all_projects($myconfig, $dbh2[, $transdate, $job]);
Populates the list referred to as $form->{all_project} with hashes detailing all projects. If $job
is true, limit the projects to those whose ids are not also present in parts with a project_id > 0.
If $transdate is set, the projects are limited to those valid on $transdate. If
$form->{language_code} is set, include the translation description in the project list and limit to
translations with a matching language_code. The result list, $form->{all_project}, is sorted by
projectnumber.
$myconfig and $dbh2 are unused. $job appears to be part of attempted job- costing support.
$form->all_departments($myconfig, $dbh2, $vc);
Set $form->{all_department} to be a reference to a list of hashrefs describing departments of the
form {'id' => id, 'description' => description}. If $vc is 'customer', further limit the results to
those whose role is 'P' (Profit Center).
This procedure is internally followed by a call to $form->all_years($myconfig).
$dbh2 is not used.
$form->all_languages($myconfig);
Set $form->{all_language} to be a reference to a list of hashrefs describing languages using the form
{'code' => code, 'description' => description}.
$form->all_years($myconfig[, $dbh2]);
Populates the hash $form->{all_month} with a mapping between a two-digit month number and the English
month name. Populates the list $form->{all_years} with all years which contain transactions.
$dbh2 is unused.
$form->create_links( { module => $module, myconfig => $myconfig, vc => $vc, billing => $billing [, job =>
$job ] });
Populates the hash referred to as $form->{${module}_links} details about accounts that have $module
in their link field. The hash is keyed upon link elements such as 'AP_amount' and 'AR_tax' and they
refer to lists of hashes containing accno and description for the appropriate accounts. If the key
does not contain 'tax', the account number is appended to the space separated list $form->{accounts}.
$module is typically 'AR' or 'AP' and is the base type of the accounts looked up.
If $form->{id} is not set, check $form->{"$form->{vc}_id"}. If neither is set, use
$form->lastname_used to populate the details. If $form->{id} is set, populate the invnumber,
transdate, ${vc}_id, datepaid, duedate, ordnumber, taxincluded, currency, notes, intnotes, ${vc},
department_id, department, oldinvtotal, oldtotalpaid, employee_id, employee, language_code, ponumber,
reverse, printed, emailed, queued, recurring, exchangerate, and acc_trans attributes of $form with
details about the transaction $form->{id}. All of these attributes, save for acc_trans, are scalar;
$form->{acc_trans} refers to a hash keyed by link elements whose values are lists of references to
hashes describing acc_trans table entries corresponding to the transaction $form->{id}. The elements
in the acc_trans entry hashes are accno, description, source, amount, memo, transdate, cleared,
project_id, projectnumber, and exchangerate.
The closedto, separate_duties, revtrans, and currencies $form attributes are filled with values from
the defaults table, while $form->{current_date} is populated with the current date. If $form->{id}
is not set, then $form->{transdate} also takes on the current date.
When $billing is provided and true, the email addresses are selected from the billing contact
classes, when available, falling back to the normal email classes when not.
After all this, it calls $form->all_vc to conclude.
$form->lastname_used($myconfig, $dbh2, $vc, $module);
Fills the name, currency, ${vc}_id, duedate, and possibly invoice_notes attributes of $form with the
last used values for the transaction type specified by both $vc and $form->{type}. $vc can be either
'vendor' or 'customer' and if unspecified will take on the value given in $form->{vc}, defaulting to
'vendor'. If $form->{type} matches /_order/, the transaction type used is order, if it matches
/_quotation/, quotations are looked through. If $form->{type} does not match either of the above,
then ar or ap transactions are used.
$myconfig, $dbh2, and $module are unused.
$form->current_date($myconfig[, $thisdate, $days]);
If $thisdate is false, get the current date from the database.
If $thisdate is true, get the date $days days from $thisdate in the date format specified by
$myconfig->{dateformat} from the database.
$form->like($str);
Returns '%$str%'
$form->redo_rows($flds, $new, $count, $numrows);
$flds refers to a list of field names and $new refers to a list of row detail hashes with the
elements of $flds as keys as well as runningnumber for an order or another multi-row item that
normally expresses elements in the form $form->{${fieldname}_${index}}.
For every $field in @{$flds} populates $form->{${field}_$i} with an appropriate value from a $new
detail hash where $i is an index between 1 and $count. The ordering of the details is done in terms
of the runningnumber element of the row detail hashes in $new.
All $form attributes with names of the form ${field}_$i where the index $i is between $count + 1 and
$numrows is deleted.
$form->get_partsgroup($myconfig[, $p]);
Populates the list referred to as $form->{all_partsgroup}. $p refers to a hash that describes which
partsgroups to retrieve. $p->{searchitems} can be 'part', 'service', 'assembly', 'labor', or
'nolabor' and will limit the groups to those that contain the item type described. $p->{searchitems}
and $p->{all} conflict. If $p->{all} is set and $p->{language_code} is not, all partsgroups are
retrieved. If $p->{language_code} is set, also include the translation description specified by
$p->{language_code} for the partsgroup.
The results in $form->{all_partsgroup} are normally sorted by partsgroup name. If a language_code is
specified, the results are then sorted by the translated description.
$myconfig is unused.
$form->update_status($myconfig);
DELETEs all status rows which have a formname of $form->{formname} and a trans_id of $form->{id}.
INSERTs a new row into status where trans_id is $form->{id}, formname is $form->{formname}, printed
and emailed are true if their respective $form attributes match /$form->{formname}/, and spoolfile is
the file extracted from the string $form->{queued} or NULL if there is no entry for
$form->{formname}.
$myconfig is unused.
$form->save_status();
Clears out any old status entries for $form->{id} and saves new status entries. Queued form names
are extracted from $form->{queued}. Printed and emailed form names are extracted from
$form->{printed} and $form->{emailed}. The queued, printed, and emailed fields are space separated
lists.
$form->get_recurring();
Sets $form->{recurring} to contain info about the recurrence schedule for the action $form->{id}.
$form->{recurring} is of the same form used by $form->save_recurring($dbh2, $myconfig).
reference,startdate,repeat,unit,howmany,payment,print,email,message
text date int text int int text text text
$form->save_recurring($dbh2, $myconfig);
Saves or deletes recurring transaction scheduling. $form->{id} is used to determine the id used in
the various recurring tables. A recurring transaction schedule is deleted by having
$form->{recurring} be false. For adding or updating a schedule, $form->{recurring} is a comma
separated field with partial subfield quoting of the form:
reference,startdate,repeat,unit,howmany,payment,print,email,message
text date int text int int text text text
reference
A URI-encoded reference string for the recurrence set.
startdate
The index date for the recurrence.
repeat
The unitless repetition frequency.
unit
The interval unit used. Can be 'days', 'weeks', 'months', or 'years', capitalisation and
pluralisation ignored.
howmany
The number of recurrences for the transaction.
payment
Flag to indicate if a payment is included in the transaction.
print
A colon separated list of formname:format:printer triplets.
email
A colon separated list of formname:format pairs.
message
A URI-encoded message for the emails to be sent.
Values for the nextdate and enddate columns of the recurring table are calculated using startdate,
repeat, unit, howmany, and the current database date. All other fields of the recurring,
recurringemail, and recurringprint are obtained directly from $form->{recurring}.
WARNING: This function does not check the validity of most subfields of $form->{recurring}.
$dbh2 is not used.
$form->save_intnotes($myconfig, $vc);
Sets the intnotes field of the entry in the table $vc that has the id $form->{id} to the value of
$form->{intnotes}.
Does nothing if $form->{id} is not set.
$form->update_defaults($myconfig, $fld[, $dbh [, $nocommit]);
Updates the defaults entry for the setting $fld following rules specified by the existing value and
returns the processed value that results. If $form is false, such as the case when invoked as
"Form::update_defaults('',...)", $dbh is used as the handle. When $form is set, it uses
$form->{dbh}, initialising the connection if it does not yet exist. The entry $fld must exist prior
to executing this function and this update function does not handle the general case of updating the
defaults table.
Note that nocommit prevents the db from committing in this function.
NOTE: rules handling is currently broken.
Rules followed by this function's processing:
• If digits are found in the field, increment the left-most set. This change, unlike the others is
reflected in the UPDATE.
• Replace <?lsmb date ?> with the date specified in $form->{transdate} formatted as
$myconfig->{dateformat}.
• Replace <?lsmb curr ?> with the value of $form->{currency}
$form->db_prepare_vars(var1, var2, ..., varn)
Undefines $form->{varm}, 1 <= m <= n, iff $form-<{varm is both false and not "0".
$form->split_date($dateformat[, $date]);
Returns ($rv, $yy, $mm, $dd) for the provided $date, or the current date if no date is provided. $rv
is a seperator-free merging of the fields $yy, $mm, and $dd in the ordering supplied by $dateformat.
If the supplied $date does not contain non-digit characters, $rv is $date and the other return values
are undefined.
$yy is two digits.
$form->format_date($date);
Returns $date converted from 'yyyy-mm-dd' format to the format specified by $form->{db_dateformat}.
If the supplied date does not match /^\d{4}\D/, return the supplied date.
This function takes a four digit year and returns the date with a four digit year.
$form->from_to($yyyy, $mm[, $interval]);
Returns the date $yyyy-$mm-01 and the the last day of the month interval - 1 months from then in the
form ($form->format_date(fromdate), $form->format_date(later)). If $interval is false but defined,
the later date is the current date.
This function dies horribly when $mm + $interval > 24
$form->audittrail($dbh, $myconfig, $audittrail);
Audit trail has been replaced by triggers which work on a very similar manner.
perl v5.20.2 2014-12-11 LedgerSMB::Form(3pm)