Templating the user preferences screen

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1709 4979c152-3d1c-0410-bac9-87ea11338e46
author: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> 2007-10-06 16:02:18 +0000
committer: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> 2007-10-06 16:02:18 +0000
commit: c521480c08b3aa51cad3dfae1dda4f7608f85358 (patch)
tree: 38dc43edacf109acafd86e59139bcd4aa9676e72
parent: b094dd8ef0254e1ac73bb4b2127288aad41d6d55 (diff)
2 files changed, 171 insertions, 157 deletions
diff --git a/UI/am-userconfig.html b/UI/am-userconfig.html
new file mode 100644
index 00000000..c6ca2fbc
--- /dev/null
+++ b/UI/am-userconfig.html
@@ -0,0 +1,110 @@
+<?lsmb INCLUDE 'ui-header.html' ?> 
+<?lsmb PROCESS elements.html ?> 
+<body>
+<form method="post" action="<?lsmb form.script ?>">
+
+<table width="100%">
+  <tr><th class="listtop"><?lsmb form.title ?></th></tr>
+  <tr>
+    <td>
+      <table width="100%">
+        <tr valign="top">
+	  <td>
+	    <table>
+	      <tr>
+		<th align="right"><?lsmb text('Name') ?></th>
+		<td><input name="name" size="20" value="<?lsmb user.name ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('E-mail') ?></th>
+		<td><input name="email" size="35" value="<?lsmb user.email ?>" /></td>
+	      </tr>
+	      <tr valign="top">
+		<th align="right"><?lsmb text('Signature') ?></th>
+		<td><textarea name="signature" rows="3" cols="35"><?lsmb user.signature ?></textarea></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Phone') ?></th>
+		<td><input name="tel" size="14" value="<?lsmb user.tel ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Fax') ?></th>
+		<td><input name="fax" size="14" value="<?lsmb user.fax ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Company') ?></th>
+		<td><input name="company" size="35" value="<?lsmb user.company ?>" /></td>
+	      </tr>
+	      <tr valign="top">
+		<th align="right"><?lsmb text('Address') ?></th>
+		<td><textarea name="address" rows="4" cols="35"><?lsmb user.address ?></textarea></td>
+	      </tr>
+	    </table>
+	  </td>
+	  <td>
+	    <table>
+	      <tr>
+		<th align="right"><?lsmb text('Password') ?></th>
+		<td><input type="password" name="new_password" size="10" value="<?lsmb user.password ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Confirm') ?></th>
+		<td><input type="password" name="confirm_password" size="10" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Date Format') ?></th>
+		<td><?lsmb PROCESS select element_data=selects.dateformat ?></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Number Format') ?></th>
+		<td><?lsmb PROCESS select element_data=selects.numberformat ?></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Dropdown Limit') ?></th>
+		<td><input name="vclimit" size="10" value="<?lsmb user.vclimit ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Menu Width') ?></th>
+		<td><input name="menuwidth" size="10" value="<?lsmb user.menuwidth ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Language') ?></th>
+		<td><?lsmb PROCESS select element_data=selects.countrycode?></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Session Timeout') ?></th>
+		<td><input name="timeout" size="10" value="<?lsmb user.timeout ?>" /></td>
+	      </tr>
+	      <tr>
+		<th align="right"><?lsmb text('Stylesheet') ?></th>
+		<td><?lsmb PROCESS select element_data=selects.stylesheet?></td>
+	      </tr>
+<?lsmb IF selects.printer.defined ?> 
+	      <tr>
+		<th align="right"><?lsmb text('Printer') ?></th>
+		<td><?lsmb PROCESS select element_data=selects.printer?></td>
+	      </tr>
+<?lsmb END ?>
+
+	    </table>
+	  </td>
+	</tr>
+      </table>
+    </td>
+  </tr>
+  <tr>
+    <td><hr size="3" noshade="noshade" /></td>
+  </tr>
+</table>
+
+<?lsmb FOREACH hidden IN hiddens.keys;
+	PROCESS input element_data={
+		type => 'hidden',
+		name => hidden,
+		value => hiddens.item(hidden)
+		}; END ?>
+<button type="submit" class="submit" name="action" value="save_preferences"><?lsmb text('Save') ?></button>
+  </form>
+
+</body>
+</html>
diff --git a/bin/am.pl b/bin/am.pl
index 9627cea5..9477e95a 100644
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -1891,196 +1891,100 @@ sub update {
 
 sub config {
 
+    my %selects;
+    $selects{dateformat} = {
+        name => 'dateformat',
+        default_values => $myconfig{dateformat},
+        options => [],
+        };
     foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd))
     {
-        $dateformat .=
-          ( $item eq $myconfig{dateformat} )
-          ? "<option selected>$item\n"
-          : "<option>$item\n";
+        push @{$selects{dateformat}{options}}, {text => $item, value => $item};
     }
 
