summaryrefslogtreecommitdiff
path: root/gdm/Sessions/Kiosk
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-05-25 16:44:56 +0000
committerJonas Smedegaard <dr@jones.dk>2008-05-25 16:44:56 +0000
commit4c0807e485585770792cff5764e6dc47012453c9 (patch)
tree69edae084cdff4ac537552c5a5403af1dd0b5b08 /gdm/Sessions/Kiosk
parent7f7086e0679639396dd1660d57602a03e51dc680 (diff)
Add dkimsign service (and commented out use of dkim_filter).
Diffstat (limited to 'gdm/Sessions/Kiosk')
0 files changed, 0 insertions, 0 deletions
d have received a copy of the GNU General Public License
  • # along with this program; if not, write to the Free Software
  • # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  • #======================================================================
  • #
  • # Job Costing module
  • #
  • #======================================================================
  • use LedgerSMB::JC;
  • 1;
  • # end of main
  • sub add {
  • if ($form->{type} eq 'timecard') {
  • $form->{title} = $locale->text('Add Time Card');
  • }
  • if ($form->{type} eq 'storescard') {
  • $form->{title} = $locale->text('Add Stores Card');
  • }
  • $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&project=$form->{project}" unless $form->{callback};
  • &{ "prepare_$form->{type}" };
  • $form->{orphaned} = 1;
  • &display_form;
  • }
  • sub edit {
  • if ($form->{type} eq 'timecard') {
  • $form->{title} = $locale->text('Edit Time Card');
  • }
  • if ($form->{type} eq 'storescard') {
  • $form->{title} = $locale->text('Add Stores Card');
  • }
  • &{ "prepare_$form->{type}" };
  • &display_form;
  • }
  • sub jcitems_links {
  • if (@{ $form->{all_project} }) {
  • $form->{selectprojectnumber} = "<option>\n";
  • foreach $ref (@{ $form->{all_project} }) {
  • $form->{selectprojectnumber} .= qq|<option value="$ref->{projectnumber}--$ref->{id}">$ref->{description} ($ref->{description})</option>\n|;
  • if ($form->{projectnumber} eq "$ref->{projectnumber}--$ref->{id}") {
  • $form->{projectdescription} = $ref->{description};
  • }
  • }
  • } else {
  • if ($form->{project} eq 'job') {
  • $form->error($locale->text('No open Jobs!'));
  • } else {
  • $form->error($locale->text('No open Projects!'));
  • }
  • }
  • if (@{ $form->{all_parts} }) {
  • $form->{selectpartnumber} = "<option>\n";
  • foreach $ref (@{ $form->{all_parts} }) {
  • $form->{selectpartnumber} .= qq|<option value="$ref->{partnumber}--$ref->{id}">$ref->{partnumber}\n|;
  • if ($form->{partnumber} eq "$ref->{partnumber}--$ref->{id}") {
  • if ($form->{partnumber} ne $form->{oldpartnumber}) {
  • for (qw(description unit sellprice pricematrix)) { $form->{$_} = $ref->{$_} }
  • }
  • }
  • }
  • } else {
  • if ($form->{type} eq 'timecard') {
  • if ($form->{project} eq 'job') {
  • $form->error($locale->text('No Labor codes on file!'));
  • } else {
  • $form->error($locale->text('No Services on file!'));
  • }
  • } else {