#! /bin/sh /usr/share/dpatch/dpatch-run
## 15company-website.dpatch by  <roberto@connexer.com>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Allow for company website

@DPATCH@

diff -uNr sql-ledger-2.6.22.orig/SL/User.pm sql-ledger-2.6.22/SL/User.pm
--- sql-ledger-2.6.22.orig/SL/User.pm	2006-09-09 18:50:23.000000000 -0400
+++ sql-ledger-2.6.22/SL/User.pm	2007-08-29 20:54:16.000000000 -0400
@@ -947,7 +947,7 @@
              dateformat dbconnect dbdriver dbhost dbname dboptions
 	     dbpasswd dbport dbuser email fax menuwidth name numberformat
 	     password printer sessionkey role sid signature stylesheet tel
-	     templates timeout vclimit);
+	     templates timeout vclimit website);
 
   @conf;
 
diff -uNr sql-ledger-2.6.22.orig/bin/lynx/admin.pl sql-ledger-2.6.22/bin/lynx/admin.pl
--- sql-ledger-2.6.22.orig/bin/lynx/admin.pl	2006-09-10 14:00:18.000000000 -0400
+++ sql-ledger-2.6.22/bin/lynx/admin.pl	2007-08-29 21:00:28.000000000 -0400
@@ -536,6 +536,10 @@
 	  <th align=right>|.$locale->text('Address').qq|</th>
 	  <td><textarea name=address rows=4 cols=35>$myconfig->{address}</textarea></td>
 	</tr>
+	<tr>
+	  <th align=right>|.$locale->text('Website').qq|</th>
+	  <td><input name=website size=35 value="$myconfig{address}"</td>
+	</tr>
       </table>
     </td>
     <td>
diff -uNr sql-ledger-2.6.22.orig/bin/lynx/am.pl sql-ledger-2.6.22/bin/lynx/am.pl
--- sql-ledger-2.6.22.orig/bin/lynx/am.pl	2006-11-22 13:26:09.000000000 -0500
+++ sql-ledger-2.6.22/bin/lynx/am.pl	2007-08-29 20:59:58.000000000 -0400
@@ -2109,6 +2109,10 @@
 		<th align=right>|.$locale->text('Address').qq|</th>
 		<td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td>
 	      </tr>
+	      <tr>
+		<th align=right>|.$locale->text('Website').qq|</th>
+		<td><input name=website size=35 value="$myconfig{website}"></td>
+	      </tr>
 	    </table>
 	  </td>
 	  <td>
diff -uNr sql-ledger-2.6.22.orig/bin/lynx/io.pl sql-ledger-2.6.22/bin/lynx/io.pl
--- sql-ledger-2.6.22.orig/bin/lynx/io.pl	2006-11-13 17:17:35.000000000 -0500
+++ sql-ledger-2.6.22/bin/lynx/io.pl	2007-08-29 21:03:05.000000000 -0400
@@ -1372,12 +1372,12 @@
 
   push @a, ("${inv}number", "${inv}date", "${due}date");
   
-  for (qw(company address tel fax businessnumber)) { $form->{$_} = $myconfig{$_} }
+  for (qw(company address website tel fax businessnumber)) { $form->{$_} = $myconfig{$_} }
   $form->{address} =~ s/\\n/\n/g;
 
   for (qw(name email)) { $form->{"user$_"} = $myconfig{$_} }
 
-  push @a, qw(company address tel fax businessnumber username useremail);
+  push @a, qw(company address website tel fax businessnumber username useremail);
 
   for (qw(notes intnotes)) { $form->{$_} =~ s/^\s+//g }
   
diff -uNr sql-ledger-2.6.22.orig/bin/mozilla/admin.pl sql-ledger-2.6.22/bin/mozilla/admin.pl
--- sql-ledger-2.6.22.orig/bin/mozilla/admin.pl	2006-09-10 14:00:18.000000000 -0400
+++ sql-ledger-2.6.22/bin/mozilla/admin.pl	2007-08-29 21:00:10.000000000 -0400
@@ -536,6 +536,10 @@
 	  <th align=right>|.$locale->text('Address').qq|</th>
 	  <td><textarea name=address rows=4 cols=35>$myconfig->{address}</textarea></td>
 	</tr>
+	<tr>
+	  <th align=right>|.$locale->text('Website').qq|</th>
+	  <td><input name=website size=35 value="$myconfig{address}"</td>
+	</tr>
       </table>
     </td>
     <td>
diff -uNr sql-ledger-2.6.22.orig/bin/mozilla/am.pl sql-ledger-2.6.22/bin/mozilla/am.pl
--- sql-ledger-2.6.22.orig/bin/mozilla/am.pl	2006-11-22 13:26:09.000000000 -0500
+++ sql-ledger-2.6.22/bin/mozilla/am.pl	2007-08-29 20:59:37.000000000 -0400
@@ -2109,6 +2109,10 @@
 		<th align=right>|.$locale->text('Address').qq|</th>
 		<td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td>
 	      </tr>
+	      <tr>
+		<th align=right>|.$locale->text('Website').qq|</th>
+		<td><input name=website size=35 value="$myconfig{website}"></td>
+	      </tr>
 	    </table>
 	  </td>
 	  <td>
diff -uNr sql-ledger-2.6.22.orig/bin/mozilla/io.pl sql-ledger-2.6.22/bin/mozilla/io.pl
--- sql-ledger-2.6.22.orig/bin/mozilla/io.pl	2006-11-13 17:17:35.000000000 -0500
+++ sql-ledger-2.6.22/bin/mozilla/io.pl	2007-08-29 21:02:02.000000000 -0400
@@ -1372,12 +1372,12 @@
 
   push @a, ("${inv}number", "${inv}date", "${due}date");
   
-  for (qw(company address tel fax businessnumber)) { $form->{$_} = $myconfig{$_} }
+  for (qw(company address website tel fax businessnumber)) { $form->{$_} = $myconfig{$_} }
   $form->{address} =~ s/\\n/\n/g;
 
   for (qw(name email)) { $form->{"user$_"} = $myconfig{$_} }
 
-  push @a, qw(company address tel fax businessnumber username useremail);
+  push @a, qw(company address website tel fax businessnumber username useremail);
 
   for (qw(notes intnotes)) { $form->{$_} =~ s/^\s+//g }