+    $selects{numberformat} = {
+        name => 'numberformat',
+        default_values => $myconfig{numberformat},
+        options => [],
+        };
     my @formats = qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00);
     push @formats, '1 000.00';
     foreach $item (@formats) {
-        $numberformat .=
-          ( $item eq $myconfig{numberformat} )
-          ? "<option selected>$item\n"
-          : "<option>$item\n";
+        push @{$selects{numberformat}{options}}, {text => $item, value => $item};
     }
 
-    for (qw(name company address signature)) {
-        $myconfig{$_} = $form->quote( $myconfig{$_} );
-    }
+##    for (qw(name company address signature)) {
+##        $myconfig{$_} = $form->quote( $myconfig{$_} );
+##    }
     for (qw(address signature)) { $myconfig{$_} =~ s/\\n/\n/g }
 
+    $selects{countrycode} = {
+        name => 'countrycode',
+        default_values => ($myconfig{countrycode})? $myconfig{countrycode}: 'en',
+        options => [],
+        };
     %countrycodes = LedgerSMB::User->country_codes;
-    $countrycodes = '';
-    my $selectedcode =
-      ( $myconfig{countrycode} ) ? $myconfig{countrycode} : 'en';
-
     foreach $key ( sort { $countrycodes{$a} cmp $countrycodes{$b} }
         keys %countrycodes )
     {
-        $countrycodes .=
-          ( $selectedcode eq $key )
-          ? "<option selected value=$key>$countrycodes{$key}\n"
-          : "<option value=$key>$countrycodes{$key}\n";
+        push @{$selects{countrycode}{options}}, {
+            text => $countrycodes{$key},
+            value => $key
+            };
     }
 
     opendir CSS, "css/.";
     @all = grep /.*\.css$/, readdir CSS;
     closedir CSS;
 
+    $selects{stylesheet} = {
+        name => 'usestylesheet',
+	default_values => $myconfig{stylesheet},
+        options => [],
+        };
     foreach $item (@all) {
-        if ( $item eq $myconfig{stylesheet} ) {
-            $selectstylesheet .= qq|<option selected>$item\n|;
-        }
-        else {
-            $selectstylesheet .= qq|<option>$item\n|;
-        }
+        push @{$selects{stylesheet}{options}}, {text => $item, value => $item};
     }
-    $selectstylesheet .= "<option>\n";
+    push @{$selects{stylesheet}{options}}, {text => 'none', value => '0'};
 
     if ( %{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex} ) {
-        $selectprinter = "<option>\n";
+        $selects{printer} = {
+            name => 'printer',
+            default_values => $myconfig{printer},
+            options => [],
+            };
         foreach $item ( sort keys %{LedgerSMB::Sysconfig::printer} ) {
-            if ( $myconfig{printer} eq $item ) {
-                $selectprinter .= qq|<option value="$item" selected>$item\n|;
-            }
-            else {
-                $selectprinter .= qq|<option value="$item">$item\n|;
-            }
+            push @{$selects{printer}{options}}, {text => $item, value => $item};
         }
-
-        $printer = qq|
-	      <tr>
-		<th align="right">| . $locale->text('Printer') . qq|</th>
-		<td><select name=printer>$selectprinter</select></td>
-	      </tr>
-|;
     }
 
     $form->{title} =
       $locale->text( 'Edit Preferences for [_1]', $form->{login} );
 
