## /LINET
if ($form->{db} eq 'customer') {
- #get pricegroup and form it
- $form->get_pricegroup(\%myconfig, { all => 1 });
- $form->{pricegroup} = "$form->{klass}";
- $form->{pricegroup_id} = "$form->{klass}";
+ #get pricegroup and form it
+ $form->get_pricegroup(\%myconfig, { all => 1 });
- if (@{ $form->{all_pricegroup} }) {
+ $form->{pricegroup} = "$form->{klass}";
+ $form->{pricegroup_id} = "$form->{klass}";
- $form->{selectpricegroup} = qq|<option>\n|;
- map {
- $form->{selectpricegroup} .=
- qq|<option value="$_->{id}">$_->{pricegroup}\n|
- } @{ $form->{all_pricegroup} };
- }
+ if (@{ $form->{all_pricegroup} }) {
+
+ $form->{selectpricegroup} = qq|<option>\n|;
+ map {
+ $form->{selectpricegroup} .=
+ qq|<option value="$_->{id}">$_->{pricegroup}\n|
+ } @{ $form->{all_pricegroup} };
+ }
- if ($form->{selectpricegroup}) {
- $form->{selectpricegroup} = $form->unescape($form->{selectpricegroup});
+ if ($form->{selectpricegroup}) {
+ $form->{selectpricegroup} = $form->unescape($form->{selectpricegroup});
- $pricegroup =
- qq|<input type=hidden name=selectpricegroup value="|
- . $form->escape($form->{selectpricegroup}, 1) . qq|">|;
+ $pricegroup =
+ qq|<input type=hidden name=selectpricegroup value="|
+ . $form->escape($form->{selectpricegroup}, 1) . qq|">|;
- $form->{selectpricegroup} =~
- s/(<option value="\Q$form->{klass}\E")/$1 selected/;
+ $form->{selectpricegroup} =~
+ s/(<option value="\Q$form->{klass}\E")/$1 selected/;
- $pricegroup .= qq|<select name=klass>$form->{selectpricegroup}</select>|;
+ $pricegroup .= qq|<select name=klass>$form->{selectpricegroup}</select>|;
+ }
}
- }
+
# $locale->text('Customer Number')
# $locale->text('Vendor Number')
$form->{fokus} = "ct.name";
</tr>
<tr>
<th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
- <td><input name=name size=35 maxlength=35 tabindex=1 value="$form->{name}"></td>
+ <td><input name=name size=35 maxlength=75 tabindex=1 value="$form->{name}"></td>
<td><input name=shiptoname size=35 maxlength=75 value="$form->{shiptoname}"></td>
</tr>
<tr>
<tr>
<th align=right nowrap>| . $locale->text('Street') . qq|</th>
<td><input name=street size=35 tabindex=4 maxlength=75 value="$form->{street}"></td>
- <td><input name=shiptostreet size=35 maxlength=35 value="$form->{shiptostreet}"></td>
+ <td><input name=shiptostreet size=35 maxlength=75 value="$form->{shiptostreet}"></td>
</tr>
<tr>
<th align=right nowrap>|
<th align=right>| . $locale->text('Language') . qq|</th>
<td><select name=language tabindex=23>$lang
</select></td>|;
-if ($form->{db} eq 'customer'){
-print qq|
+ if ($form->{db} eq 'customer') {
+
+ print qq|
<th align=right>| . $locale->text('Preisklasse') . qq|</th>
<td>$pricegroup</td>|;
-}
+ }
print qq| </tr>
<tr>
<td align=right>| . $locale->text('Obsolete') . qq|</td>