Switch the inventory activity report to the dynatable

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1802 4979c152-3d1c-0410-bac9-87ea11338e46
author: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> 2007-10-22 02:33:18 +0000
committer: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> 2007-10-22 02:33:18 +0000
commit: 66c847697b2cb8e29dd04cd118309d50375a7e42 (patch)
tree: 2405152f82d34e096182d62931c24984561aa954 /bin
parent: 053115f1d3edddea318a249bf25536cfa2ec0e4f (diff)
1 files changed, 87 insertions, 106 deletions
diff --git a/bin/rp.pl b/bin/rp.pl
index 406d864f..9e7523ac 100644
--- a/bin/rp.pl
+++ b/bin/rp.pl
@@ -865,12 +865,13 @@ $gifi
 sub continue { &{ $form->{nextsub} } }
 
 sub generate_inv_activity {
-    $form->header;
+    
+    my %hiddens;
+    my @options;
+    my $title = $form->{title};
 
     RP->inventory_activity( \%myconfig, \%$form );
 
-    $title = $form->escape( $form->{title} );
-
     #  if ($form->{department}) {
     #    ($department) = split /--/, $form->{department};
     #    $options = $locale->text('Department')." : $department<br>";
@@ -892,68 +893,52 @@ sub generate_inv_activity {
         }
 
         $form->{period} = "$fromdate - $todate";
-    }
-    else {
+    } else {
         $form->{period} =
           $locale->date( \%myconfig, $form->current_date( \%myconfig ), 1 );
 
     }
-    $options .= $form->{period};
+    push @options, $form->{period};
 
-    @column_index = qw(partnumber description sold revenue received expense);
+    my @column_index = qw(partnumber description sold revenue received expense);
 
-    $href =
+    my $href =
 qq|rp.pl?path=$form->{path}&action=continue&accounttype=$form->{accounttype}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}|;
 
-    $column_header{partnumber} = qq|
-	<th class=listheading><a class=listheading href="$href&sort_col=partnumber">|
-      . $locale->text('Part Number') . qq|</a></th>|;
-    $column_header{description} = qq|
-	<th class=listheading><a class=listheading href="$href&sort_col=description">|
-      . $locale->text('Description') . qq|</a></th>|;
-    $column_header{sold} = qq|
-	<th class=listheading><a class=listheading href="$href&sort_col=sold">|
-      . $locale->text('Sold') . qq|</a></th>|;
-    $column_header{revenue} = qq|
-	<th class=listheading><a class=listheading href="$href&sort_col=revenue">|
-      . $locale->text('Revenue') . qq|</a></th>|;
-    $column_header{received} = qq|
-	<th class=listheading><a class=listheading href="$href&sort_col=received">|
-      . $locale->text('Received') . qq|</a></th>|;
-    $column_header{expense} = qq|
-	<th class=listheading><a class=listheading href="$href&sort_col=expense">|
-      . $locale->text('Expense') . qq|</a></th>|;
-
-    print qq|
-<body>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>$options</td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-	<tr>|;
-
-    map { print "$column_header{$_}\n" } @column_index;
-
-    print qq|
-        </tr>
-|;
+    my %column_header;
+    $column_header{partnumber} = {
+        text => $locale->text('Part Number'),
+        href => "$href&sort_col=partnumber",
+        };
+    $column_header{description} = {
+        text => $locale->text('Description'),
+        href => "$href&sort_col=description",
+        };
+    $column_header{sold} = {
+        text => $locale->text('Sold'),
+        href => "$href&sort_col=sold",
+        };
+    $column_header{revenue} = {
+        text => $locale->text('Revenue'),
+        href => "$href&sort_col=revenue",
+        };
+    $column_header{received} = {
+        text => $locale->text('Received'),
+        href => "$href&sort_col=received",
+        };
+    $column_header{expense} = {
+        text => $locale->text('Expense'),
+        href => "$href&sort_col=expense",
+        };
 
     if ( $form->{sort_col} eq 'qty' || $form->{sort_col} eq 'revenue' ) {
         $form->{sort_type} = 'numeric';
     }
-    $i    = 0;
-    $cols = "l_transdate=Y&l_name=Y&l_invnumber=Y&summary=1";
-    $dates =
+    my $i    = 0;
+    my $cols = "l_transdate=Y&l_name=Y&l_invnumber=Y&summary=1";
+    my $dates =
 "transdatefrom=$form->{fromdate}&transdateto=$form->{todate}&year=$form->{fromyear}&month=$form->{frommonth}&interval=$form->{interval}";
-    $base =
+    my $base =
       "path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
 
     $form->{callback} = "rp.pl?action=continue&$base";
@@ -961,9 +946,12 @@ qq|rp.pl?path=$form->{path}&action=continue&accounttype=$form->{accounttype}&log
     $callback         = "callback=$form->{callback}";
 
     # sort the whole thing by account numbers and display