-    $form->header;
-
-    print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=old_password value="$myconfig{password}">
-<input type=hidden name=type value=preferences>
-<input type=hidden name=role value="$myconfig{role}">
-
-<table width=100%>
-  <tr><th class=listtop>$form->{title}</th></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr valign=top>
-	  <td>
-	    <table>
-	      <tr>
-		<th align="right">| . $locale->text('Name') . qq|</th>
-		<td><input name=name size=20 value="$myconfig{name}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('E-mail') . qq|</th>
-		<td><input name=email size=35 value="$myconfig{email}"></td>
-	      </tr>
-	      <tr valign=top>
-		<th align="right">| . $locale->text('Signature') . qq|</th>
-		<td><textarea name=signature rows=3 cols=35>$myconfig{signature}</textarea></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Phone') . qq|</th>
-		<td><input name=tel size=14 value="$myconfig{tel}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Fax') . qq|</th>
-		<td><input name=fax size=14 value="$myconfig{fax}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Company') . qq|</th>
-		<td><input name=company size=35 value="$myconfig{company}"></td>
-	      </tr>
-	      <tr valign=top>
-		<th align="right">| . $locale->text('Address') . qq|</th>
-		<td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td>
-	      </tr>
-	    </table>
-	  </td>
-	  <td>
-	    <table>
-	      <tr>
-		<th align="right">| . $locale->text('Password') . qq|</th>
-		<td><input type=password name=new_password size=10 value="$myconfig{password}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Confirm') . qq|</th>
-		<td><input type=password name=confirm_password size=10></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Date Format') . qq|</th>
-		<td><select name=dateformat>$dateformat</select></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Number Format') . qq|</th>
-		<td><select name=numberformat>$numberformat</select></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Dropdown Limit') . qq|</th>
-		<td><input name=vclimit size=10 value="$myconfig{vclimit}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Menu Width') . qq|</th>
-		<td><input name=menuwidth size=10 value="$myconfig{menuwidth}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Language') . qq|</th>
-		<td><select name=countrycode>$countrycodes</select></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Session Timeout') . qq|</th>
-		<td><input name=timeout size=10 value="$myconfig{timeout}"></td>
-	      </tr>
-	      <tr>
-		<th align="right">| . $locale->text('Stylesheet') . qq|</th>
-		<td><select name=usestylesheet>$selectstylesheet</select></td>
-	      </tr>
-	      $printer
-	    </table>
-	  </td>
-	</tr>
-      </table>
-    </td>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-|;
-
-    $form->hide_form(qw(path login sessionid));
-
-    print qq|
-<button type="submit" class="submit" name="action" value="save">|
-      . $locale->text('Save')
-      . qq|</button>|;
-
-    if ( $form->{lynx} ) {
-        require "bin/menu.pl";
-        &menubar;
-    }
-
-    print qq|
-  </form>
-
-</body>
-</html>
-|;
+##SC: Temporary commenting out
+##    if ( $form->{lynx} ) {
+##        require "bin/menu.pl";
+##        &menubar;
+##    }
 
+    my %hiddens = (
+        path => $form->{path},
+        login => $form->{login},
+        sessionid => $form->{sessionid},
+        type => 'preferences',
+        role => $myconfig{role},
+        old_password => $myconfig{password},
+        );
+    my $template = LedgerSMB::Template->new_UI(
+        user => \%myconfig, 
+        locale => $locale,
+        template => 'am-userconfig');
+    $template->render({
+        form => $form,
+        user => \%myconfig,
+	hiddens => \%hiddens,
+	selects => \%selects,
+    });
 }
 
 sub save_defaults {
author	tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>	2007-10-06 16:02:18 +0000
committer	tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>	2007-10-06 16:02:18 +0000
commit	c521480c08b3aa51cad3dfae1dda4f7608f85358 (patch)
tree	38dc43edacf109acafd86e59139bcd4aa9676e72
parent	b094dd8ef0254e1ac73bb4b2127288aad41d6d55 (diff)