1 files changed, 1929 insertions, 1927 deletions
diff --git a/bin/jc.pl b/bin/jc.pl
index 97ccf3db..48271981 100755
--- a/bin/jc.pl
+++ b/bin/jc.pl
@@ -1,1927 +1,1929 @@
-#=====================================================================
-# LedgerSMB Small Medium Business Accounting
-# 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) 2005
-#
-#  Author: DWS Systems Inc.
-#     Web: http://www.sql-ledger.org
-#
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should 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->{projectnumber}\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 {
-      $form->error($locale->text('No Parts on file!'));
-    }
-  }
-  
-  # employees
-  if (@{ $form->{all_employee} }) {
-    $form->{selectemployee} = "<option>\n";
-    for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
-  } else {
-    $form->error($locale->text('No Employees on file!'));
-  }
-
-}
-
-
-sub search {
-  
-  # accounting years
-  $form->all_years(\%myconfig);
-
-  if (@{ $form->{all_years} }) {
-    $form->{selectaccountingyear} = "<option>\n";
-    for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| }
-
-    $form->{selectaccountingmonth} = "<option>\n";
-    for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| }
-
-    $selectfrom = qq|
-        <tr>
-	  <th align=right>|.$locale->text('Period').qq|</th>
-	  <td colspan=3>
-	  <select name=month>$form->{selectaccountingmonth}</select>
-	  <select name=year>$form->{selectaccountingyear}</select>
-	  <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|
-	  <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|
-	  <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|
-	  <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|
-	  </td>
-	</tr>
-|;
-  }
-
-  $fromto = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
-	  <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}">
-	  |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td>
-	</tr>
-	$selectfrom
-|;
-
- 
-  if ($form->{type} eq 'timecard') {
-    $form->{title} = $locale->text('Time Cards');
-    JC->jcitems_links(\%myconfig, \%$form);
-  }
-  if ($form->{type} eq 'storescard') {
-    $form->{title} = $locale->text('Stores Cards');
-    JC->jcitems_links(\%myconfig, \%$form);
-  }
-
-  if (@{ $form->{all_project} }) {
-    $form->{selectprojectnumber} = "<option>\n";
-    for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }
-  }
-  
-  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->{project} eq 'job') {
-    $joblabel = $locale->text('Job Number');
-    $laborlabel = $locale->text('Labor Code');
-  } elsif ($form->{project} eq 'project') {
-    $joblabel = $locale->text('Project Number');
-    $laborlabel = $locale->text('Service Code');
-  } else {
-    $joblabel = $locale->text('Project/Job Number');
-    $laborlabel = $locale->text('Service/Labor Code');
-  }
-  
-  if ($form->{selectprojectnumber}) {
-    $jobnumber = qq|
-      <tr>
-	<th align=right nowrap>$joblabel</th>
-	<td colspan=3><select name=projectnumber>$form->{selectprojectnumber}</select></td>
-      </tr>
-|;
-  }
-
- 
-  if ($form->{type} eq 'timecard') {
-    # employees
-    if (@{ $form->{all_employee} }) {
-      $form->{selectemployee} = "<option>\n";
-      for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
-    } else {
-      $form->error($locale->text('No Employees on file!'));
-    }
-    
-    if ($form->{selectpartnumber}) {
-    $partnumber = qq|
-	<tr>
-	  <th align=right nowrap>$laborlabel</th>
-	  <td colspan=3><select name=partnumber>$form->{selectpartnumber}</select></td>
-        </tr>
-|;
-    }
-
-    $employee = qq|
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Employee').qq|</th>
-	  <td colspan=3><select name=employee>$form->{selectemployee}</select></td>
-        </tr>
-|;
-
-    $l_time = qq|<td nowrap><input name=l_time class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Time').qq|</td>|;
-   
-  }
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-        $jobnumber
-	$partnumber
-	$employee
-	$fromto
-
-	<tr>
-	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
-	  <td>
-	    <table>
-	      <tr>
-       		<td nowrap><input name=open class=checkbox type=checkbox value=Y checked> |.$locale->text('Open').qq|</td>
-		<td nowrap><input name=closed class=checkbox type=checkbox value=Y> |.$locale->text('Closed').qq|</td>
-	      </tr>
-	      <tr>
-		$l_time
-       		<td nowrap><input name=l_allocated class=checkbox type=checkbox value=Y> |.$locale->text('Allocated').qq|</td>
-	      </tr>
-	      <tr>
-	        <td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>
-	      </tr>
-	    </table>
-	  </td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value="list_$form->{type}">
-<input type=hidden name=sort value="transdate">
-|;
-
-  $form->hide_form(qw(db path login sessionid project type));
-
-  print qq|
-<br>
-<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
-</form>
-|;
-
-  if ($form->{lynx}) {
-    require "bin/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-
-</body>
-</html>
-|;
-
-}
-
-
-sub display_form {
-
-  &{ "$form->{type}_header" };
-  &{ "$form->{type}_footer" };
-
-}
-
-
-sub form_header {
-
-  &{ "$form->{type}_header" };
-
-}
-
-
-sub form_footer {
-
-  &{ "form->{type}_footer" };
-
-}
-
-
-sub prepare_timecard {
-
-  $form->{formname} = "timecard";
-  $form->{format} = "postscript" if $myconfig{printer};
-  $form->{media} = $myconfig{printer};
-  
-  JC->get_jcitems(\%myconfig, \%$form);
-
-  $form->{selectformname} = qq|<option value="timecard">|.$locale->text('Time Card');
-  
-  foreach $item (qw(in out)) {
-    ($form->{"${item}hour"}, $form->{"${item}min"}, $form->{"${item}sec"}) = split /:/, $form->{"checked$item"};
-    for (qw(hour min sec)) {
-      if (($form->{"$item$_"} *= 1) > 0) {
-        $form->{"$item$_"} = substr(qq|0$form->{"$item$_"}|,-2);
-      } else {
-	$form->{"$item$_"} ||= "";
-      }
-    }
-  }
-  
-  $form->{checkedin} = $form->{inhour} * 3600 + $form->{inmin} * 60 + $form->{insec};
-  $form->{checkedout} = $form->{outhour} * 3600 + $form->{outmin} * 60 + $form->{outsec};
-
-  if ($form->{checkedin} > $form->{checkedout}) {
-    $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout});
-    $form->{checkedin} = 0;
-  }
-
-  $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600;
-  if ($form->{clocked}) {
-    $form->{oldnoncharge} = $form->{clocked} - $form->{qty};
-  }
-  $form->{oldqty} = $form->{qty};
-  
-  $form->{noncharge} = $form->format_amount(\%myconfig, $form->{clocked} - $form->{qty}, 4) if $form->{checkedin} != $form->{checkedout};
-  $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4);
-  
-  $form->{amount} = $form->{sellprice} * $form->{qty};
-  for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
-  $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4);
-  $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated});
-
-  $form->{employee} .= "--$form->{employee_id}";
-  $form->{projectnumber} .= "--$form->{project_id}";
-  $form->{partnumber} .= "--$form->{parts_id}";
-  $form->{oldpartnumber} = $form->{partnumber};
-
-  if (@{ $form->{all_language} }) {
-    $form->{selectlanguage} = "<option>\n";
-    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }
-  }
-
-  &jcitems_links;
-
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));
-  
-  $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/;
-
-  if ($form->{income_accno_id}) {
-    $form->{locked} = 1 if $form->{production} == $form->{completed};
-  }
-
-}
-
-
-sub timecard_header {
-
-  # set option selected
-  for (qw(employee projectnumber partnumber)) {
-    $form->{"select$_"} =~ s/ selected//;
-    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
-  }
-  
-  $rows = $form->numtextrows($form->{description}, 50, 8);
-
-  for (qw(transdate checkedin checkedout partnumber)) { $form->{"old$_"} = $form->{$_} }
-  for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) }
-
-  if ($rows > 1) {
-    $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=48 value="$form->{description}">|;
-  }
-
-  if ($form->{project} eq 'job') {
-
-    $projectlabel = $locale->text('Job Number');
-    $laborlabel = $locale->text('Labor Code');
-    $rate = qq|<input type=hidden name=sellprice value=$form->{sellprice}>|;
-
-  } else {
-
-    if ($form->{project} eq 'project') {
-      $projectlabel = $locale->text('Project Number');
-      $laborlabel = $locale->text('Service Code');
-    } else {
-      $projectlabel = $locale->text('Project/Job Number');
-      $laborlabel = $locale->text('Service/Labor Code');
-    }
-    
-    if ($myconfig{role} ne 'user') {
-      $rate = qq|
-		<tr>
-		  <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th>
-		  <td><input name=sellprice value=$form->{sellprice}></td>
-		  <th align=right nowrap>|.$locale->text('Total').qq|</th>
-		  <td>$form->{amount}</td>
-		</tr>
-		<tr>
-		  <th align=right nowrap>|.$locale->text('Allocated').qq|</th>
-		  <td><input name=allocated value=$form->{allocated}></td>
-		</tr>
-|;
-    } else {
-      $rate = qq|
-		<tr>
-		  <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th>
-		  <td>$form->{sellprice}</td>
-		  <th align=right nowrap>|.$locale->text('Total').qq|</th>
-		  <td>$form->{amount}</td>
-		</tr>
-		<tr>
-		  <th align=right nowrap>|.$locale->text('Allocated').qq|</th>
-		  <td>$form->{allocated}</td>
-		</tr>
-		<input type=hidden name=sellprice value=$form->{sellprice}>
-		<input type=hidden name=allocated value=$form->{allocated}>
-|;
-    }
-  }
-
-  if ($myconfig{role} eq 'user') {
-    $charge = qq|<input type=hidden name=qty value=$form->{qty}>$form->{qty}|;
-  } else {
-    $charge = qq|<input name=qty value=$form->{qty}>|;
-  }
-  
-  if (($rows = $form->numtextrows($form->{notes}, 40, 6)) < 2) {
-    $rows = 2;
-  }
-
-  $notes = qq|<tr>
-		<th align=right>|.$locale->text('Notes').qq|</th>
-                  <td colspan=3><textarea name="notes" rows=$rows cols=46 wrap=soft>$form->{notes}</textarea>
-		</td>
-	      </tr>
-|;
-
-##################
-  ($null, $form->{oldproject_id}) = split /--/, $form->{projectnumber};
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}">
-|;
-
-  $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldcheckedin oldcheckedout oldpartnumber project oldqty oldnoncharge pricematrix oldproject_id));
-
-  print qq|
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Employee').qq|</th>
-		<td><select name=employee>$form->{selectemployee}</select></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>$projectlabel</th>
-		<td><select name=projectnumber>$form->{selectprojectnumber}</select>
-		</td>
-		<td></td>
-		<td>$form->{projectdescription}</td>
-		<input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Date worked').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>$laborlabel</th>
-		<td><select name=partnumber>$form->{selectpartnumber}</select></td>
-	      </tr>
-	      <tr valign=top>
-		<th align=right nowrap>|.$locale->text('Description').qq|</th>
-		<td colspan=3>$description</td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Time In').qq|</th>
-		<td>
-		  <table>
-		    <tr>
-		      <td><input name=inhour title="hh" size=3 maxlength=2 value=$form->{inhour}></td>
-		      <td><input name=inmin title="mm" size=3 maxlength=2 value=$form->{inmin}></td>
-		      <td><input name=insec title="ss" size=3 maxlength=2 value=$form->{insec}></td>
-		    </tr>
-		  </table>
-		</td>
-		<th align=right nowrap>|.$locale->text('Time Out').qq|</th>
-		<td>
-		  <table>
-		    <tr>
-		      <td><input name=outhour title="hh" size=3 maxlength=2 value=$form->{outhour}></td>
-		      <td><input name=outmin title="mm" size=3 maxlength=2 value=$form->{outmin}></td>
-		      <td><input name=outsec title="ss" size=3 maxlength=2 value=$form->{outsec}></td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Clocked').qq|</th>
-		<td>$form->{clocked}</td>
-              </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Non-chargeable').qq|</th>
-		<td><input name=noncharge value=$form->{noncharge}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Chargeable').qq|</th>
-		<td>$charge</td>
-	      </tr>
-	      $rate
-	      $notes
-	    </table>
-	  </td>
-	</tr>
-
-|;
-
-}
-
-
-sub timecard_footer {
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options;
-
-  print qq|
-    </td>
-  </tr>
-</table>
-<br>
-|;
-
-  $transdate = $form->datetonum(\%myconfig, $form->{transdate});
-  $closedto = $form->datetonum(\%myconfig, $form->{closedto});
-
-  if (! $form->{readonly}) {
-
-# type=submit $locale->text('Update')
-# type=submit $locale->text('Print')
-# type=submit $locale->text('Save')
-# type=submit $locale->text('Print and Save')
-# type=submit $locale->text('Save as new')
-# type=submit $locale->text('Print and Save as new')
-# type=submit $locale->text('Delete')
-
-  %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
-             'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
-	     'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },
-	     'print_and_save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') },
-	     'save_as_new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') },
-	     'print_and_save_as_new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') },
-	     
-	     'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },
-	    );
-
-    %a = ();
-    
-    if ($form->{id}) {
-    
-      if (!$form->{locked}) {
-	for ('update', 'print', 'save', 'save_as_new') { $a{$_} = 1 }
-	
-	if (${LedgerSMB::Sysconfig::latex}) {
-	  for ('print_and_save', 'print_and_save_as_new') { $a{$_} = 1 }
-	}
-
-	if ($form->{orphaned}) {
-	  $a{'delete'} = 1;
-	}
-	
-      }
-
-    } else {
-
-      if ($transdate > $closedto) {
-	
-	for ('update', 'print', 'save') { $a{$_} = 1 }
-
-	if (${LedgerSMB::Sysconfig::latex}) {
-	  $a{'print_and_save'} = 1;
-	}
-
-      }
-    }
-  }
-
-  for (keys %button) { delete $button{$_} if ! $a{$_} }
-  for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
-  
-  if ($form->{lynx}) {
-    require "bin/menu.pl";
-    &menubar;
-  }
-
-  $form->hide_form(qw(callback path login sessionid));
-  
-  print qq|
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub prepare_storescard {
-
-  $form->{formname} = "storescard";
-  $form->{format} = "postscript" if $myconfig{printer};
-  $form->{media} = $myconfig{printer};
-
-  JC->get_jcitems(\%myconfig, \%$form);
-  
-  $form->{selectformname} = qq|<option value="storescard">|.$locale->text('Stores Card');
-  
-  $form->{amount} = $form->{sellprice} * $form->{qty};
-  for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
-  $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4);
- 
-  $form->{employee} .= "--$form->{employee_id}";
-  $form->{projectnumber} .= "--$form->{project_id}";
-  $form->{partnumber} .= "--$form->{parts_id}";
-  $form->{oldpartnumber} = $form->{partnumber};
-
-  if (@{ $form->{all_language} }) {
-    $form->{selectlanguage} = "<option>\n";
-    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }
-  }
-
-  &jcitems_links;
-
-  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));
-  
-  $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/;
-
-  if ($form->{income_accno_id}) {
-    $form->{locked} = 1 if $form->{production} == $form->{completed};
-  }
-
-}
-
-
-sub storescard_header {
-
-  # set option selected
-  for (qw(employee projectnumber partnumber)) {
-    $form->{"select$_"} =~ s/ selected//;
-    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
-  }
-  
-  $rows = $form->numtextrows($form->{description}, 50, 8);
-
-  for (qw(transdate partnumber)) { $form->{"old$_"} = $form->{$_} }
-  for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) }
-
-  if ($rows > 1) {
-    $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|;
-  } else {
-    $description = qq|<input name=description size=48 value="$form->{description}">|;
-  }
-
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action="$form->{script}">
-|;
-
-  $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldpartnumber project));
-
-  print qq|
-<table width=100%>
-  <tr class=listtop>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table>
-        <tr>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Job Number').qq|</th>
-		<td><select name=projectnumber>$form->{selectprojectnumber}</select>
-		</td>
-		<td>$form->{projectdescription}</td>
-		<input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|">
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Date').qq|</th>
-		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Part Number').qq|</th>
-		<td><select name=partnumber>$form->{selectpartnumber}</td>
-	      </tr>
-	      <tr valign=top>
-		<th align=right nowrap>|.$locale->text('Description').qq|</th>
-		<td>$description</td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Qty').qq|</th>
-		<td><input name=qty size=6 value=$form->{qty}>
-		<b>|.$locale->text('Cost').qq|</b>
-		<input name=sellprice size=10 value=$form->{sellprice}></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>|.$locale->text('Total').qq|</th>
-		<td>$form->{amount}</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-
-|;
-
-}
-
-
-sub storescard_footer {
-
-  print qq|
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options;
-
-  print qq|
-    </td>
-  </tr>
-</table>
-<br>
-|;
-
-  $transdate = $form->datetonum(\%myconfig, $form->{transdate});
-  $closedto = $form->datetonum(\%myconfig, $form->{closedto});
-
-# type=submit $locale->text('Update')
-# type=submit $locale->text('Print')
-# type=submit $locale->text('Save') 
-# type=submit $locale->text('Print and Save') 
-# type=submit $locale->text('Save as new')
-# type=submit $locale->text('Print and Save as new') 
-# type=submit $locale->text('Delete')
-
-
-  if (! $form->{readonly}) {
-
-    %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
-               'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
-	       'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },
-	       'print_and_save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') },
-	       'save_as_new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') },
-	       'print_and_save_as_new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') },
-	       'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },
-	      );
-    
-    %a = ();
-    
-    if ($form->{id}) {
-      
-      if (!$form->{locked}) {
-	for ('update', 'print', 'save', 'save_as_new') { $a{$_} = 1 }
-	if (${LedgerSMB::Sysconfig::latex}) {
-	  for ('print_and_save', 'print_and_save_as_new') { $a{$_} = 1 }
-	}
-	if ($form->{orphaned}) {
-	  $a{'delete'} = 1;
-	}
-      }
-      
-    } else {
-
-      if ($transdate > $closedto) {
-	for ('update', 'print', 'save') { $a{$_} = 1 }
-
-	if (${LedgerSMB::Sysconfig::latex}) {
-	  $a{'print_and_save'} = 1;
-	}
-      }
-    }
-
-    for (keys %button) { delete $button{$_} if ! $a{$_} }
-    for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
-    
-  }
-
-  if ($form->{lynx}) {
-    require "bin/menu.pl";
-    &menubar;
-  }
-
-  $form->hide_form(qw(callback path login sessionid));
-  
-  print qq|
-
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-
-sub update {
-
-  ($null, $form->{project_id}) = split /--/, $form->{projectnumber};
-
-  # check labor/part
-  JC->jcitems_links(\%myconfig, \%$form);
-
-  &jcitems_links;
-  
-  $checkmatrix = 1 if $form->{oldproject_id} != $form->{project_id};
-  
-  if ($form->{type} eq 'timecard') {
-
-    # time clocked
-    %hour = ( in => 0, out => 0 );
-    for $t (qw(in out)) {
-      if ($form->{"${t}sec"} > 60) {
-	$form->{"${t}sec"} -= 60;
-	$form->{"${t}min"}++;
-      }
-      if ($form->{"${t}min"} > 60) {
-	$form->{"${t}min"} -= 60;
-	$form->{"${t}hour"}++;
-      }
-      $hour{$t} = $form->{"${t}hour"};
-    }
-
-    $form->{checkedin} = $hour{in} * 3600 + $form->{inmin} * 60 + $form->{insec};
-    $form->{checkedout} = $hour{out} * 3600 + $form->{outmin} * 60 + $form->{outsec};
-
-    if ($form->{checkedin} > $form->{checkedout}) {
-      $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout});
-      $form->{checkedin} = 0;
-    }
-
-    $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600;
-
-    for (qw(sellprice qty noncharge allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
-
-    $checkmatrix = 1 if $form->{oldqty} != $form->{qty};
-    
-    if (($form->{oldcheckedin} != $form->{checkedin}) || ($form->{oldcheckedout} != $form->{checkedout})) {
-      $checkmatrix = 1;
-      $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge};
-      $form->{oldnoncharge} = $form->{noncharge};
-    }
-
-    if (($form->{qty} != $form->{oldqty}) && $form->{clocked}) {
-      $form->{oldnoncharge} = $form->{noncharge} = $form->{clocked} - $form->{qty};
-      $checkmatrix = 1;
-    }
-
-    if (($form->{oldnoncharge} != $form->{noncharge}) && $form->{clocked}) {
-      $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge};
-      $checkmatrix = 1;
-    }
-    
-    if ($checkmatrix) {
-      @a = split / /, $form->{pricematrix};
-      if (scalar @a > 2) {
-	for (@a) {
-	  ($q, $p) = split /:/, $_;
-	  if (($p * 1) && ($form->{qty} >= ($q * 1))) {
-	    $form->{sellprice} = $p;
-	  }
-	}
-      }
-    }
-    
-    $form->{amount} = $form->{sellprice} * $form->{qty};
-	
-    $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4);
-    for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
-    for (qw(qty noncharge)) {
-      $form->{"old$_"} = $form->{$_};
-      $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 4);
-    }
-    
-  } else {
-    
-    for (qw(sellprice qty allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
-
-    if ($form->{oldqty} != $form->{qty}) {
-      @a = split / /, $form->{pricematrix};
-      if (scalar @a > 2) {
-	for (@a) {
-	  ($q, $p) = split /:/, $_;
-	  if (($p * 1) && ($form->{qty} >= ($q * 1))) {
-	    $form->{sellprice} = $p;
-	  }
-	}
-      }
-    }
-    
-    $form->{amount} = $form->{sellprice} * $form->{qty};
-    for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
-	
-  }
-
-  $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated});
-    
-  &display_form;
-
-}
-
-
-sub save {
-
-  $form->isblank("transdate", $locale->text('Date missing!'));
-
-  if ($form->{project} eq 'project') {
-    $form->isblank("projectnumber", $locale->text('Project Number missing!'));
-    $form->isblank("partnumber", $locale->text('Service Code missing!'));
-  } else {
-    $form->isblank("projectnumber", $locale->text('Job Number missing!'));
-    $form->isblank("partnumber", $locale->text('Labor Code missing!'));
-  }
-
-  $closedto = $form->datetonum(\%myconfig, $form->{closedto});
-  $transdate = $form->datetonum(\%myconfig, $form->{transdate});
-  
-  $msg = ($form->{type} eq 'timecard') ? $locale->text('Cannot save time card for a closed period!') : $locale->text('Cannot save stores card for a closed period!');
-  $form->error($msg) if ($transdate <= $closedto);
-
-  if (! $form->{resave}) {
-    if ($form->{id}) {
-      &resave;
-      exit;
-    }
-  }
-  
-  
-  $rc = JC->save(\%myconfig, \%$form);
-  
-  if ($form->{type} eq 'timecard') {
-    $form->error($locale->text('Cannot change time card for a completed job!')) if ($rc == -1);
-    $form->error($locale->text('Cannot add time card for a completed job!')) if ($rc == -2);
-    
-    if ($rc) {
-      $form->redirect($locale->text('Time Card saved!'));
-    } else {
-      $form->error($locale->text('Cannot save time card!'));
-    }
-    
-  } else {
-    $form->error($locale->text('Cannot change stores card for a completed job!')) if ($rc == -1);
-    $form->error($locale->text('Cannot add stores card for a completed job!')) if ($rc == -2);
-
-    if ($rc) {
-      $form->redirect($locale->text('Stores Card saved!'));
-    } else {
-      $form->error($locale->text('Cannot save stores card!'));
-    }
-  }
-  
-}
-
-
-sub save_as_new {
-
-  delete $form->{id};
-  &save;
-
-}
-
-
-sub print_and_save_as_new {
-
-  delete $form->{id};
-  &print_and_save;
-
-}
-
-
-sub resave {
-
-  if ($form->{print_and_save}) {
-    $form->{nextsub} = "print_and_save";
-    $msg = $locale->text('You are printing and saving an existing transaction!');
-  } else {
-    $form->{nextsub} = "save";
-    $msg = $locale->text('You are saving an existing transaction!');
-  }
-  
-  $form->{resave} = 1;
-  
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-|;
-
-  delete $form->{action};
-
-  $form->hide_form;
-
-  print qq|
-<h2 class=confirm>|.$locale->text('Warning!').qq|</h2>
-
-<h4>$msg</h4>
-
-<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button>
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-
-sub print_and_save {
-
-  $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-  $form->error($locale->text('Select a Printer!')) if $form->{media} eq 'screen';
-
-  if (! $form->{resave}) {
-    if ($form->{id}) {
-      $form->{print_and_save} = 1;
-      &resave;
-      exit;
-    }
-  }
-
-  $old_form = new Form;
-  $form->{display_form} = "save";
-  for (keys %$form) { $old_form->{$_} = $form->{$_} }
-
-  &{ "print_$form->{formname}" }($old_form);
-
-}
-
-
-sub delete_timecard {
-
-  $form->header;
-
-  $employee = $form->{employee};
-  $employee =~ s/--.*//g;
-  $projectnumber = $form->{projectnumber};
-  $projectnumber =~ s/--.*//g;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-|;
-
-  delete $form->{action};
-
-  $form->hide_form;
-
-  print qq|
-<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
-
-<h4>|.$locale->text('Are you sure you want to delete time card for').qq|
-<p>$form->{transdate}
-<br>$employee
-<br>$projectnumber
-</h4>
-
-<p>
-<button name="action" class="submit" type="submit" value="yes">|.$locale->text('Yes').qq|</button>
-</form>
-|;
-
-}
-
-
-sub delete { &{ "delete_$form->{type}" } };
-sub yes { &{ "yes_delete_$form->{type}" } };
-
-
-sub yes_delete_timecard {
-  
-  if (JC->delete_timecard(\%myconfig, \%$form)) {
-    $form->redirect($locale->text('Time Card deleted!'));
-  } else {
-    $form->error($locale->text('Cannot delete time card!'));
-  }
-
-}
-
-
-sub list_timecard {
-
-  $form->{type} = "timecard";
-
-  JC->jcitems(\%myconfig, \%$form);
-  
-  $form->{title} = $locale->text('Time Cards');
-
-  @a = qw(type direction oldsort path login sessionid project l_subtotal open closed l_time l_allocated);
-  $href = "$form->{script}?action=list_timecard";
-  for (@a) { $href .= "&$_=$form->{$_}" }
-
-  $href .= "&title=".$form->escape($form->{title});
-
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=list_timecard";
-  for (@a) { $callback .= "&$_=$form->{$_}" }
-  
-  $callback .= "&title=".$form->escape($form->{title},1);
-
-  @column_index = (qw(transdate projectnumber projectdescription id partnumber description));
-  
-  push @column_index, (qw(allocated)) if $form->{l_allocated};
-  push @column_index, (qw(1 2 3 4 5 6 7));
-  
-  @column_index = $form->sort_columns(@column_index);
-  
-  if ($form->{project} eq 'job') {
-    $joblabel = $locale->text('Job Number');
-    $laborlabel = $locale->text('Labor Code');
-    $desclabel = $locale->text('Job Name');
-  } elsif ($form->{project} eq 'project') {
-    $joblabel = $locale->text('Project Number');
-    $laborlabel = $locale->text('Service Code');
-    $desclabel = $locale->text('Project Name');
-  } else {
-    $joblabel = $locale->text('Project/Job Number');
-    $laborlabel = $locale->text('Service/Labor Code');
-    $desclabel = $locale->text('Project/Job Name');
-  }
-  
-  if ($form->{projectnumber}) {
-    $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1);
-    $href .= "&projectnumber=".$form->escape($form->{projectnumber});
-    ($var) = split /--/, $form->{projectnumber};
-    $option .= "\n<br>" if ($option);
-    $option .= "$joblabel : $var";
-    @column_index = grep !/projectnumber/, @column_index;
-  }
-  if ($form->{partnumber}) {
-    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);
-    $href .= "&partnumber=".$form->escape($form->{partnumber});
-    ($var) = split /--/, $form->{partnumber};
-    $option .= "\n<br>" if ($option);
-    $option .= "$laborlabel : $var";
-    @column_index = grep !/partnumber/, @column_index;
-  }
-  if ($form->{employee}) {
-    $callback .= "&employee=".$form->escape($form->{employee},1);
-    $href .= "&employee=".$form->escape($form->{employee});
-  }
-  
-  if ($form->{startdatefrom}) {
-    $callback .= "&startdatefrom=$form->{startdatefrom}";
-    $href .= "&startdatefrom=$form->{startdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{startdatefrom}, 1);
-  }
-  if ($form->{startdateto}) {
-    $callback .= "&startdateto=$form->{startdateto}";
-    $href .= "&startdateto=$form->{startdateto}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{startdateto}, 1);
-  }
-  if ($form->{open}) {
-    $callback .= "&open=$form->{open}";
-    $href .= "&open=$form->{open}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Open');
-  }
-  if ($form->{closed}) {
-    $callback .= "&closed=$form->{closed}";
-    $href .= "&closed=$form->{closed}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('Closed');
-  }
-
-  %weekday = ( 1 => $locale->text('Sunday'),
-               2 => $locale->text('Monday'),
-               3 => $locale->text('Tuesday'),
-               4 => $locale->text('Wednesday'),
-               5 => $locale->text('Thursday'),
-               6 => $locale->text('Friday'),
-               7 => $locale->text('Saturday'),
-	     );
-  
-  for (keys %weekday) { $column_header{$_} = "<th class=listheading width=25>".substr($weekday{$_},0,3)."</th>" }
-  
-  $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>";
-  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
-  $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</th>";
-  $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>$joblabel</a></th>";
-  $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>$laborlabel</a></th>";
-  $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>$desclabel</a></th>";
-  $column_header{allocated} = "<th class=listheading></th>";
-
-  
-  $form->header;
-
-  if (@{ $form->{transactions} }) {
-    $sameitem = $form->{transactions}->[0]->{$form->{sort}};
-    $sameemployeenumber = $form->{transactions}->[0]->{employeenumber};
-    $employee = $form->{transactions}->[0]->{employee};
-    $sameweek = $form->{transactions}->[0]->{workweek};
-  }
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>
-	  <th colspan=2 align=left>
-	    $employee
-	  </th>
-	  <th align=left>
-	    $sameemployeenumber
-	  </th>
-        <tr class=listheading>
-|;
-
-  for (@column_index) { print "\n$column_header{$_}" }
-  
-  print qq|
-        </tr>
-|;
-
-  # add sort and escape callback, this one we use for the add sub
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-
-  # flip direction
-  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
-  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
-
-  %total = ();
-  
-  foreach $ref (@{ $form->{transactions} }) {
-
-    if ($sameemployeenumber ne $ref->{employeenumber}) {
-      $sameemployeenumber = $ref->{employeenumber};
-      $sameweek = $ref->{workweek};
-
-      if ($form->{l_subtotal}) {
-	print qq|
-        <tr class=listsubtotal>
-|;
-
-	for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-
-	$weektotal = 0;
-	for (keys %weekday) {
-	  $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";
-	  $weektotal += $subtotal{$_};
-	  $subtotal{$_} = 0;
-	}
-    
-	$column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";
-      
-	for (@column_index) { print "\n$column_data{$_}" }
-      }
-
-      # print total
-      print qq|
-        <tr class=listtotal>
-|;
-
-      for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-
-      $total = 0;
-      for (keys %weekday) {
-	$column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", "&nbsp;")."</th>";
-	$total += $total{$_};
-	$total{$_} = 0;
-      }
-  
-      $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", "&nbsp;")."</th>";
-      
-      for (@column_index) { print "\n$column_data{$_}" }
-
-
-      print qq|
-	<tr height=30 valign=bottom>
-	  <th colspan=2 align=left>
-	    $ref->{employee}
-	  </th>
-	  <th align=left>
-	    $ref->{employeenumber}
-	  </th>
-        <tr class=listheading>
-|;
-
-      for (@column_index) { print "\n$column_header{$_}" }
-  
-      print qq|
-        </tr>
-|;
-
-    }
-
-    if ($form->{l_subtotal}) {
-      if ($ref->{workweek} != $sameweek) {
-	for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-	$weektotal = 0;
-	for (keys %weekday) {
-	  $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";
-	  $weektotal += $subtotal{$_};
-	  $subtotal{$_} = 0
-	}
-	$column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";
-	$sameweek = $ref->{workweek};
-
-	print qq|
-        <tr class=listsubtotal>
-|;
-
-	for (@column_index) { print "\n$column_data{$_}" }
-      
-	print qq|
-        </tr>
-|;
-      }
-    }
-    
-    for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
-    for (keys %weekday) { $column_data{$_} = "<td>&nbsp;</td>" }
-    
-    $column_data{allocated} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{allocated}, "", "&nbsp;")."</td>";
-    $column_data{$ref->{weekday}} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{qty}, "", "&nbsp;");
-    
-    if ($form->{l_time}) {
-      $column_data{$ref->{weekday}} .= "<br>$ref->{checkedin}<br>$ref->{checkedout}";
-    }
-    $column_data{$ref->{weekday}} .= "</td>";
-    
-    $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>";
-
-    $subtotal{$ref->{weekday}} += $ref->{qty};
-    $total{$ref->{weekday}} += $ref->{qty};
-
-    $j++; $j %= 2;
-    print qq|
-        <tr class=listrow$j>
-|;
-
-    for (@column_index) { print "\n$column_data{$_}" }
-
-    print qq|
-        </tr>
-|;
-  }
-
-  # print last subtotal
-  if ($form->{l_subtotal}) {
-    print qq|
-        <tr class=listsubtotal>
-|;
-
-    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-
-    $weektotal = 0;
-    for (keys %weekday) {
-      $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";
-      $weektotal += $subtotal{$_};
-      }
-    
-      $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";
-	
-    for (@column_index) { print "\n$column_data{$_}" }
-  }
-
-  # print last total
-  print qq|
-        <tr class=listtotal>
-|;
-
-  for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-
-  $total = 0;
-  for (keys %weekday) {
-    $column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", "&nbsp;")."</th>";
-    $total += $total{$_};
-    $total{$_} = 0;
-  }
-
-  $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", "&nbsp;")."</th>";
-  
-  for (@column_index) { print "\n$column_data{$_}" }
-
-  if ($form->{project} eq 'job') {
-    if ($myconfig{acs} !~ /Production--Production/) {
-      $i = 1;
-      $button{'Production--Add Time Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |;
-      $button{'Production--Add Time Card'}{order} = $i++;
-    }
-  } elsif ($form->{project} eq 'project') {
-    if ($myconfig{acs} !~ /Projects--Projects/) {
-      $i = 1;
-      $button{'Projects--Add Time Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |;
-      $button{'Projects--Add Time Card'}{order} = $i++;
-    }
-  } else {
-    if ($myconfig{acs} !~ /Time Cards--Time Cards/) {
-      $i = 1;
-      $button{'Time Cards--Add Time Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |;
-      $button{'Time Cards--Add Time Card'}{order} = $i++;
-    }
-  }
-
-  for (split /;/, $myconfig{acs}) { delete $button{$_} }
-
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-|;
-
-  $form->hide_form(qw(callback path login sessionid project));
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{lynx}) {
-    require "bin/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-} 
-
-
-sub list_storescard {
-
-  $form->{type} = "storescard";
-
-  JC->jcitems(\%myconfig, \%$form);
-  
-  $form->{title} = $locale->text('Stores Cards');
-
-  $href = "$form->{script}?action=list_storescard";
-  for (qw(type direction oldsort path login sessionid project)) { $href .= "&$_=$form->{$_}" }
-
-  $href .= "&title=".$form->escape($form->{title});
-
-  $form->sort_order();
-
-  $callback = "$form->{script}?action=list_storescard";
-  for (qw(type direction oldsort path login sessionid project)) { $callback .= "&$_=$form->{$_}" }
-  
-  $callback .= "&title=".$form->escape($form->{title},1);
-
-  @column_index = $form->sort_columns(qw(transdate projectnumber projectdescription id partnumber description qty amount));
-  
- 
-  if ($form->{projectnumber}) {
-    $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1);
-    $href .= "&projectnumber=".$form->escape($form->{projectnumber});
-    ($var) = split /--/, $form->{projectnumber};
-    $option .= "\n<br>" if ($option);
-    $option .= "$joblabel : $var";
-    @column_index = grep !/projectnumber/, @column_index;
-  }
-  if ($form->{partnumber}) {
-    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);
-    $href .= "&partnumber=".$form->escape($form->{partnumber});
-    ($var) = split /--/, $form->{partnumber};
-    $option .= "\n<br>" if ($option);
-    $option .= "$laborlabel : $var";
-    @column_index = grep !/partnumber/, @column_index;
-  }
-  if ($form->{startdatefrom}) {
-    $callback .= "&startdatefrom=$form->{startdatefrom}";
-    $href .= "&startdatefrom=$form->{startdatefrom}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{startdatefrom}, 1);
-  }
-  if ($form->{startdateto}) {
-    $callback .= "&startdateto=$form->{startdateto}";
-    $href .= "&startdateto=$form->{startdateto}";
-    $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{startdateto}, 1);
-  }
-  
-  $column_header{id} = "<th><a class=listheading href=$href&sort=id>" . $locale->text('ID') . "</a></th>";
-  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
-  $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>" . $locale->text('Job Number') . "</a></th>";
-  $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>" . $locale->text('Job Description') . "</a></th>";
-  $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>" . $locale->text('Part Number') . "</a></th>";
-  $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</a></th>";
-  $column_header{qty} = "<th class=listheading>" . $locale->text('Qty') . "</th>";
-  $column_header{amount} = "<th class=listheading>" . $locale->text('Amount') . "</th>";
-
-  
-  $form->header;
-
-  if (@{ $form->{transactions} }) {
-    $sameitem = $form->{transactions}->[0]->{$form->{sort}};
-  }
-
-  print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$option</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr class=listheading>
-|;
-
-  for (@column_index) { print "\n$column_header{$_}" }
-  
-  print qq|
-        </tr>
-|;
-
-  # add sort and escape callback, this one we use for the add sub
-  $form->{callback} = $callback .= "&sort=$form->{sort}";
-
-  # escape callback for href
-  $callback = $form->escape($callback);
-
-  # flip direction
-  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
-  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
-
-  $total = 0;
-  foreach $ref (@{ $form->{transactions} }) {
-
-    for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
-      $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty}, "", "&nbsp;")."</td>";
-    $column_data{amount} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty} * $ref->{sellprice}, 2)."</td>";
-    
-    $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>";
-    
-    $total += ($ref->{qty} * $ref->{sellprice});
-    
-    $j++; $j %= 2;
-    print qq|
-        <tr class=listrow$j>
-|;
-
-    for (@column_index) { print "\n$column_data{$_}" }
-
-    print qq|
-        </tr>
-|;
-  }
-
-  # print total
-  print qq|
-        <tr class=listtotal>
-|;
-
-  for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-  $column_data{amount} = qq|<th align=right>|.$form->format_amount(\%myconfig, $total, 2)."</th";
-  
-  for (@column_index) { print "\n$column_data{$_}" }
-
-  if ($form->{project} eq 'job') {
-    if ($myconfig{acs} !~ /Production--Production/) {
-      $i = 1;
-      $button{'Production--Add Stores Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_stores_card">|.$locale->text('Add Stores Card').qq|</button> |;
-      $button{'Production--Add Stores Card'}{order} = $i++;
-    }
-  }
-
-  for (split /;/, $myconfig{acs}) { delete $button{$_} }
-
-  print qq|
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-|;
-
-  $form->hide_form(qw(callback path login sessionid project));
-
-  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
-    print $item->{code};
-  }
-
-  if ($form->{lynx}) {
-    require "bin/menu.pl";
-    &menubar;
-  }
-
-  print qq|
-</form>
-
-</body>
-</html>
-|;
-
-} 
-
-
-
-sub continue { &{ $form->{nextsub} } };
-
-sub add_time_card {
-
-  $form->{type} = "timecard";
-  &add;
-
-}
-
-
-sub add_stores_card {
-
-  $form->{type} = "storescard";
-  &add;
-
-}
-
-
-sub print_options {
-
-  if ($form->{selectlanguage}) {
-    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
-    $form->{"selectlanguage"} =~ s/ selected//;
-    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
-    $lang = qq|<select name=language_code>$form->{selectlanguage}</select>
-    <input type=hidden name=selectlanguage value="|.
-    $form->escape($form->{selectlanguage},1).qq|">|;
-  }
-  
-  $form->{selectformname} = $form->unescape($form->{selectformname});
-  $form->{selectformname} =~ s/ selected//;
-  $form->{selectformname} =~ s/(<option value="\Q$form->{formname}\E")/$1 selected/;
-  
-  $type = qq|<select name=formname>$form->{selectformname}</select>
-  <input type=hidden name=selectformname value="|.$form->escape($form->{selectformname},1).qq|">|;
-
-  $media = qq|<select name=media>
-          <option value="screen">|.$locale->text('Screen');
-
-  $form->{selectformat} = qq|<option value="html">html\n|;
-  
-  if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) {
-    for (sort keys %{LedgerSMB::Sysconfig::printer}) { $media .= qq| 
-          <option value="$_">$_| }
-  }
-
-  if (${LedgerSMB::Sysconfig::latex}) {
-    $media .= qq|
-          <option value="queue">|.$locale->text('Queue');
-	  
-    $form->{selectformat} .= qq|
-            <option value="postscript">|.$locale->text('Postscript').qq|
-	    <option value="pdf">|.$locale->text('PDF');
-  }
-
-  $format = qq|<select name=format>$form->{selectformat}</select>|;
-  $format =~ s/(<option value="\Q$form->{format}\E")/$1 selected/;
-  $format .= qq|
-  <input type=hidden name=selectformat value="|.$form->escape($form->{selectformat},1).qq|">|;
-  $media .= qq|</select>|;
-  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
-
-  print qq|
-  <table width=100%>
-    <tr>
-      <td>$type</td>
-      <td>$lang</td>
-      <td>$format</td>
-      <td>$media</td>
-      <td align=right width=90%>
-  |;
-
-  if ($form->{printed} =~ /$form->{formname}/) {
-    print $locale->text('Printed').qq|<br>|;
-  }
-
-  if ($form->{queued} =~ /$form->{formname}/) {
-    print $locale->text('Queued');
-  }
-
-  print qq|
-      </td>
-    </tr>
-  </table>
-|;
-
-}
-
-
-sub print {
-
-  if ($form->{media} !~ /screen/) {
-    $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
-    $old_form = new Form;
-    for (keys %$form) { $old_form->{$_} = $form->{$_} }
-  }
-
-  &{ "print_$form->{formname}" }($old_form);
-
-}
-
-
-sub print_timecard {
-  my ($old_form) = @_;
-  
-  $display_form = ($form->{display_form}) ? $form->{display_form} : "update";
-
-  $form->{description} =~ s/^\s+//g;
-
-  for (qw(partnumber projectnumber)) { $form->{$_} =~ s/--.*// }
-
-  @a = qw(hour min sec);
-  foreach $item (qw(in out)) {
-    for (@a) { $form->{"$item$_"} = substr(qq|00$form->{"$item$_"}|, -2) }
-    $form->{"checked$item"} = qq|$form->{"${item}hour"}:$form->{"${item}min"}:$form->{"${item}sec"}|;
-  }
-  
-  @a = ();
-  for (qw(company address tel fax businessnumber)) { $form->{$_} = $myconfig{$_} }
-  $form->{address} =~ s/\\n/\n/g;
-  
-  push @a, qw(partnumber description projectnumber projectdescription);
-  push @a, qw(company address tel fax businessnumber username useremail);
-  
-  $form->format_string(@a);
-
-  $form->{total} = $form->format_amount(\%myconfig, $form->parse_amount(\%myconfig, $form->{qty}) * $form->parse_amount(\%myconfig, $form->{sellprice}), 2);
-
-  
-  ($form->{employee}, $form->{employee_id}) = split /--/, $form->{employee};
-
-  $form->{templates} = "$myconfig{templates}";
-  $form->{IN} = "$form->{formname}.html";
-
-  if ($form->{format} =~ /(postscript|pdf)/) {
-    $form->{IN} =~ s/html$/tex/;
-  }
-
-  if ($form->{media} !~ /(screen|queue)/) {
-    $form->{OUT} = "| ${LedgerSMB::Sysconfig::printer}{$form->{media}}";
-
-    if ($form->{printed} !~ /$form->{formname}/) {
-      $form->{printed} .= " $form->{formname}";
-      $form->{printed} =~ s/^ //;
-
-      $form->update_status(\%myconfig);
-    }
-
-    %audittrail = ( tablename   => jcitems,
-                    reference   => $form->{id},
-		    formname    => $form->{formname},
-		    action      => 'printed',
-		    id          => $form->{id} );
-
-    %status = ();
-    for (qw(printed queued audittrail)) { $status{$_} = $form->{$_} }
-
-    $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-
-  }
-
-  if ($form->{media} eq 'queue') {
-    %queued = split / /, $form->{queued};
-
-    if ($filename = $queued{$form->{formname}}) {
-      $form->{queued} =~ s/$form->{formname} $filename//;
-      unlink "${LedgerSMB::Sysconfig::spool}/$filename";
-      $filename =~ s/\..*$//g;
-    } else {
-      $filename = time;
-      $filename .= $$;
-    }
-
-    $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
-    $form->{OUT} = ">${LedgerSMB::Sysconfig::spool}/$filename";
-    
-    $form->{queued} = "$form->{formname} $filename";
-    $form->update_status(\%myconfig);
-
-    %audittrail = ( tablename   => jcitems,
-                    reference   => $form->{id},
-		    formname    => $form->{formname},
-		    action      => 'queued',
-		    id          => $form->{id} );
-
-    %status = ();
-    for (qw(printed queued audittrail)) { $status{$_} = $form->{$_} }
-
-    $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-  }
-
-  $form->parse_template(\%myconfig, ${LedgerSMB::Sysconfig::userspath});
-
-  if (defined %$old_form) {
-
-    for (keys %$old_form) { $form->{$_} = $old_form->{$_} }
-    for (qw(printed queued audittrail)) { $form->{$_} = $status{$_} }
-    
-    &{ "$display_form" };
-    
-  }
-  
-}
-
-
+#=====================================================================
+# LedgerSMB Small Medium Business Accounting
+# 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) 2005
+#
+#  Author: DWS Systems Inc.
+#     Web: http://www.sql-ledger.org
+#
+#
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+# You should 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->{projectnumber}\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 {
+      $form->error($locale->text('No Parts on file!'));
+    }
+  }
+  
+  # employees
+  if (@{ $form->{all_employee} }) {
+    $form->{selectemployee} = "<option>\n";
+    for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
+  } else {
+    $form->error($locale->text('No Employees on file!'));
+  }
+
+}
+
+
+sub search {
+  
+  # accounting years
+  $form->all_years(\%myconfig);
+
+  if (@{ $form->{all_years} }) {
+    $form->{selectaccountingyear} = "<option>\n";
+    for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| }
+
+    $form->{selectaccountingmonth} = "<option>\n";
+    for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| }
+
+    $selectfrom = qq|
+        <tr>
+	  <th align=right>|.$locale->text('Period').qq|</th>
+	  <td colspan=3>
+	  <select name=month>$form->{selectaccountingmonth}</select>
+	  <select name=year>$form->{selectaccountingyear}</select>
+	  <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|
+	  <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|
+	  <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|
+	  <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|
+	  </td>
+	</tr>
+|;
+  }
+
+  $fromto = qq|
+	<tr>
+	  <th align=right nowrap>|.$locale->text('Startdate').qq|</th>
+	  <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}">
+	  |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td>
+	</tr>
+	$selectfrom
+|;
+
+ 
+  if ($form->{type} eq 'timecard') {
+    $form->{title} = $locale->text('Time Cards');
+    JC->jcitems_links(\%myconfig, \%$form);
+  }
+  if ($form->{type} eq 'storescard') {
+    $form->{title} = $locale->text('Stores Cards');
+    JC->jcitems_links(\%myconfig, \%$form);
+  }
+
+  if (@{ $form->{all_project} }) {
+    $form->{selectprojectnumber} = "<option>\n";
+    for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }
+  }
+  
+  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->{project} eq 'job') {
+    $joblabel = $locale->text('Job Number');
+    $laborlabel = $locale->text('Labor Code');
+  } elsif ($form->{project} eq 'project') {
+    $joblabel = $locale->text('Project Number');
+    $laborlabel = $locale->text('Service Code');
+  } else {
+    $joblabel = $locale->text('Project/Job Number');
+    $laborlabel = $locale->text('Service/Labor Code');
+  }
+  
+  if ($form->{selectprojectnumber}) {
+    $jobnumber = qq|
+      <tr>
+	<th align=right nowrap>$joblabel</th>
+	<td colspan=3><select name=projectnumber>$form->{selectprojectnumber}</select></td>
+      </tr>
+|;
+  }
+
+ 
+  if ($form->{type} eq 'timecard') {
+    # employees
+    if (@{ $form->{all_employee} }) {
+      $form->{selectemployee} = "<option>\n";
+      for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
+    } else {
+      $form->error($locale->text('No Employees on file!'));
+    }
+    
+    if ($form->{selectpartnumber}) {
+    $partnumber = qq|
+	<tr>
+	  <th align=right nowrap>$laborlabel</th>
+	  <td colspan=3><select name=partnumber>$form->{selectpartnumber}</select></td>
+        </tr>
+|;
+    }
+
+    $employee = qq|
+	<tr>
+	  <th align=right nowrap>|.$locale->text('Employee').qq|</th>
+	  <td colspan=3><select name=employee>$form->{selectemployee}</select></td>
+        </tr>
+|;
+
+    $l_time = qq|<td nowrap><input name=l_time class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Time').qq|</td>|;
+   
+  }
+
+  $form->header;
+
+  print qq|
+<body>
+
+<form method=post action=$form->{script}>
+
+<table width=100%>
+  <tr>
+    <th class=listtop>$form->{title}</th>
+  </tr>
+  <tr height="5"></tr>
+  <tr valign=top>
+    <td>
+      <table>
+        $jobnumber
+	$partnumber
+	$employee
+	$fromto
+
+	<tr>
+	  <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
+	  <td>
+	    <table>
+	      <tr>
+       		<td nowrap><input name=open class=checkbox type=checkbox value=Y checked> |.$locale->text('Open').qq|</td>
+		<td nowrap><input name=closed class=checkbox type=checkbox value=Y> |.$locale->text('Closed').qq|</td>
+	      </tr>
+	      <tr>
+		$l_time
+       		<td nowrap><input name=l_allocated class=checkbox type=checkbox value=Y> |.$locale->text('Allocated').qq|</td>
+	      </tr>
+	      <tr>
+	        <td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>
+	      </tr>
+	    </table>
+	  </td>
+        </tr>
+      </table>
+    </td>
+  </tr>
+  <tr>
+    <td><hr size=3 noshade></td>
+  </tr>
+</table>
+
+<input type=hidden name=nextsub value="list_$form->{type}">
+<input type=hidden name=sort value="transdate">
+|;
+
+  $form->hide_form(qw(db path login sessionid project type));
+
+  print qq|
+<br>
+<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
+</form>
+|;
+
+  if ($form->{lynx}) {
+    require "bin/menu.pl";
+    &menubar;
+  }
+
+  print qq|
+
+</body>
+</html>
+|;
+
+}
+
+
+sub display_form {
+
+  &{ "$form->{type}_header" };
+  &{ "$form->{type}_footer" };
+
+}
+
+
+sub form_header {
+
+  &{ "$form->{type}_header" };
+
+}
+
+
+sub form_footer {
+
+  &{ "form->{type}_footer" };
+
+}
+
+
+sub prepare_timecard {
+
+  $form->{formname} = "timecard";
+  $form->{format} = "postscript" if $myconfig{printer};
+  $form->{media} = $myconfig{printer};
+  
+  JC->get_jcitems(\%myconfig, \%$form);
+
+  $form->{selectformname} = qq|<option value="timecard">|.$locale->text('Time Card');
+  
+  foreach $item (qw(in out)) {
+    ($form->{"${item}hour"}, $form->{"${item}min"}, $form->{"${item}sec"}) = split /:/, $form->{"checked$item"};
+    for (qw(hour min sec)) {
+      if (($form->{"$item$_"} *= 1) > 0) {
+        $form->{"$item$_"} = substr(qq|0$form->{"$item$_"}|,-2);
+      } else {
+	$form->{"$item$_"} ||= "";
+      }
+    }
+  }
+  
+  $form->{checkedin} = $form->{inhour} * 3600 + $form->{inmin} * 60 + $form->{insec};
+  $form->{checkedout} = $form->{outhour} * 3600 + $form->{outmin} * 60 + $form->{outsec};
+
+  if ($form->{checkedin} > $form->{checkedout}) {
+    $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout});
+    $form->{checkedin} = 0;
+  }
+
+  $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600;
+  if ($form->{clocked}) {
+    $form->{oldnoncharge} = $form->{clocked} - $form->{qty};
+  }
+  $form->{oldqty} = $form->{qty};
+  
+  $form->{noncharge} = $form->format_amount(\%myconfig, $form->{clocked} - $form->{qty}, 4) if $form->{checkedin} != $form->{checkedout};
+  $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4);
+  
+  $form->{amount} = $form->{sellprice} * $form->{qty};
+  for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
+  $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4);
+  $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated});
+
+  $form->{employee} .= "--$form->{employee_id}";
+  $form->{projectnumber} .= "--$form->{project_id}";
+  $form->{partnumber} .= "--$form->{parts_id}";
+  $form->{oldpartnumber} = $form->{partnumber};
+
+  if (@{ $form->{all_language} }) {
+    $form->{selectlanguage} = "<option>\n";
+    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }
+  }
+
+  &jcitems_links;
+
+  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));
+  
+  $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/;
+
+  if ($form->{income_accno_id}) {
+    $form->{locked} = 1 if $form->{production} == $form->{completed};
+  }
+
+}
+
+
+sub timecard_header {
+
+  # set option selected
+  for (qw(employee projectnumber partnumber)) {
+    $form->{"select$_"} =~ s/ selected//;
+    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
+  }
+  
+  $rows = $form->numtextrows($form->{description}, 50, 8);
+
+  for (qw(transdate checkedin checkedout partnumber)) { $form->{"old$_"} = $form->{$_} }
+  for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) }
+
+  if ($rows > 1) {
+    $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|;
+  } else {
+    $description = qq|<input name=description size=48 value="$form->{description}">|;
+  }
+
+  if ($form->{project} eq 'job') {
+
+    $projectlabel = $locale->text('Job Number');
+    $laborlabel = $locale->text('Labor Code');
+    $rate = qq|<input type=hidden name=sellprice value=$form->{sellprice}>|;
+
+  } else {
+
+    if ($form->{project} eq 'project') {
+      $projectlabel = $locale->text('Project Number');
+      $laborlabel = $locale->text('Service Code');
+    } else {
+      $projectlabel = $locale->text('Project/Job Number');
+      $laborlabel = $locale->text('Service/Labor Code');
+    }
+    
+    if ($myconfig{role} ne 'user') {
+      $rate = qq|
+		<tr>
+		  <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th>
+		  <td><input name=sellprice value=$form->{sellprice}></td>
+		  <th align=right nowrap>|.$locale->text('Total').qq|</th>
+		  <td>$form->{amount}</td>
+		</tr>
+		<tr>
+		  <th align=right nowrap>|.$locale->text('Allocated').qq|</th>
+		  <td><input name=allocated value=$form->{allocated}></td>
+		</tr>
+|;
+    } else {
+      $rate = qq|
+		<tr>
+		  <th align=right nowrap>|.$locale->text('Chargeout Rate').qq|</th>
+		  <td>$form->{sellprice}</td>
+		  <th align=right nowrap>|.$locale->text('Total').qq|</th>
+		  <td>$form->{amount}</td>
+		</tr>
+		<tr>
+		  <th align=right nowrap>|.$locale->text('Allocated').qq|</th>
+		  <td>$form->{allocated}</td>
+		</tr>
+		<input type=hidden name=sellprice value=$form->{sellprice}>
+		<input type=hidden name=allocated value=$form->{allocated}>
+|;
+    }
+  }
+
+  if ($myconfig{role} eq 'user') {
+    $charge = qq|<input type=hidden name=qty value=$form->{qty}>$form->{qty}|;
+  } else {
+    $charge = qq|<input name=qty value=$form->{qty}>|;
+  }
+  
+  if (($rows = $form->numtextrows($form->{notes}, 40, 6)) < 2) {
+    $rows = 2;
+  }
+
+  $notes = qq|<tr>
+		<th align=right>|.$locale->text('Notes').qq|</th>
+                  <td colspan=3><textarea name="notes" rows=$rows cols=46 wrap=soft>$form->{notes}</textarea>
+		</td>
+	      </tr>
+|;
+
+##################
+  ($null, $form->{oldproject_id}) = split /--/, $form->{projectnumber};
+  
+  $form->header;
+
+  print qq|
+<body>
+
+<form method=post action="$form->{script}">
+|;
+
+  $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldcheckedin oldcheckedout oldpartnumber project oldqty oldnoncharge pricematrix oldproject_id));
+
+  print qq|
+<table width=100%>
+  <tr class=listtop>
+    <th class=listtop>$form->{title}</th>
+  </tr>
+  <tr height="5"></tr>
+  <tr>
+    <td>
+      <table>
+        <tr>
+	  <td>
+	    <table>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Employee').qq|</th>
+		<td><select name=employee>$form->{selectemployee}</select></td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>$projectlabel</th>
+		<td><select name=projectnumber>$form->{selectprojectnumber}</select>
+		</td>
+		<td></td>
+		<td>$form->{projectdescription}</td>
+		<input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|">
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Date worked').qq|</th>
+		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>$laborlabel</th>
+		<td><select name=partnumber>$form->{selectpartnumber}</select></td>
+	      </tr>
+	      <tr valign=top>
+		<th align=right nowrap>|.$locale->text('Description').qq|</th>
+		<td colspan=3>$description</td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Time In').qq|</th>
+		<td>
+		  <table>
+		    <tr>
+		      <td><input name=inhour title="hh" size=3 maxlength=2 value=$form->{inhour}></td>
+		      <td><input name=inmin title="mm" size=3 maxlength=2 value=$form->{inmin}></td>
+		      <td><input name=insec title="ss" size=3 maxlength=2 value=$form->{insec}></td>
+		    </tr>
+		  </table>
+		</td>
+		<th align=right nowrap>|.$locale->text('Time Out').qq|</th>
+		<td>
+		  <table>
+		    <tr>
+		      <td><input name=outhour title="hh" size=3 maxlength=2 value=$form->{outhour}></td>
+		      <td><input name=outmin title="mm" size=3 maxlength=2 value=$form->{outmin}></td>
+		      <td><input name=outsec title="ss" size=3 maxlength=2 value=$form->{outsec}></td>
+		    </tr>
+		  </table>
+		</td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Clocked').qq|</th>
+		<td>$form->{clocked}</td>
+              </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Non-chargeable').qq|</th>
+		<td><input name=noncharge value=$form->{noncharge}></td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Chargeable').qq|</th>
+		<td>$charge</td>
+	      </tr>
+	      $rate
+	      $notes
+	    </table>
+	  </td>
+	</tr>
+
+|;
+
+}
+
+
+sub timecard_footer {
+
+  print qq|
+      </table>
+    </td>
+  </tr>
+  <tr>
+    <td><hr size=3 noshade></td>
+  </tr>
+  <tr>
+    <td>
+|;
+
+  &print_options;
+
+  print qq|
+    </td>
+  </tr>
+</table>
+<br>
+|;
+
+  $transdate = $form->datetonum(\%myconfig, $form->{transdate});
+  $closedto = $form->datetonum(\%myconfig, $form->{closedto});
+
+  if (! $form->{readonly}) {
+
+# type=submit $locale->text('Update')
+# type=submit $locale->text('Print')
+# type=submit $locale->text('Save')
+# type=submit $locale->text('Print and Save')
+# type=submit $locale->text('Save as new')
+# type=submit $locale->text('Print and Save as new')
+# type=submit $locale->text('Delete')
+
+  %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
+             'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
+	     'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },
+	     'print_and_save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') },
+	     'save_as_new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') },
+	     'print_and_save_as_new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') },
+	     
+	     'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },
+	    );
+
+    %a = ();
+    
+    if ($form->{id}) {
+    
+      if (!$form->{locked}) {
+	for ('update', 'print', 'save', 'save_as_new') { $a{$_} = 1 }
+	
+	if (${LedgerSMB::Sysconfig::latex}) {
+	  for ('print_and_save', 'print_and_save_as_new') { $a{$_} = 1 }
+	}
+
+	if ($form->{orphaned}) {
+	  $a{'delete'} = 1;
+	}
+	
+      }
+
+    } else {
+
+      if ($transdate > $closedto) {
+	
+	for ('update', 'print', 'save') { $a{$_} = 1 }
+
+	if (${LedgerSMB::Sysconfig::latex}) {
+	  $a{'print_and_save'} = 1;
+	}
+
+      }
+    }
+  }
+
+  for (keys %button) { delete $button{$_} if ! $a{$_} }
+  for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
+  
+  if ($form->{lynx}) {
+    require "bin/menu.pl";
+    &menubar;
+  }
+
+  $form->hide_form(qw(callback path login sessionid));
+  
+  print qq|
+
+</form>
+
+</body>
+</html>
+|;
+
+}
+
+
+sub prepare_storescard {
+
+  $form->{formname} = "storescard";
+  $form->{format} = "postscript" if $myconfig{printer};
+  $form->{media} = $myconfig{printer};
+
+  JC->get_jcitems(\%myconfig, \%$form);
+  
+  $form->{selectformname} = qq|<option value="storescard">|.$locale->text('Stores Card');
+  
+  $form->{amount} = $form->{sellprice} * $form->{qty};
+  for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
+  $form->{qty} = $form->format_amount(\%myconfig, $form->{qty}, 4);
+ 
+  $form->{employee} .= "--$form->{employee_id}";
+  $form->{projectnumber} .= "--$form->{project_id}";
+  $form->{partnumber} .= "--$form->{parts_id}";
+  $form->{oldpartnumber} = $form->{partnumber};
+
+  if (@{ $form->{all_language} }) {
+    $form->{selectlanguage} = "<option>\n";
+    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }
+  }
+
+  &jcitems_links;
+
+  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));
+  
+  $form->{readonly} = 1 if $myconfig{acs} =~ /Production--Add Time Card/;
+
+  if ($form->{income_accno_id}) {
+    $form->{locked} = 1 if $form->{production} == $form->{completed};
+  }
+
+}
+
+
+sub storescard_header {
+
+  # set option selected
+  for (qw(employee projectnumber partnumber)) {
+    $form->{"select$_"} =~ s/ selected//;
+    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;
+  }
+  
+  $rows = $form->numtextrows($form->{description}, 50, 8);
+
+  for (qw(transdate partnumber)) { $form->{"old$_"} = $form->{$_} }
+  for (qw(partnumber description)) { $form->{$_} = $form->quote($form->{$_}) }
+
+  if ($rows > 1) {
+    $description = qq|<textarea name=description rows=$rows cols=46 wrap=soft>$form->{description}</textarea>|;
+  } else {
+    $description = qq|<input name=description size=48 value="$form->{description}">|;
+  }
+
+
+  $form->header;
+
+  print qq|
+<body>
+
+<form method=post action="$form->{script}">
+|;
+
+  $form->hide_form(qw(id type media format printed queued title closedto locked oldtransdate oldpartnumber project));
+
+  print qq|
+<table width=100%>
+  <tr class=listtop>
+    <th class=listtop>$form->{title}</th>
+  </tr>
+  <tr height="5"></tr>
+  <tr>
+    <td>
+      <table>
+        <tr>
+	  <td>
+	    <table>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Job Number').qq|</th>
+		<td><select name=projectnumber>$form->{selectprojectnumber}</select>
+		</td>
+		<td>$form->{projectdescription}</td>
+		<input type=hidden name=projectdescription value="|.$form->quote($form->{projectdescription}).qq|">
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Date').qq|</th>
+		<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Part Number').qq|</th>
+		<td><select name=partnumber>$form->{selectpartnumber}</td>
+	      </tr>
+	      <tr valign=top>
+		<th align=right nowrap>|.$locale->text('Description').qq|</th>
+		<td>$description</td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Qty').qq|</th>
+		<td><input name=qty size=6 value=$form->{qty}>
+		<b>|.$locale->text('Cost').qq|</b>
+		<input name=sellprice size=10 value=$form->{sellprice}></td>
+	      </tr>
+	      <tr>
+		<th align=right nowrap>|.$locale->text('Total').qq|</th>
+		<td>$form->{amount}</td>
+	      </tr>
+	    </table>
+	  </td>
+	</tr>
+
+|;
+
+}
+
+
+sub storescard_footer {
+
+  print qq|
+      </table>
+    </td>
+  </tr>
+  <tr>
+    <td><hr size=3 noshade></td>
+  </tr>
+  <tr>
+    <td>
+|;
+
+  &print_options;
+
+  print qq|
+    </td>
+  </tr>
+</table>
+<br>
+|;
+
+  $transdate = $form->datetonum(\%myconfig, $form->{transdate});
+  $closedto = $form->datetonum(\%myconfig, $form->{closedto});
+
+# type=submit $locale->text('Update')
+# type=submit $locale->text('Print')
+# type=submit $locale->text('Save') 
+# type=submit $locale->text('Print and Save') 
+# type=submit $locale->text('Save as new')
+# type=submit $locale->text('Print and Save as new') 
+# type=submit $locale->text('Delete')
+
+
+  if (! $form->{readonly}) {
+
+    %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') },
+               'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
+	       'save' => { ndx => 3, key => 'S', value => $locale->text('Save') },
+	       'print_and_save' => { ndx => 6, key => 'R', value => $locale->text('Print and Save') },
+	       'save_as_new' => { ndx => 7, key => 'N', value => $locale->text('Save as new') },
+	       'print_and_save_as_new' => { ndx => 8, key => 'W', value => $locale->text('Print and Save as new') },
+	       'delete' => { ndx => 16, key => 'D', value => $locale->text('Delete') },
+	      );
+    
+    %a = ();
+    
+    if ($form->{id}) {
+      
+      if (!$form->{locked}) {
+	for ('update', 'print', 'save', 'save_as_new') { $a{$_} = 1 }
+	if (${LedgerSMB::Sysconfig::latex}) {
+	  for ('print_and_save', 'print_and_save_as_new') { $a{$_} = 1 }
+	}
+	if ($form->{orphaned}) {
+	  $a{'delete'} = 1;
+	}
+      }
+      
+    } else {
+
+      if ($transdate > $closedto) {
+	for ('update', 'print', 'save') { $a{$_} = 1 }
+
+	if (${LedgerSMB::Sysconfig::latex}) {
+	  $a{'print_and_save'} = 1;
+	}
+      }
+    }
+
+    for (keys %button) { delete $button{$_} if ! $a{$_} }
+    for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
+    
+  }
+
+  if ($form->{lynx}) {
+    require "bin/menu.pl";
+    &menubar;
+  }
+
+  $form->hide_form(qw(callback path login sessionid));
+  
+  print qq|
+
+</form>
+
+</body>
+</html>
+|;
+
+}
+
+
+
+sub update {
+
+  ($null, $form->{project_id}) = split /--/, $form->{projectnumber};
+
+  # check labor/part
+  JC->jcitems_links(\%myconfig, \%$form);
+
+  &jcitems_links;
+  
+  $checkmatrix = 1 if $form->{oldproject_id} != $form->{project_id};
+  
+  if ($form->{type} eq 'timecard') {
+
+    # time clocked
+    %hour = ( in => 0, out => 0 );
+    for $t (qw(in out)) {
+      if ($form->{"${t}sec"} > 60) {
+	$form->{"${t}sec"} -= 60;
+	$form->{"${t}min"}++;
+      }
+      if ($form->{"${t}min"} > 60) {
+	$form->{"${t}min"} -= 60;
+	$form->{"${t}hour"}++;
+      }
+      $hour{$t} = $form->{"${t}hour"};
+    }
+
+    $form->{checkedin} = $hour{in} * 3600 + $form->{inmin} * 60 + $form->{insec};
+    $form->{checkedout} = $hour{out} * 3600 + $form->{outmin} * 60 + $form->{outsec};
+
+    if ($form->{checkedin} > $form->{checkedout}) {
+      $form->{checkedout} = 86400 - ($form->{checkedin} - $form->{checkedout});
+      $form->{checkedin} = 0;
+    }
+
+    $form->{clocked} = ($form->{checkedout} - $form->{checkedin}) / 3600;
+
+    for (qw(sellprice qty noncharge allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
+
+    $checkmatrix = 1 if $form->{oldqty} != $form->{qty};
+    
+    if (($form->{oldcheckedin} != $form->{checkedin}) || ($form->{oldcheckedout} != $form->{checkedout})) {
+      $checkmatrix = 1;
+      $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge};
+      $form->{oldnoncharge} = $form->{noncharge};
+    }
+
+    if (($form->{qty} != $form->{oldqty}) && $form->{clocked}) {
+      $form->{oldnoncharge} = $form->{noncharge} = $form->{clocked} - $form->{qty};
+      $checkmatrix = 1;
+    }
+
+    if (($form->{oldnoncharge} != $form->{noncharge}) && $form->{clocked}) {
+      $form->{oldqty} = $form->{qty} = $form->{clocked} - $form->{noncharge};
+      $checkmatrix = 1;
+    }
+    
+    if ($checkmatrix) {
+      @a = split / /, $form->{pricematrix};
+      if (scalar @a > 2) {
+	for (@a) {
+	  ($q, $p) = split /:/, $_;
+	  if (($p * 1) && ($form->{qty} >= ($q * 1))) {
+	    $form->{sellprice} = $p;
+	  }
+	}
+      }
+    }
+    
+    $form->{amount} = $form->{sellprice} * $form->{qty};
+	
+    $form->{clocked} = $form->format_amount(\%myconfig, $form->{clocked}, 4);
+    for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
+    for (qw(qty noncharge)) {
+      $form->{"old$_"} = $form->{$_};
+      $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 4);
+    }
+    
+  } else {
+    
+    for (qw(sellprice qty allocated)) { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
+
+    if ($form->{oldqty} != $form->{qty}) {
+      @a = split / /, $form->{pricematrix};
+      if (scalar @a > 2) {
+	for (@a) {
+	  ($q, $p) = split /:/, $_;
+	  if (($p * 1) && ($form->{qty} >= ($q * 1))) {
+	    $form->{sellprice} = $p;
+	  }
+	}
+      }
+    }
+    
+    $form->{amount} = $form->{sellprice} * $form->{qty};
+    for (qw(sellprice amount)) { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) }
+	
+  }
+
+  $form->{allocated} = $form->format_amount(\%myconfig, $form->{allocated});
+    
+  &display_form;
+
+}
+
+
+sub save {
+
+  $form->isblank("transdate", $locale->text('Date missing!'));
+
+  if ($form->{project} eq 'project') {
+    $form->isblank("projectnumber", $locale->text('Project Number missing!'));
+    $form->isblank("partnumber", $locale->text('Service Code missing!'));
+  } else {
+    $form->isblank("projectnumber", $locale->text('Job Number missing!'));
+    $form->isblank("partnumber", $locale->text('Labor Code missing!'));
+  }
+
+  $closedto = $form->datetonum(\%myconfig, $form->{closedto});
+  $transdate = $form->datetonum(\%myconfig, $form->{transdate});
+  
+  $msg = ($form->{type} eq 'timecard') ? $locale->text('Cannot save time card for a closed period!') : $locale->text('Cannot save stores card for a closed period!');
+  $form->error($msg) if ($transdate <= $closedto);
+
+  if (! $form->{resave}) {
+    if ($form->{id}) {
+      &resave;
+      exit;
+    }
+  }
+  
+  
+  $rc = JC->save(\%myconfig, \%$form);
+  
+  if ($form->{type} eq 'timecard') {
+    $form->error($locale->text('Cannot change time card for a completed job!')) if ($rc == -1);
+    $form->error($locale->text('Cannot add time card for a completed job!')) if ($rc == -2);
+    
+    if ($rc) {
+      $form->redirect($locale->text('Time Card saved!'));
+    } else {
+      $form->error($locale->text('Cannot save time card!'));
+    }
+    
+  } else {
+    $form->error($locale->text('Cannot change stores card for a completed job!')) if ($rc == -1);
+    $form->error($locale->text('Cannot add stores card for a completed job!')) if ($rc == -2);
+
+    if ($rc) {
+      $form->redirect($locale->text('Stores Card saved!'));
+    } else {
+      $form->error($locale->text('Cannot save stores card!'));
+    }
+  }
+  
+}
+
+
+sub save_as_new {
+
+  delete $form->{id};
+  &save;
+
+}
+
+
+sub print_and_save_as_new {
+
+  delete $form->{id};
+  &print_and_save;
+
+}
+
+
+sub resave {
+
+  if ($form->{print_and_save}) {
+    $form->{nextsub} = "print_and_save";
+    $msg = $locale->text('You are printing and saving an existing transaction!');
+  } else {
+    $form->{nextsub} = "save";
+    $msg = $locale->text('You are saving an existing transaction!');
+  }
+  
+  $form->{resave} = 1;
+  
+  $form->header;
+
+  print qq|
+<body>
+
+<form method=post action=$form->{script}>
+
+|;
+
+  delete $form->{action};
+
+  $form->hide_form;
+
+  print qq|
+<h2 class=confirm>|.$locale->text('Warning!').qq|</h2>
+
+<h4>$msg</h4>
+
+<button name="action" class="submit" type="submit" value="continue">|.$locale->text('Continue').qq|</button>
+</form>
+
+</body>
+</html>
+|;
+
+}
+
+
+sub print_and_save {
+
+  $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
+  $form->error($locale->text('Select a Printer!')) if $form->{media} eq 'screen';
+
+  if (! $form->{resave}) {
+    if ($form->{id}) {
+      $form->{print_and_save} = 1;
+      &resave;
+      exit;
+    }
+  }
+
+  $old_form = new Form;
+  $form->{display_form} = "save";
+  for (keys %$form) { $old_form->{$_} = $form->{$_} }
+
+  &{ "print_$form->{formname}" }($old_form);
+
+}
+
+
+sub delete_timecard {
+
+  $form->header;
+
+  $employee = $form->{employee};
+  $employee =~ s/--.*//g;
+  $projectnumber = $form->{projectnumber};
+  $projectnumber =~ s/--.*//g;
+
+  print qq|
+<body>
+
+<form method=post action=$form->{script}>
+|;
+
+  delete $form->{action};
+
+  $form->hide_form;
+
+  print qq|
+<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
+
+<h4>|.$locale->text('Are you sure you want to delete time card for').qq|
+<p>$form->{transdate}
+<br>$employee
+<br>$projectnumber
+</h4>
+
+<p>
+<button name="action" class="submit" type="submit" value="yes">|.$locale->text('Yes').qq|</button>
+</form>
+|;
+
+}
+
+
+sub delete { &{ "delete_$form->{type}" } };
+sub yes { &{ "yes_delete_$form->{type}" } };
+
+
+sub yes_delete_timecard {
+  
+  if (JC->delete_timecard(\%myconfig, \%$form)) {
+    $form->redirect($locale->text('Time Card deleted!'));
+  } else {
+    $form->error($locale->text('Cannot delete time card!'));
+  }
+
+}
+
+
+sub list_timecard {
+
+  $form->{type} = "timecard";
+
+  JC->jcitems(\%myconfig, \%$form);
+  
+  $form->{title} = $locale->text('Time Cards');
+
+  @a = qw(type direction oldsort path login sessionid project l_subtotal open closed l_time l_allocated);
+  $href = "$form->{script}?action=list_timecard";
+  for (@a) { $href .= "&$_=$form->{$_}" }
+
+  $href .= "&title=".$form->escape($form->{title});
+
+  $form->sort_order();
+
+  $callback = "$form->{script}?action=list_timecard";
+  for (@a) { $callback .= "&$_=$form->{$_}" }
+  
+  $callback .= "&title=".$form->escape($form->{title},1);
+
+  @column_index = (qw(transdate projectnumber projectdescription id partnumber description));
+  
+  push @column_index, (qw(allocated)) if $form->{l_allocated};
+  push @column_index, (qw(1 2 3 4 5 6 7));
+  
+  @column_index = $form->sort_columns(@column_index);
+  
+  if ($form->{project} eq 'job') {
+    $joblabel = $locale->text('Job Number');
+    $laborlabel = $locale->text('Labor Code');
+    $desclabel = $locale->text('Job Name');
+  } elsif ($form->{project} eq 'project') {
+    $joblabel = $locale->text('Project Number');
+    $laborlabel = $locale->text('Service Code');
+    $desclabel = $locale->text('Project Name');
+  } else {
+    $joblabel = $locale->text('Project/Job Number');
+    $laborlabel = $locale->text('Service/Labor Code');
+    $desclabel = $locale->text('Project/Job Name');
+  }
+  
+  if ($form->{projectnumber}) {
+    $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1);
+    $href .= "&projectnumber=".$form->escape($form->{projectnumber});
+    ($var) = split /--/, $form->{projectnumber};
+    $option .= "\n<br>" if ($option);
+    $option .= "$joblabel : $var";
+    @column_index = grep !/projectnumber/, @column_index;
+  }
+  if ($form->{partnumber}) {
+    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);
+    $href .= "&partnumber=".$form->escape($form->{partnumber});
+    ($var) = split /--/, $form->{partnumber};
+    $option .= "\n<br>" if ($option);
+    $option .= "$laborlabel : $var";
+    @column_index = grep !/partnumber/, @column_index;
+  }
+  if ($form->{employee}) {
+    $callback .= "&employee=".$form->escape($form->{employee},1);
+    $href .= "&employee=".$form->escape($form->{employee});
+  }
+  
+  if ($form->{startdatefrom}) {
+    $callback .= "&startdatefrom=$form->{startdatefrom}";
+    $href .= "&startdatefrom=$form->{startdatefrom}";
+    $option .= "\n<br>" if ($option);
+    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{startdatefrom}, 1);
+  }
+  if ($form->{startdateto}) {
+    $callback .= "&startdateto=$form->{startdateto}";
+    $href .= "&startdateto=$form->{startdateto}";
+    $option .= "\n<br>" if ($option);
+    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{startdateto}, 1);
+  }
+  if ($form->{open}) {
+    $callback .= "&open=$form->{open}";
+    $href .= "&open=$form->{open}";
+    $option .= "\n<br>" if ($option);
+    $option .= $locale->text('Open');
+  }
+  if ($form->{closed}) {
+    $callback .= "&closed=$form->{closed}";
+    $href .= "&closed=$form->{closed}";
+    $option .= "\n<br>" if ($option);
+    $option .= $locale->text('Closed');
+  }
+
+  %weekday = ( 1 => $locale->text('Sunday'),
+               2 => $locale->text('Monday'),
+               3 => $locale->text('Tuesday'),
+               4 => $locale->text('Wednesday'),
+               5 => $locale->text('Thursday'),
+               6 => $locale->text('Friday'),
+               7 => $locale->text('Saturday'),
+	     );
+  
+  for (keys %weekday) { $column_header{$_} = "<th class=listheading width=25>".substr($weekday{$_},0,3)."</th>" }
+  
+  $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>";
+  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
+  $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</th>";
+  $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>$joblabel</a></th>";
+  $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>$laborlabel</a></th>";
+  $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>$desclabel</a></th>";
+  $column_header{allocated} = "<th class=listheading></th>";
+
+  
+  $form->header;
+
+  if (@{ $form->{transactions} }) {
+    $sameitem = $form->{transactions}->[0]->{$form->{sort}};
+    $sameemployeenumber = $form->{transactions}->[0]->{employeenumber};
+    $employee = $form->{transactions}->[0]->{employee};
+    $sameweek = $form->{transactions}->[0]->{workweek};
+  }
+
+  print qq|
+<body>
+
+<table width=100%>
+  <tr>
+    <th class=listtop>$form->{title}</th>
+  </tr>
+  <tr height="5"></tr>
+  <tr>
+    <td>$option</td>
+  </tr>
+  <tr>
+    <td>
+      <table width=100%>
+	<tr>
+	  <th colspan=2 align=left>
+	    $employee
+	  </th>
+	  <th align=left>
+	    $sameemployeenumber
+	  </th>
+        <tr class=listheading>
+|;
+
+  for (@column_index) { print "\n$column_header{$_}" }
+  
+  print qq|
+        </tr>
+|;
+
+  # add sort and escape callback, this one we use for the add sub
+  $form->{callback} = $callback .= "&sort=$form->{sort}";
+
+  # escape callback for href
+  $callback = $form->escape($callback);
+
+  # flip direction
+  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
+  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
+
+  %total = ();
+  
+  foreach $ref (@{ $form->{transactions} }) {
+
+    if ($sameemployeenumber ne $ref->{employeenumber}) {
+      $sameemployeenumber = $ref->{employeenumber};
+      $sameweek = $ref->{workweek};
+
+      if ($form->{l_subtotal}) {
+	print qq|
+        <tr class=listsubtotal>
+|;
+
+	for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+
+	$weektotal = 0;
+	for (keys %weekday) {
+	  $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";
+	  $weektotal += $subtotal{$_};
+	  $subtotal{$_} = 0;
+	}
+    
+	$column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";
+      
+	for (@column_index) { print "\n$column_data{$_}" }
+      }
+
+      # print total
+      print qq|
+        <tr class=listtotal>
+|;
+
+      for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+
+      $total = 0;
+      for (keys %weekday) {
+	$column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", "&nbsp;")."</th>";
+	$total += $total{$_};
+	$total{$_} = 0;
+      }
+  
+      $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", "&nbsp;")."</th>";
+      
+      for (@column_index) { print "\n$column_data{$_}" }
+
+
+      print qq|
+	<tr height=30 valign=bottom>
+	  <th colspan=2 align=left>
+	    $ref->{employee}
+	  </th>
+	  <th align=left>
+	    $ref->{employeenumber}
+	  </th>
+        <tr class=listheading>
+|;
+
+      for (@column_index) { print "\n$column_header{$_}" }
+  
+      print qq|
+        </tr>
+|;
+
+    }
+
+    if ($form->{l_subtotal}) {
+      if ($ref->{workweek} != $sameweek) {
+	for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+	$weektotal = 0;
+	for (keys %weekday) {
+	  $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";
+	  $weektotal += $subtotal{$_};
+	  $subtotal{$_} = 0
+	}
+	$column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";
+	$sameweek = $ref->{workweek};
+
+	print qq|
+        <tr class=listsubtotal>
+|;
+
+	for (@column_index) { print "\n$column_data{$_}" }
+      
+	print qq|
+        </tr>
+|;
+      }
+    }
+    
+    for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
+    for (keys %weekday) { $column_data{$_} = "<td>&nbsp;</td>" }
+    
+    $column_data{allocated} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{allocated}, "", "&nbsp;")."</td>";
+    $column_data{$ref->{weekday}} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{qty}, "", "&nbsp;");
+    
+    if ($form->{l_time}) {
+      $column_data{$ref->{weekday}} .= "<br>$ref->{checkedin}<br>$ref->{checkedout}";
+    }
+    $column_data{$ref->{weekday}} .= "</td>";
+    
+    $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>";
+
+    $subtotal{$ref->{weekday}} += $ref->{qty};
+    $total{$ref->{weekday}} += $ref->{qty};
+
+    $j++; $j %= 2;
+    print qq|
+        <tr class=listrow$j>
+|;
+
+    for (@column_index) { print "\n$column_data{$_}" }
+
+    print qq|
+        </tr>
+|;
+  }
+
+  # print last subtotal
+  if ($form->{l_subtotal}) {
+    print qq|
+        <tr class=listsubtotal>
+|;
+
+    for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+
+    $weektotal = 0;
+    for (keys %weekday) {
+      $column_data{$_} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotal{$_}, "", "&nbsp;")."</th>";
+      $weektotal += $subtotal{$_};
+      }
+    
+      $column_data{$form->{sort}} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $weektotal, "", "&nbsp;")."</th>";
+	
+    for (@column_index) { print "\n$column_data{$_}" }
+  }
+
+  # print last total
+  print qq|
+        <tr class=listtotal>
+|;
+
+  for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+
+  $total = 0;
+  for (keys %weekday) {
+    $column_data{$_} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total{$_}, "", "&nbsp;")."</th>";
+    $total += $total{$_};
+    $total{$_} = 0;
+  }
+
+  $column_data{$form->{sort}} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $total, "", "&nbsp;")."</th>";
+  
+  for (@column_index) { print "\n$column_data{$_}" }
+
+  if ($form->{project} eq 'job') {
+    if ($myconfig{acs} !~ /Production--Production/) {
+      $i = 1;
+      $button{'Production--Add Time Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |;
+      $button{'Production--Add Time Card'}{order} = $i++;
+    }
+  } elsif ($form->{project} eq 'project') {
+    if ($myconfig{acs} !~ /Projects--Projects/) {
+      $i = 1;
+      $button{'Projects--Add Time Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |;
+      $button{'Projects--Add Time Card'}{order} = $i++;
+    }
+  } else {
+    if ($myconfig{acs} !~ /Time Cards--Time Cards/) {
+      $i = 1;
+      $button{'Time Cards--Add Time Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_time_card">|.$locale->text('Add Time Card').qq|</button> |;
+      $button{'Time Cards--Add Time Card'}{order} = $i++;
+    }
+  }
+
+  for (split /;/, $myconfig{acs}) { delete $button{$_} }
+
+  print qq|
+        </tr>
+      </table>
+    </td>
+  </tr>
+  <tr>
+    <td><hr size=3 noshade></td>
+  </tr>
+</table>
+
+<br>
+<form method=post action=$form->{script}>
+|;
+
+  $form->hide_form(qw(callback path login sessionid project));
+
+  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
+    print $item->{code};
+  }
+
+  if ($form->{lynx}) {
+    require "bin/menu.pl";
+    &menubar;
+  }
+
+  print qq|
+</form>
+
+</body>
+</html>
+|;
+
+} 
+
+
+sub list_storescard {
+
+  $form->{type} = "storescard";
+
+  JC->jcitems(\%myconfig, \%$form);
+  
+  $form->{title} = $locale->text('Stores Cards');
+
+  $href = "$form->{script}?action=list_storescard";
+  for (qw(type direction oldsort path login sessionid project)) { $href .= "&$_=$form->{$_}" }
+
+  $href .= "&title=".$form->escape($form->{title});
+
+  $form->sort_order();
+
+  $callback = "$form->{script}?action=list_storescard";
+  for (qw(type direction oldsort path login sessionid project)) { $callback .= "&$_=$form->{$_}" }
+  
+  $callback .= "&title=".$form->escape($form->{title},1);
+
+  @column_index = $form->sort_columns(qw(transdate projectnumber projectdescription id partnumber description qty amount));
+  
+ 
+  if ($form->{projectnumber}) {
+    $callback .= "&projectnumber=".$form->escape($form->{projectnumber},1);
+    $href .= "&projectnumber=".$form->escape($form->{projectnumber});
+    ($var) = split /--/, $form->{projectnumber};
+    $option .= "\n<br>" if ($option);
+    $option .= "$joblabel : $var";
+    @column_index = grep !/projectnumber/, @column_index;
+  }
+  if ($form->{partnumber}) {
+    $callback .= "&partnumber=".$form->escape($form->{partnumber},1);
+    $href .= "&partnumber=".$form->escape($form->{partnumber});
+    ($var) = split /--/, $form->{partnumber};
+    $option .= "\n<br>" if ($option);
+    $option .= "$laborlabel : $var";
+    @column_index = grep !/partnumber/, @column_index;
+  }
+  if ($form->{startdatefrom}) {
+    $callback .= "&startdatefrom=$form->{startdatefrom}";
+    $href .= "&startdatefrom=$form->{startdatefrom}";
+    $option .= "\n<br>" if ($option);
+    $option .= $locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{startdatefrom}, 1);
+  }
+  if ($form->{startdateto}) {
+    $callback .= "&startdateto=$form->{startdateto}";
+    $href .= "&startdateto=$form->{startdateto}";
+    $option .= "\n<br>" if ($option);
+    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{startdateto}, 1);
+  }
+  
+  $column_header{id} = "<th><a class=listheading href=$href&sort=id>" . $locale->text('ID') . "</a></th>";
+  $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>";
+  $column_header{projectnumber} = "<th><a class=listheading href=$href&sort=projectnumber>" . $locale->text('Job Number') . "</a></th>";
+  $column_header{projectdescription} = "<th><a class=listheading href=$href&sort=projectdescription>" . $locale->text('Job Description') . "</a></th>";
+  $column_header{partnumber} = "<th><a class=listheading href=$href&sort=partnumber>" . $locale->text('Part Number') . "</a></th>";
+  $column_header{description} = "<th><a class=listheading href=$href&sort=description>" . $locale->text('Description') . "</a></th>";
+  $column_header{qty} = "<th class=listheading>" . $locale->text('Qty') . "</th>";
+  $column_header{amount} = "<th class=listheading>" . $locale->text('Amount') . "</th>";
+
+  
+  $form->header;
+
+  if (@{ $form->{transactions} }) {
+    $sameitem = $form->{transactions}->[0]->{$form->{sort}};
+  }
+
+  print qq|
+<body>
+
+<table width=100%>
+  <tr>
+    <th class=listtop>$form->{title}</th>
+  </tr>
+  <tr height="5"></tr>
+  <tr>
+    <td>$option</td>
+  </tr>
+  <tr>
+    <td>
+      <table width=100%>
+        <tr class=listheading>
+|;
+
+  for (@column_index) { print "\n$column_header{$_}" }
+  
+  print qq|
+        </tr>
+|;
+
+  # add sort and escape callback, this one we use for the add sub
+  $form->{callback} = $callback .= "&sort=$form->{sort}";
+
+  # escape callback for href
+  $callback = $form->escape($callback);
+
+  # flip direction
+  $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC";
+  $href =~ s/&direction=(\w+)&/&direction=$direction&/;
+
+  $total = 0;
+  foreach $ref (@{ $form->{transactions} }) {
+
+    for (@column_index) { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" }
+      $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty}, "", "&nbsp;")."</td>";
+    $column_data{amount} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty} * $ref->{sellprice}, 2)."</td>";
+    
+    $column_data{id} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&project=$form->{project}&callback=$callback>$ref->{id}</a></td>";
+    
+    $total += ($ref->{qty} * $ref->{sellprice});
+    
+    $j++; $j %= 2;
+    print qq|
+        <tr class=listrow$j>
+|;
+
+    for (@column_index) { print "\n$column_data{$_}" }
+
+    print qq|
+        </tr>
+|;
+  }
+
+  # print total
+  print qq|
+        <tr class=listtotal>
+|;
+
+  for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+  $column_data{amount} = qq|<th align=right>|.$form->format_amount(\%myconfig, $total, 2)."</th";
+  
+  for (@column_index) { print "\n$column_data{$_}" }
+
+  if ($form->{project} eq 'job') {
+    if ($myconfig{acs} !~ /Production--Production/) {
+      $i = 1;
+      $button{'Production--Add Stores Card'}{code} = qq|<button class="submit" type="submit" name="action" value="add_stores_card">|.$locale->text('Add Stores Card').qq|</button> |;
+      $button{'Production--Add Stores Card'}{order} = $i++;
+    }
+  }
+
+  for (split /;/, $myconfig{acs}) { delete $button{$_} }
+
+  print qq|
+        </tr>
+      </table>
+    </td>
+  </tr>
+  <tr>
+    <td><hr size=3 noshade></td>
+  </tr>
+</table>
+
+<br>
+<form method=post action=$form->{script}>
+|;
+
+  $form->hide_form(qw(callback path login sessionid project));
+
+  foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
+    print $item->{code};
+  }
+
+  if ($form->{lynx}) {
+    require "bin/menu.pl";
+    &menubar;
+  }
+
+  print qq|
+</form>
+
+</body>
+</html>
+|;
+
+} 
+
+
+
+sub continue { &{ $form->{nextsub} } };
+
+sub add_time_card {
+
+  $form->{type} = "timecard";
+  &add;
+
+}
+
+
+sub add_stores_card {
+
+  $form->{type} = "storescard";
+  &add;
+
+}
+
+
+sub print_options {
+
+  if ($form->{selectlanguage}) {
+    $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
+    $form->{"selectlanguage"} =~ s/ selected//;
+    $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/;
+    $lang = qq|<select name=language_code>$form->{selectlanguage}</select>
+    <input type=hidden name=selectlanguage value="|.
+    $form->escape($form->{selectlanguage},1).qq|">|;
+  }
+  
+  $form->{selectformname} = $form->unescape($form->{selectformname});
+  $form->{selectformname} =~ s/ selected//;
+  $form->{selectformname} =~ s/(<option value="\Q$form->{formname}\E")/$1 selected/;
+  
+  $type = qq|<select name=formname>$form->{selectformname}</select>
+  <input type=hidden name=selectformname value="|.$form->escape($form->{selectformname},1).qq|">|;
+
+  $media = qq|<select name=media>
+          <option value="screen">|.$locale->text('Screen');
+
+  $form->{selectformat} = qq|<option value="html">html\n|;
+  
+  if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) {
+    for (sort keys %{LedgerSMB::Sysconfig::printer}) { $media .= qq| 
+          <option value="$_">$_| }
+  }
+
+  if (${LedgerSMB::Sysconfig::latex}) {
+    $media .= qq|
+          <option value="queue">|.$locale->text('Queue');
+	  
+    $form->{selectformat} .= qq|
+            <option value="postscript">|.$locale->text('Postscript').qq|
+	    <option value="pdf">|.$locale->text('PDF');
+  }
+
+  $format = qq|<select name=format>$form->{selectformat}</select>|;
+  $format =~ s/(<option value="\Q$form->{format}\E")/$1 selected/;
+  $format .= qq|
+  <input type=hidden name=selectformat value="|.$form->escape($form->{selectformat},1).qq|">|;
+  $media .= qq|</select>|;
+  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;
+
+  print qq|
+  <table width=100%>
+    <tr>
+      <td>$type</td>
+      <td>$lang</td>
+      <td>$format</td>
+      <td>$media</td>
+      <td align=right width=90%>
+  |;
+
+  if ($form->{printed} =~ /$form->{formname}/) {
+    print $locale->text('Printed').qq|<br>|;
+  }
+
+  if ($form->{queued} =~ /$form->{formname}/) {
+    print $locale->text('Queued');
+  }
+
+  print qq|
+      </td>
+    </tr>
+  </table>
+|;
+
+}
+
+
+sub print {
+
+  if ($form->{media} !~ /screen/) {
+    $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/;
+    $old_form = new Form;
+    for (keys %$form) { $old_form->{$_} = $form->{$_} }
+  }
+
+  &{ "print_$form->{formname}" }($old_form);
+
+}
+
+
+sub print_timecard {
+  my ($old_form) = @_;
+  
+  $display_form = ($form->{display_form}) ? $form->{display_form} : "update";
+
+  $form->{description} =~ s/^\s+//g;
+
+  for (qw(partnumber projectnumber)) { $form->{$_} =~ s/--.*// }
+
+  @a = qw(hour min sec);
+  foreach $item (qw(in out)) {
+    for (@a) { $form->{"$item$_"} = substr(qq|00$form->{"$item$_"}|, -2) }
+    $form->{"checked$item"} = qq|$form->{"${item}hour"}:$form->{"${item}min"}:$form->{"${item}sec"}|;
+  }
+  
+  @a = ();
+  for (qw(company address tel fax businessnumber)) { $form->{$_} = $myconfig{$_} }
+  $form->{address} =~ s/\\n/\n/g;
+  
+  push @a, qw(partnumber description projectnumber projectdescription);
+  push @a, qw(company address tel fax businessnumber username useremail);
+  
+  $form->format_string(@a);
+
+  $form->{total} = $form->format_amount(\%myconfig, $form->parse_amount(\%myconfig, $form->{qty}) * $form->parse_amount(\%myconfig, $form->{sellprice}), 2);
+
+  
+  ($form->{employee}, $form->{employee_id}) = split /--/, $form->{employee};
+
+  $form->{templates} = "$myconfig{templates}";
+  $form->{IN} = "$form->{formname}.html";
+
+  if ($form->{format} =~ /(postscript|pdf)/) {
+    $form->{IN} =~ s/html$/tex/;
+  }
+
+  if ($form->{media} !~ /(screen|queue)/) {
+    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{printmode} = '|-';
+
+    if ($form->{printed} !~ /$form->{formname}/) {
+      $form->{printed} .= " $form->{formname}";
+      $form->{printed} =~ s/^ //;
+
+      $form->update_status(\%myconfig);
+    }
+
+    %audittrail = ( tablename   => jcitems,
+                    reference   => $form->{id},
+		    formname    => $form->{formname},
+		    action      => 'printed',
+		    id          => $form->{id} );
+
+    %status = ();
+    for (qw(printed queued audittrail)) { $status{$_} = $form->{$_} }
+
+    $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
+
+  }
+
+  if ($form->{media} eq 'queue') {
+    %queued = split / /, $form->{queued};
+
+    if ($filename = $queued{$form->{formname}}) {
+      $form->{queued} =~ s/$form->{formname} $filename//;
+      unlink "${LedgerSMB::Sysconfig::spool}/$filename";
+      $filename =~ s/\..*$//g;
+    } else {
+      $filename = time;
+      $filename .= $$;
+    }
+
+    $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
+    $form->{OUT} = "${LedgerSMB::Sysconfig::spool}/$filename";
+    $form->{printmode} = '>';
+    
+    $form->{queued} = "$form->{formname} $filename";
+    $form->update_status(\%myconfig);
+
+    %audittrail = ( tablename   => jcitems,
+                    reference   => $form->{id},
+		    formname    => $form->{formname},
+		    action      => 'queued',
+		    id          => $form->{id} );
+
+    %status = ();
+    for (qw(printed queued audittrail)) { $status{$_} = $form->{$_} }
+
+    $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
+  }
+
+  $form->parse_template(\%myconfig, ${LedgerSMB::Sysconfig::userspath});
+
+  if (defined %$old_form) {
+
+    for (keys %$old_form) { $form->{$_} = $old_form->{$_} }
+    for (qw(printed queued audittrail)) { $form->{$_} = $status{$_} }
+    
+    &{ "$display_form" };
+    
+  }
+  
+}
+
+