-    foreach $ref ( @{ $form->{TB} } ) {
-        $description = $form->escape( $ref->{description} );
-        $i           = $i % 2;
+    my @rows;
+    foreach my $ref ( @{ $form->{TB} } ) {
+        my $description = $form->escape( $ref->{description} );
+        my %column_data;
+        $i = $i % 2;
+        $column_data{i} = $i;
 
         $pnumhref =
           "ic.pl?action=edit&id=$ref->{id}&$base&callback=$form->{callback}";
@@ -974,47 +962,52 @@ qq|rp.pl?path=$form->{path}&action=continue&accounttype=$form->{accounttype}&log
 
         $ml = ( $ref->{category} =~ /(A|E)/ ) ? -1 : 1;
 
-        $debit = $form->format_amount( \%myconfig, $ref->{debit}, 2, "&nbsp;" );
+        $debit = $form->format_amount( \%myconfig, $ref->{debit}, 2, " " );
         $credit =
-          $form->format_amount( \%myconfig, $ref->{credit}, 2, "&nbsp;" );
+          $form->format_amount( \%myconfig, $ref->{credit}, 2, " " );
         $begbalance =
-          $form->format_amount( \%myconfig, $ref->{balance} * $ml, 2,
-            "&nbsp;" );
+          $form->format_amount( \%myconfig, $ref->{balance} * $ml, 2, " " );
         $endbalance =
           $form->format_amount( \%myconfig,
             ( $ref->{balance} + $ref->{amount} ) * $ml,
-            2, "&nbsp;" );
+            2, " " );
 
-        $ref->{partnumber} = qq|<a href="$pnumhref">$ref->{partnumber}</a>|;
-        $ref->{sold}       = qq|<a href="$soldhref">$ref->{sold}</a>|;
-        $ref->{received}   = qq|<a href="$rechref">$ref->{received}<a/>|;
-        map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
-
-        print qq|
-      <tr class=listrow$i>
-      |;
-        map { print "<td>$ref->{$_}</td>\n" } @column_index;
+        $column_data{partnumber} = {
+            text => $ref->{partnumber},
+            href => $pnumhref,
+            };
+        $column_data{sold} = {
+            text => $ref->{sold},
+            href => $soldhref,
+            };
+        $column_data{received} = {
+            text => $ref->{received},
+            href => $rechref,
+            };
 
-        print qq|
-      </tr>
-|;
+        push @rows, \%column_data;
         ++$i;
     }
 
-    print qq|
-	</tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-</body>
-</html>
-|;
-
+    my $template = LedgerSMB::Template->new_UI(
+        user => \%myconfig, 
+        locale => $locale, 
+        template => 'form-dynatable',
+        );
+    $template->render({
+        form => $form,
+        hiddens => \%hiddens,
+        options => \@options,
+        columns => \@column_index,
+        heading => \%column_header,
+        rows => \@rows,
+        row_alignment => {
+            sold => 'right',
+            revenue => 'right',
+            received => 'right',
+            expense => 'right',
+            },
+    });
 }
 
 sub generate_income_statement {
@@ -2080,29 +2073,18 @@ sub print_form {
     $form->{templates} = "$myconfig{templates}";
 
     # setup variables for the form
-    @a = qw(company address businessnumber tel fax);
-    for (@a) { $form->{$_} = $myconfig{$_} }
+    my @vars = qw(company address businessnumber tel fax);
+    for (@vars) { $form->{$_} = $myconfig{$_} }
     $form->{address} =~ s/\\n/\n/g;
 
-    $form->format_string(@a);
-
-    $form->{IN} = "$form->{type}.html";
-
-    if ( $form->{format} eq 'postscript' ) {
-        $form->{IN} =~ s/html$/tex/;
-    }
-    if ( $form->{format} eq 'pdf' ) {
-        $form->{IN} =~ s/html$/tex/;
-    }
-
-    @a = qw(name address1 address2 city state zipcode country contact);
-    push @a, "$form->{ct}phone", "$form->{ct}fax", "$form->{ct}taxnumber";
-    push @a, 'email' if !$form->{media} eq 'email';
+    @vars = qw(name address1 address2 city state zipcode country contact);
+    push @vars, "$form->{ct}phone", "$form->{ct}fax", "$form->{ct}taxnumber";
+    push @vars, 'email' if !$form->{media} eq 'email';
 
-    $i = 0;
+    my $i = 0;
     while ( @{ $form->{AG} } ) {
 
-        $ref = shift @{ $form->{AG} };
+        my $ref = shift @{ $form->{AG} };
 
         if ( $ctid != $ref->{ctid} ) {
 
@@ -2111,8 +2093,7 @@ sub print_form {
 
             if ( $form->{"statement_$i"} ) {
 
-                for (@a) { $form->{$_} = $ref->{$_} }
-                $form->format_string(@a);
+                for (@vars) { $form->{$_} = $ref->{$_} }
 
                 $form->{ $form->{ct} }    = $form->{name};
                 $form->{"$form->{ct}_id"} = $ref->{ctid};
author	tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>	2007-10-22 02:33:18 +0000
committer	tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>	2007-10-22 02:33:18 +0000
commit	66c847697b2cb8e29dd04cd118309d50375a7e42 (patch)
tree	2405152f82d34e096182d62931c24984561aa954 /bin
parent	053115f1d3edddea318a249bf25536cfa2ec0e4f (diff)