Fix: permission execute on perl script

Fix: Checkstyle
This commit is contained in:
Laurent Destailleur 2012-08-04 00:17:34 +02:00
parent 1451f8c0b4
commit 377b1716ef
6 changed files with 84 additions and 84 deletions

0
build/makepack-dolibarr.pl Normal file → Executable file
View File

0
build/makepack-dolibarrlang.pl Normal file → Executable file
View File

0
build/makepack-dolibarrmodule.pl Normal file → Executable file
View File

0
build/makepack-dolibarrtheme.pl Normal file → Executable file
View File

View File

@ -288,27 +288,27 @@ else if ($action == 'add' && $user->rights->commande->creer)
} }
$result = $object->addline( $result = $object->addline(
$object_id, $object_id,
$desc, $desc,
$lines[$i]->subprice, $lines[$i]->subprice,
$lines[$i]->qty, $lines[$i]->qty,
$lines[$i]->tva_tx, $lines[$i]->tva_tx,
$lines[$i]->localtax1_tx, $lines[$i]->localtax1_tx,
$lines[$i]->localtax2_tx, $lines[$i]->localtax2_tx,
$lines[$i]->fk_product, $lines[$i]->fk_product,
$lines[$i]->remise_percent, $lines[$i]->remise_percent,
$lines[$i]->info_bits, $lines[$i]->info_bits,
$lines[$i]->fk_remise_except, $lines[$i]->fk_remise_except,
'HT', 'HT',
0, 0,
$datestart, $datestart,
$dateend, $dateend,
$product_type, $product_type,
$lines[$i]->rang, $lines[$i]->rang,
$lines[$i]->special_code, $lines[$i]->special_code,
$fk_parent_line, $fk_parent_line,
$lines[$i]->fk_fournprice, $lines[$i]->fk_fournprice,
$lines[$i]->pa_ht $lines[$i]->pa_ht
); );
if ($result < 0) if ($result < 0)
@ -632,27 +632,27 @@ else if ($action == 'addline' && $user->rights->commande->creer)
{ {
// Insert line // Insert line
$result = $object->addline( $result = $object->addline(
$object->id, $object->id,
$desc, $desc,
$pu_ht, $pu_ht,
GETPOST('qty'), GETPOST('qty'),
$tva_tx, $tva_tx,
$localtax1_tx, $localtax1_tx,
$localtax2_tx, $localtax2_tx,
GETPOST('idprod'), GETPOST('idprod'),
GETPOST('remise_percent'), GETPOST('remise_percent'),
$info_bits, $info_bits,
0, 0,
$price_base_type, $price_base_type,
$pu_ttc, $pu_ttc,
$date_start, $date_start,
$date_end, $date_end,
$type, $type,
-1, -1,
'', '',
GETPOST('fk_parent_line'), GETPOST('fk_parent_line'),
GETPOST('np_fournprice'), GETPOST('np_fournprice'),
GETPOST('np_buying_price') GETPOST('np_buying_price')
); );
if ($result > 0) if ($result > 0)
@ -753,23 +753,23 @@ else if ($action == 'updateligne' && $user->rights->commande->creer && GETPOST('
if (! $error) if (! $error)
{ {
$result = $object->updateline( $result = $object->updateline(
GETPOST('lineid'), GETPOST('lineid'),
$description, $description,
$up_ht, $up_ht,
GETPOST('qty'), GETPOST('qty'),
GETPOST('remise_percent'), GETPOST('remise_percent'),
$vat_rate, $vat_rate,
$localtax1_rate, $localtax1_rate,
$localtax2_rate, $localtax2_rate,
'HT', 'HT',
$info_bits, $info_bits,
$date_start, $date_start,
$date_end, $date_end,
$type, $type,
GETPOST('fk_parent_line'), GETPOST('fk_parent_line'),
0, 0,
$fk_fournprice, $fk_fournprice,
$pa_ht $pa_ht
); );
if ($result >= 0) if ($result >= 0)

View File

@ -152,18 +152,18 @@ if ($resql)
// Fabrication du mail // Fabrication du mail
$mail = new CMailFile( $mail = new CMailFile(
$newsubject, $newsubject,
$sendto, $sendto,
$from, $from,
$newmessage, $newmessage,
array(), array(),
array(), array(),
array(), array(),
'', '',
'', '',
0, 0,
$msgishtml, $msgishtml,
$errorsto $errorsto
); );
if ($mail->error) if ($mail->error)