From 4fff0f4b1155fa0e1085d27c891c55de08bcbd29 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 3 Nov 2007 20:31:44 +0000
Subject: Templating history search and search forms

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1846 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/ct.pl | 695 ++++++++++++++++++++------------------------------------------
 1 file changed, 225 insertions(+), 470 deletions(-)

(limited to 'bin')

diff --git a/bin/ct.pl b/bin/ct.pl
index d5cadf32..ced978cc 100644
--- a/bin/ct.pl
+++ b/bin/ct.pl
@@ -42,6 +42,7 @@
 #======================================================================
 
 use LedgerSMB::CT;
+use LedgerSMB::Template;
 
 1;
 
@@ -70,345 +71,227 @@ sub history {
     # $locale->text('Customer History')
     # $locale->text('Vendor History')
 
+    my %hiddens;
+    my @buttons;
     $history = 1;
     $label   = ucfirst $form->{db};
     $label .= " History";
 
     if ( $form->{db} eq 'customer' ) {
-        $invlabel = $locale->text('Sales Invoices');
-        $ordlabel = $locale->text('Sales Orders');
-        $quolabel = $locale->text('Quotations');
-    }
-    else {
-        $invlabel = $locale->text('Vendor Invoices');
-        $ordlabel = $locale->text('Purchase Orders');
-        $quolabel = $locale->text('Request for Quotations');
+        $form->{invlabel} = $locale->text('Sales Invoices');
+        $form->{ordlabel} = $locale->text('Sales Orders');
+        $form->{quolabel} = $locale->text('Quotations');
+    } else {
+        $form->{invlabel} = $locale->text('Vendor Invoices');
+        $form->{ordlabel} = $locale->text('Purchase Orders');
+        $form->{quolabel} = $locale->text('Request for Quotations');
     }
 
     $form->{title} = $locale->text($label);
 
     $form->{nextsub} = "list_history";
 
-    $transactions = qq|
- 	<tr>
-	  <td></td>
-	  <td>
-	    <table>
-	      <tr>
-	        <td>
-		  <table>
-		    <tr>
-		      <td><input name=type type=radio class=radio value=invoice checked> $invlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name=type type=radio class=radio value=order> $ordlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="type" type=radio class=radio value=quotation> $quolabel</td>
-		    </tr>
-		  </table>
-		</td>
-		<td>
-		  <table>
-		    <tr>
-		      <th>| . $locale->text('From') . qq|</th>
-		      <td><input class="date" name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-		      <th>| . $locale->text('To') . qq|</th>
-		      <td><input class="date" name=transdateto size=11 title="$myconfig{dateformat}"></td>
-		    </tr>
-		    <tr>
-		      <td></td>
-		      <td colspan=3>
-	              <input name="open" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Open') . qq|
-	              <input name="closed" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Closed') . qq|
-		      </td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
- 	    </table>
-	  </td>
-	</tr>
-|;
-
-    $include = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
-	  <td>
-	    <table>
-	      <tr>
-		<td><input name=history type=radio class=radio value=summary checked> |
-      . $locale->text('Summary')
-      . qq|</td>
-		<td><input name=history type=radio class=radio value=detail> |
-      . $locale->text('Detail') . qq|
-		</td>
-	      </tr>
-	      <tr>
-		<td>
-		<input name="l_partnumber" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Part Number') . qq|
-		</td>
-		<td>
-		<input name="l_description" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Description') . qq|
-		</td>
-		<td>
-		<input name="l_sellprice" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Sell Price') . qq|
-		</td>
-		<td>
-		<input name="l_curr" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Currency') . qq|
-		</td>
-	      </tr>
-	      <tr>
-		<td>
-		<input name="l_qty" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Qty') . qq|
-		</td>
-		<td>
-		<input name="l_unit" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Unit') . qq|
-		</td>
-		<td>
-		<input name="l_discount" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Discount') . qq|
-		</td>
-	      <tr>
-	      </tr>
-		<td>
-		<input name="l_deliverydate" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Delivery Date') . qq|
-		</td>
-		<td>
-		<input name="l_projectnumber" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Project Number') . qq|
-		</td>
-		<td>
-		<input name="l_serialnumber" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Serial Number') . qq|
-		</td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-|;
-
-    &search_name;
-
-    if ( $form->{lynx} ) {
-        require "bin/menu.pl";
-        &menubar;
-    }
-
-    print qq|
-</body>
-</html>
-|;
-
+    &search_name(\%hiddens, \@buttons);
+
+##SC: Temporary removal
+##    if ( $form->{lynx} ) {
+##        require "bin/menu.pl";
+##        &menubar;
+##    }
+
+    my $template = LedgerSMB::Template->new_UI(
+        user => \%myconfig, 
+        locale => $locale, 
+        template => 'ct-search',
+        );
+    $template->render({
+        form => $form,
+        user => \%myconfig, 
+        hiddens => \%hiddens,
+        buttons => \@buttons,
+    });
 }
 
 sub transactions {
-
     if ( $form->{db} eq 'customer' ) {
-        $translabel = $locale->text('AR Transactions');
-        $invlabel   = $locale->text('Sales Invoices');
-        $ordlabel   = $locale->text('Sales Orders');
-        $quolabel   = $locale->text('Quotations');
+        $form->{translabel} = $locale->text('AR Transactions');
+        $form->{invlabel}   = $locale->text('Sales Invoices');
+        $form->{ordlabel}   = $locale->text('Sales Orders');
+        $form->{quolabel}   = $locale->text('Quotations');
+    } else {
+        $form->{translabel} = $locale->text('AP Transactions');
+        $form->{invlabel}   = $locale->text('Vendor Invoices');
+        $form->{ordlabel}   = $locale->text('Purchase Orders');
+        $form->{quolabel}   = $locale->text('Request for Quotations');
     }
-    else {
-        $translabel = $locale->text('AP Transactions');
-        $invlabel   = $locale->text('Vendor Invoices');
-        $ordlabel   = $locale->text('Purchase Orders');
-        $quolabel   = $locale->text('Request for Quotations');
-    }
-
-    $transactions = qq|
- 	<tr>
-	  <td></td>
-	  <td>
-	    <table>
-	      <tr>
-	        <td>
-		  <table>
-		    <tr>
-		      <td><input name="l_transnumber" type=checkbox class=checkbox value=Y> $translabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> $invlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> $ordlabel</td>
-		    </tr>
-		    <tr>
-		      <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> $quolabel</td>
-		    </tr>
-		  </table>
-		</td>
-		<td>
-		  <table>
-		    <tr>
-		      <th>| . $locale->text('From') . qq|</th>
-		      <td><input class="date" name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
-		      <th>| . $locale->text('To') . qq|</th>
-		      <td><input class="date" name=transdateto size=11 title="$myconfig{dateformat}"></td>
-		    </tr>
-		    <tr>
-		      <td></td>
-		      <td colspan=3>
-	              <input name="open" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Open') . qq|
-	              <input name="closed" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Closed') . qq|
-		      </td>
-		    </tr>
-		    <tr>
-		      <td></td>
-		      <td colspan=3>
-	              <input name="l_amount" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Amount') . qq|
-	              <input name="l_tax" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Tax') . qq|
-	              <input name="l_total" type=checkbox class=checkbox value=Y checked>&nbsp;|
-      . $locale->text('Total') . qq|
-	              <input name="l_subtotal" type=checkbox class=checkbox value=Y>&nbsp;|
-      . $locale->text('Subtotal') . qq|
-		      </td>
-		    </tr>
-		  </table>
-		</td>
-	      </tr>
- 	    </table>
-	  </td>
-	</tr>
-|;
-
 }
 
 sub include_in_report {
 
     $label = ucfirst $form->{db};
 
-    @a = ();
-
-    push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> |
-      . $locale->text('No.');
-    push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> |
-      . $locale->text('ID');
-    push @a,
-qq|<input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |
-      . $locale->text( $label . ' Number' );
-    push @a,
-qq|<input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |
-      . $locale->text('Company Name');
-    push @a,
-qq|<input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |
-      . $locale->text('Contact');
-    push @a,
-qq|<input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |
-      . $locale->text('E-mail');
-    push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Address');
-    push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> |
-      . $locale->text('City');
-    push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> |
-      . $locale->text('State/Province');
-    push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Zip/Postal Code');
-    push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Country');
-    push @a,
-qq|<input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |
-      . $locale->text('Phone');
-    push @a, qq|<input name="l_fax" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Fax');
-    push @a, qq|<input name="l_cc" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Cc');
+    my @fields = ();
+
+    push @fields, {
+        name => 'l_ndx',
+        label => $locale->text('No.'),
+        };
+    push @fields, {
+        name => 'l_id',
+        label => $locale->text('ID'),
+        };
+    push @fields, {
+        name => "l_$form->{db}number",
+        label => $locale->text($label . ' Number'),
+        };
+    push @fields, {
+        name => 'l_name',
+        label => $locale->text('Company Name'),
+        $form->{l_name} => $form->{l_name},
+        };
+    push @fields, {
+        name => 'l_contact',
+        label => $locale->text('Contact'),
+        $form->{l_contact} => $form->{l_contact},
+        };
+    push @fields, {
+        name => 'l_email',
+        label => $locale->text('E-mail'),
+        $form->{l_email} => $form->{l_email},
+        };
+    push @fields, {
+        name => 'l_address',
+        label => $locale->text('Address'),
+        };
+    push @fields, {
+        name => 'l_city',
+        label => $locale->text('City'),
+        };
+    push @fields, {
+        name => 'l_state',
+        label => $locale->text('State/Province'),
+        };
+    push @fields, {
+        name => 'l_zipcode',
+        label => $locale->text('Zip/Postal Code'),
+        };
+    push @fields, {
+        name => 'l_country',
+        label => $locale->text('Country'),
+        };
+    push @fields, {
+        name => 'l_phone',
+        label => $locale->text('Phone'),
+        $form->{l_phone} => $form->{l_phone},
+        };
+    push @fields, {
+        name => 'l_fax',
+        label => $locale->text('Fax'),
+        };
+    push @fields, {
+        name => 'l_cc',
+        label => $locale->text('Cc'),
+        };
 
     if ( $myconfig{role} =~ /(admin|manager)/ ) {
-        push @a, qq|<input name="l_bcc" type=checkbox class=checkbox value=Y> |
-          . $locale->text('Bcc');
-    }
-
-    push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Notes');
-    push @a, qq|<input name="l_discount" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Discount');
-    push @a,
-      qq|<input name="l_taxaccount" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Tax Account');
-    push @a,
-      qq|<input name="l_taxnumber" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Tax Number');
+        push @fields, {
+            name => 'l_bcc',
+            label => $locale->text('Bcc'),
+            };
+    }
+
+    push @fields, {
+        name => 'l_notes',
+        label => $locale->text('Notes'),
+        };
+    push @fields, {
+        name => 'l_discount',
+        label => $locale->text('Discount'),
+        };
+    push @fields, {
+        name => 'l_taxaccount',
+        label => $locale->text('Tax Account'),
+        };
+    push @fields, {
+        name => 'l_taxnumber',
+        label => $locale->text('Tax Number'),
+        };
 
     if ( $form->{db} eq 'customer' ) {
-        push @a,
-          qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |
-          . $locale->text('Salesperson');
-        push @a,
-          qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |
-          . $locale->text('Manager');
-        push @a,
-          qq|<input name="l_pricegroup" type=checkbox class=checkbox value=Y> |
-          . $locale->text('Pricegroup');
-
-    }
-    else {
-        push @a,
-          qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |
-          . $locale->text('Employee');
-        push @a,
-          qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |
-          . $locale->text('Manager');
-        push @a,
-          qq|<input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |
-          . $locale->text('GIFI');
-
-    }
-
-    push @a, qq|<input name="l_sic_code" type=checkbox class=checkbox value=Y> |
-      . $locale->text('SIC');
-    push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> |
-      . $locale->text('IBAN');
-    push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> |
-      . $locale->text('BIC');
-    push @a, qq|<input name="l_business" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Type of Business');
-    push @a, qq|<input name="l_terms" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Terms');
-    push @a, qq|<input name="l_language" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Language');
-    push @a,
-      qq|<input name="l_startdate" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Startdate');
-    push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y> |
-      . $locale->text('Enddate');
-
-    $include = qq|
-	<tr>
-	  <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
-	  <td>
-	    <table>
-|;
-
-    while (@a) {
-        $include .= qq|<tr>\n|;
+        push @fields, {
+            name => 'l_employee',
+            label => $locale->text('Salesperson'),
+            };
+        push @fields, {
+            name => 'l_manager',
+            label => $locale->text('Manager'),
+            };
+        push @fields, {
+            name => 'l_pricegroup',
+            label => $locale->text('Pricegroup'),
+            };
+
+    } else {
+        push @fields, {
+            name => 'l_employee',
+            label => $locale->text('Employee'),
+            };
+        push @fields, {
+            name => 'l_manager',
+            label => $locale->text('Manager'),
+            };
+        push @fields, {
+            name => 'l_gifi_accno',
+            label => $locale->text('GIFI'),
+            };
+    }
+
+    push @fields, {
+        name => 'l_sic_code',
+        label => $locale->text('SIC'),
+        };
+    push @fields, {
+        name => 'l_iban',
+        label => $locale->text('IBAN'),
+        };
+    push @fields, {
+        name => 'l_bic',
+        label => $locale->text('BIC'),
+        };
+    push @fields, {
+        name => 'l_business',
+        label => $locale->text('Type of Business'),
+        };
+    push @fields, {
+        name => 'l_terms',
+        label => $locale->text('Terms'),
+        };
+    push @fields, {
+        name => 'l_langauge',
+        label => $locale->text('Language'),
+        };
+    push @fields, {
+        name => 'l_startdate',
+        label => $locale->text('Startdate'),
+        };
+    push @fields, {
+        name => 'l_enddate',
+        label => $locale->text('Enddate'),
+        };
+
+    $form->{includes} = [];
+    my $i = 0;
+    while (@fields) {
+        push @{$form->{includes}}, [];
         for ( 1 .. 5 ) {
-            $include .= qq|<td nowrap>| . shift @a;
-            $include .= qq|</td>\n|;
+            push @{$form->{includes}[$i]}, shift(@fields);
+            if ($form->{includes}[$i][$_ - 1]) {
+                $form->{includes}[$i][$_ - 1]{type} = 'checkbox';
+                $form->{includes}[$i][$_ - 1]{value} = 'Y';
+            }
         }
-        $include .= qq|</tr>\n|;
+        $i++;
     }
