/htdocs/admin/barcode.php
PHP | 325 lines | 224 code | 42 blank | 59 comment | 43 complexity | b664c49d497308f81f241b0a23634631 MD5 | raw file
Possible License(s): LGPL-2.0
- <?php
- /* Copyright (C) 2003-2004 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2004-2011 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2005-2009 Regis Houssin <regis@dolibarr.fr>
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/admin/barcode.php
- * \ingroup barcode
- * \brief Page to setup barcode module
- */
- require("../main.inc.php");
- require_once(DOL_DOCUMENT_ROOT."/core/lib/admin.lib.php");
- require_once(DOL_DOCUMENT_ROOT."/includes/barcode/html.formbarcode.class.php");
- $langs->load("admin");
- if (!$user->admin)
- accessforbidden();
- $action = GETPOST("action");
- /*
- * Actions
- */
- if ($action == 'setcoder')
- {
- $coder = GETPOST("coder");
- $code_id = GETPOST("code_id");
- $sqlp = "UPDATE ".MAIN_DB_PREFIX."c_barcode_type";
- $sqlp.= " SET coder = '" . $coder."'";
- $sqlp.= " WHERE rowid = ". $code_id;
- $sqlp.= " AND entity = ".$conf->entity;
- $resql=$db->query($sqlp);
- //print $sqlp;
- }
- else if ($action == 'setgenbarcodelocation')
- {
- $location = GETPOST("genbarcodelocation");
- $res = dolibarr_set_const($db, "GENBARCODE_LOCATION",$location,'chaine',0,'',$conf->entity);
- }
- else if ($action == 'setdefaultbarcodetype')
- {
- $coder_id = GETPOST("coder_id");
- $res = dolibarr_set_const($db, "PRODUIT_DEFAULT_BARCODE_TYPE", $coder_id,'chaine',0,'',$conf->entity);
- }
- else if ($action == 'GENBARCODE_BARCODETYPE_THIRDPARTY')
- {
- $coder_id = GETPOST("coder_id");
- $res = dolibarr_set_const($db, "GENBARCODE_BARCODETYPE_THIRDPARTY", $coder_id,'chaine',0,'',$conf->entity);
- }
- /*
- else if ($_POST["action"] == 'setproductusebarcode')
- {
- dolibarr_set_const($db, "PRODUIT_USE_BARCODE",$_POST["value"],'chaine',0,'',$conf->entity);
- Header("Location: barcode.php");
- exit;
- }
- */
- if($action && $action!='setcoder')
- {
- if (! $res > 0) $error++;
- if (! $error)
- {
- $mesg = "<font class=\"ok\">".$langs->trans("SetupSaved")."</font>";
- }
- else
- {
- $mesg = "<font class=\"error\">".$langs->trans("Error")."</font>";
- }
- }
- /*
- * View
- */
- $form = new Form($db);
- $formbarcode = new FormBarCode($db);
- llxHeader('',$langs->trans("BarcodeSetup"),'BarcodeConfiguration');
- $linkback='<a href="'.DOL_URL_ROOT.'/admin/modules.php">'.$langs->trans("BackToModuleList").'</a>';
- print_fiche_titre($langs->trans("BarcodeSetup"),$linkback,'setup');
- // Detect bar codes modules
- $barcodelist=array();
- clearstatcache();
- foreach ($conf->file->dol_document_root as $dirroot)
- {
- $dir = $dirroot . "/core/modules/barcode/";
- $handle=@opendir($dir);
- if (is_resource($handle))
- {
- while (($file = readdir($handle))!==false)
- {
- if (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
- {
- if (is_readable($dir.$file))
- {
- if (preg_match('/(.*)\.modules\.php$/i',$file,$reg))
- {
- $filebis=$reg[1];
- // Chargement de la classe de codage
- require_once($dir.$file);
- $classname = "mod".ucfirst($filebis);
- $module = new $classname($db);
- // Show modules according to features level
- if ($module->version == 'development' && $conf->global->MAIN_FEATURES_LEVEL < 2) continue;
- if ($module->version == 'experimental' && $conf->global->MAIN_FEATURES_LEVEL < 1) continue;
- if ($module->isEnabled())
- {
- $barcodelist[$filebis]=$module->info();
- }
- }
- }
- }
- }
- }
- }
- /*
- * CHOIX ENCODAGE
- */
- $var=true;
- print '<br>';
- print_titre($langs->trans("BarcodeEncodeModule"));
- print '<table class="noborder" width="100%">';
- print '<tr class="liste_titre">';
- print '<td>'.$langs->trans("Name").'</td>';
- print '<td>'.$langs->trans("Description").'</td>';
- print '<td width="200" align="center">'.$langs->trans("Example").'</td>';
- print '<td align="center" width="60">'.$langs->trans("CodeBarGenerator").'</td>';
- print "</tr>\n";
- $sql = "SELECT rowid, code as encoding, libelle, coder, example";
- $sql.= " FROM ".MAIN_DB_PREFIX."c_barcode_type";
- $sql.= " WHERE entity = ".$conf->entity;
- $sql.= " ORDER BY code";
- dol_syslog("admin/barcode.php sql=".$sql);
- $resql=$db->query($sql);
- if ($resql)
- {
- $num = $db->num_rows($resql);
- $i = 0;
- $var=true;
- while ($i < $num)
- {
- $obj = $db->fetch_object($resql);
- print '<tr '.$bc[$var].'><td width="100">';
- print $obj->libelle;
- print "</td><td>\n";
- print $langs->trans('BarcodeDesc'.$obj->encoding);
- //print "L'EAN se compose de 8 caracteres, 7 chiffres plus une cle de controle.<br>";
- //print "L'utilisation des symbologies EAN8 impose la souscription et l'abonnement aupres d'organisme tel que GENCOD.<br>";
- //print "Codes numeriques utilises exclusivement a l'identification des produits susceptibles d'etre vendus au grand public.";
- print '</td>';
- // Show example
- print '<td align="center">';
- if ($obj->coder && $obj->coder != -1)
- {
- $result=0;
- // Chargement de la classe de codage
- foreach ($conf->file->dol_document_root as $dirroot)
- {
- $dir=$dirroot . "/core/modules/barcode/";
- $result=@include_once($dir.$obj->coder.".modules.php");
- //print $dir.$obj->coder.".modules.php - ".$result;
- if ($result) break;
- }
- if ($result)
- {
- $classname = "mod".ucfirst($obj->coder);
- if (class_exists($classname))
- {
- $module = new $classname($db);
- if ($module->encodingIsSupported($obj->encoding))
- {
- // Build barcode on disk (not used, this is done to make debug easier)
- $result=$module->writeBarCode($obj->example,$obj->encoding,'Y');
- // Generate on the fly and output barcode with generator
- $url=DOL_URL_ROOT.'/viewimage.php?modulepart=barcode&generator='.urlencode($obj->coder).'&code='.urlencode($obj->example).'&encoding='.urlencode($obj->encoding);
- //print $url;
- print '<img src="'.$url.'" title="'.$obj->example.'" border="0">';
- }
- else
- {
- print $langs->trans("FormatNotSupportedByGenerator");
- }
- }
- else
- {
- print 'ErrorClassNotFoundInModule '.$classname.' '.$obj->coder;
- }
- }
- }
- else
- {
- print $langs->trans("ChooseABarCode");
- }
- print '</td>';
- print '<td align="center">';
- print $formbarcode->setBarcodeEncoder($obj->coder,$barcodelist,$obj->rowid,'form'.$i);
- print "</td></tr>\n";
- $var=!$var;
- $i++;
- }
- }
- print "</table>\n";
- print "<br>";
- /*
- * Autres options
- *
- */
- print_titre($langs->trans("OtherOptions"));
- $var=true;
- print '<table class="noborder" width="100%">';
- print '<tr class="liste_titre">';
- print '<td>'.$langs->trans("Parameter").'</td>';
- print '<td width="60" align="center">'.$langs->trans("Value").'</td>';
- print '<td> </td>';
- print '</tr>';
- // Chemin du binaire genbarcode sous linux
- if (! isset($_SERVER['WINDIR']))
- {
- $var=!$var;
- print '<form method="post" action="'.$_SERVER["PHP_SELF"].'">';
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print '<input type="hidden" name="action" value="setgenbarcodelocation">';
- print '<tr '.$bc[$var].'>';
- print '<td>'.$langs->trans("GenbarcodeLocation").'</td>';
- print '<td width="60" align="center">';
- print '<input type="text" size="40" name="genbarcodelocation" value="'.$conf->global->GENBARCODE_LOCATION.'">';
- if (! empty($conf->global->GENBARCODE_LOCATION) && ! @file_exists($conf->global->GENBARCODE_LOCATION))
- {
- $langs->load("errors");
- print '<br><font class="error">'.$langs->trans("ErrorFileNotFound",$conf->global->GENBARCODE_LOCATION).'</font>';
- }
- print '</td>';
- print '<td width="60" align="center"><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td>';
- print '</tr>';
- print '</form>';
- }
- // Module produits
- if ($conf->societe->enabled)
- {
- $var=!$var;
- print "<form method=\"post\" action=\"".$_SERVER["PHP_SELF"]."\">";
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print "<input type=\"hidden\" name=\"action\" value=\"setdefaultbarcodetype\">";
- print "<tr ".$bc[$var].">";
- print '<td>'.$langs->trans("SetDefaultBarcodeTypeProducts").'</td>';
- print '<td width="60" align="right">';
- print $formbarcode->select_barcode_type($conf->global->PRODUIT_DEFAULT_BARCODE_TYPE,"coder_id",1);
- print '</td><td align="right">';
- print '<input type="submit" class="button" value="'.$langs->trans("Modify").'">';
- print "</td>";
- print '</tr>';
- print '</form>';
- }
- // Module produits
- if ($conf->product->enabled)
- {
- $var=!$var;
- print "<form method=\"post\" action=\"".$_SERVER["PHP_SELF"]."\">";
- print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
- print "<input type=\"hidden\" name=\"action\" value=\"GENBARCODE_BARCODETYPE_THIRDPARTY\">";
- print "<tr ".$bc[$var].">";
- print '<td>'.$langs->trans("SetDefaultBarcodeTypeThirdParties").'</td>';
- print '<td width="60" align="right">';
- print $formbarcode->select_barcode_type($conf->global->GENBARCODE_BARCODETYPE_THIRDPARTY,"coder_id",1);
- print '</td><td align="right">';
- print '<input type="submit" class="button" value="'.$langs->trans("Modify").'">';
- print "</td>";
- print '</tr>';
- print '</form>';
- }
- print '</table>';
- print "<br>";
- dol_htmloutput_mesg($mesg);
- $db->close();
- llxFooter();
- ?>