if (-f "bin/mozilla/custom_arap.pl") {
eval { require "bin/mozilla/custom_arap.pl"; };
}
-if (-f "bin/mozilla/$main::form->{login}_arap.pl") {
- eval { require "bin/mozilla/$main::form->{login}_arap.pl"; };
+if (-f "bin/mozilla/$::myconfig{login}_arap.pl") {
+ eval { require "bin/mozilla/$::myconfig{login}_arap.pl"; };
}
1;
$name = $name eq "customer" ? "customer" : "vendor";
- my ($new_name, $new_id) = split /--/, $form->{$name};
+ my ($new_name,$new_id) = $form->{$name} =~ /^(.*?)--(\d+)$/;
my $i = 0;
# if we use a selection
if ($form->{"select$name"}) {
my $title = $locale->text('Select from one of the names below');
print qq|
+ <h1>$title</h1>
+
<form method=post action=$form->{script}>
<table width=100%>
- <tr>
- <th class=listtop>$title</th>
- </tr>
- <tr space=5></tr>
<tr>
<td>
<table width=100%>