-
-    $include .= qq|
-	    </table>
-	  </td>
-	</tr>
-|;
-
 }
 
 sub search {
@@ -416,178 +299,50 @@ sub search {
     # $locale->text('Customers')
     # $locale->text('Vendors')
 
+    my %hiddens;
+    my @buttons;
     $form->{title} = $locale->text('Search') unless $form->{title};
 
     for (qw(name contact phone email)) { $form->{"l_$_"} = 'checked' }
 
     $form->{nextsub} = "list_names";
 
-    $orphan = qq|
-	<tr>
-	  <td></td>
-	  <td><input name=status class=radio type=radio value=all checked>&nbsp;|
-      . $locale->text('All') . qq|
-	  <input name=status class=radio type=radio value=active>&nbsp;|
-      . $locale->text('Active') . qq|
-	  <input name=status class=radio type=radio value=inactive>&nbsp;|
-      . $locale->text('Inactive') . qq|
-	  <input name=status class=radio type=radio value=orphaned>&nbsp;|
-      . $locale->text('Orphaned')
-      . qq|</td>
-	</tr>
-|;
-
     &transactions;
     &include_in_report;
-    &search_name;
-
-    if ( $form->{lynx} ) {
-        require "bin/menu.pl";
-        &menubar;
-    }
-
-    print qq|
-	      
-</body>
-</html>
-|;
-
+    &search_name(\%hiddens, \@buttons);
+
+##SC: Temporary removal
+##    if ( $form->{lynx} ) {
+##        require "bin/menu.pl";
+##        &menubar;
+##    }
+
+    my $template = LedgerSMB::Template->new_UI(
+        user => \%myconfig, 
+        locale => $locale, 
+        template => 'ct-search',
+        );
+    $template->render({
+        form => $form,
+        user => \%myconfig, 
+        hiddens => \%hiddens,
+        buttons => \@buttons,
+    });
 }
 
 sub search_name {
 
-    $label = ucfirst $form->{db};
-
-    if ( $form->{db} eq 'customer' ) {
-        $employee = qq|
- 	  <th align=right nowrap>| . $locale->text('Salesperson') . qq|</th>
-	  <td><input name=employee size=32></td>
-|;
-    }
-    if ( $form->{db} eq 'vendor' ) {
-        $employee = qq|
- 	  <th align=right nowrap>| . $locale->text('Employee') . qq|</th>
-	  <td><input name=employee size=32></td>
-|;
-    }
-
-    $form->header;
-
-    print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=db value=$form->{db}>
-
-<table width=100%>
-  <tr>
-    <th class=listtop>$form->{title}</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr valign=top>
-    <td>
-      <table>
-	<tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
-		<td><input name=name size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Contact') . qq|</th>
-		<td><input name=contact size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
-		<td><input name=email size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Phone') . qq|</th>
-		<td><input name=phone size=20></td>
-	      </tr>
-	      <tr>
-		$employee
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Notes') . qq|</th>
-		<td colspan=3><textarea name=notes rows=3 cols=32></textarea></td>
-	      </tr>
-	    </table>
-	  </td>
-
-	  <td>
-	    <table>
-	      <tr>
-		<th align=right nowrap>| . $locale->text( $label . ' Number' ) . qq|</th>
-		<td><input name=$form->{db}number size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Address') . qq|</th>
-		<td><input name=address size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('City') . qq|</th>
-		<td><input name=city size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('State/Province') . qq|</th>
-		<td><input name=state size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Zip/Postal Code') . qq|</th>
-		<td><input name=zipcode size=10></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Country') . qq|</th>
-		<td><input name=country size=32></td>
-	      </tr>
-	      <tr>
-		<th align=right nowrap>| . $locale->text('Startdate') . qq|</th>
-		<td>|
-      . $locale->text('From')
-      . qq| <input class="date" name=startdatefrom size=11 title="$myconfig{dateformat}"> |
-      . $locale->text('To')
-      . qq| <input class="date" name=startdateto size=11 title="$myconfig{dateformat}"></td>
-	      </tr>
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  </tr>
-
-  <tr>
-    <td>
-      <table>
-
-	$orphan
-	$transactions
-	$include
-
-      </table>
-    </td>
-  </tr>
-
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type="hidden" name="nextsub" value="$form->{nextsub}">
-
-<input type="hidden" name="path" value="$form->{path}">
-<input type="hidden" name="login" value="$form->{login}">
-<input type="hidden" name="sessionid" value="$form->{sessionid}">
-
-<br>
-<button type="submit" class="submit" name="action" value="continue">|
-      . $locale->text('Continue')
-      . qq|</button>
-</form>
-|;
-
+    my $hiddens = shift;
+    my $buttons = shift;
+
+    my $label = ucfirst $form->{db};
+    $form->{label} = $label;
+    $hiddens->{$_} = $form->{$_} foreach qw(db nextsub path login sessionid);
+    push @{$buttons}, {
+        name => 'action',
+        value => 'continue',
+        text => $locale->text('Continue'),
+        };
 }
 
 sub list_names {
-- 
cgit v1.2.3