- $description = $form->escape($form->{description});
- $gifi_description = $form->escape($form->{gifi_description});
- $department = $form->escape($form->{department});
- $projectnumber = $form->escape($form->{projectnumber});
- $title = $form->escape($form->{title});
-
- # construct href
- $href = "$form->{script}?path=$form->{path}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&gifi_accno=$form->{gifi_accno}&gifi_description=$gifi_description&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title";
-
-
- $description = $form->escape($form->{description},1);
- $gifi_description = $form->escape($form->{gifi_description},1);
- $department = $form->escape($form->{department},1);
- $projectnumber = $form->escape($form->{projectnumber},1);
- $title = $form->escape($form->{title},1);
-
- # construct callback
- $callback = "$form->{script}?path=$form->{path}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&password=$form->{password}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&gifi_accno=$form->{gifi_accno}&gifi_description=$gifi_description&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title";
-
- # figure out which column comes first
- $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|;
- $column_header{reference} = qq|<th><a class=listheading href=$href&sort=reference>|.$locale->text('Reference').qq|</a></th>|;
- $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
- $column_header{debit} = qq|<th>|.$locale->text('Debit').qq|</th>|;
- $column_header{credit} = qq|<th>|.$locale->text('Credit').qq|</th>|;
- $column_header{balance} = qq|<th>|.$locale->text('Balance').qq|</th>|;
-
- @column_index = $form->sort_columns(qw(transdate reference description debit credit));
-
- if ($form->{accounttype} eq 'gifi') {
- map { $form->{$_} = $form->{"gifi_$_"} } qw(accno description);
- }
- if ($form->{accno}) {
- push @column_index, "balance";
- }
-
- $form->{title} = ($form->{accounttype} eq 'gifi') ? $locale->text('GIFI') : $locale->text('Account');
-
- $form->{title} .= " $form->{accno} - $form->{description}";