WIP : Admin for carriers

htdocs/admin/carrier.php

@@ -41,6 +41,10 @@ $object = new Expedition($db);
 /*
  * Actions
  */
+if ($action==setvalue AND $carrier)
+{
+    //$object->update_delivery_method($carrier);
+}
 
 if ($action==activate_carrier AND $carrier)
 {
@@ -98,22 +102,82 @@ dol_fiche_head($head, $hselected, $langs->trans("ModuleSetup"));
 /*
  * Carrier List
  */
-
+if ($action=='edit_carrier' || $action=='setvalue')
-$object->all_delivery_methods();
-$var=true;
-print_titre($langs->trans("CarrierList"));
-
-print '<table class="noborder" width="100%">';
-print '<tr class="liste_titre">';
-print '<td width="80">'.$langs->trans("Code").'</td>';
-print '<td width="150">'.$langs->trans("Name").'</td>';
-print '<td>'.$langs->trans("Description").'</td>';
-print '<td>'.$langs->trans("TrackingUrl").'</td>';
-print '<td align="center" width="60">'.$langs->trans("Status").'</td>';
-print '<td align="center" width="30">'.$langs->trans("Edit").'</td>';
-print "</tr>\n";
-for ($i=0; $i<sizeof($object->listmeths); $i++)
 {
+    // Carrier Edit
+    if ($carrier) $object->list_delivery_methods($carrier);
+    print_titre($langs->trans("CarrierEdit"));
+
+    print '<form method="post" action="'.$_SERVER["PHP_SELF"].'?carrier='.$carrier.'">';
+    print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
+    print '<input type="hidden" name="action" value="setvalue">';
+
+
+    print '<table class="nobordernopadding" width="100%">';
+
+    $var=true;
+    print '<tr class="liste_titre">';
+    print '<td width="150">'.$langs->trans("CarrierParameter").'</td>';
+    print '<td>'.$langs->trans("Value").'</td>';
+    print "</tr>\n";
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td class="fieldrequired">';
+    print $langs->trans("Code").'</td><td>';
+    print '<input size="32" type="text" name="code" value="'.$object->listmeths[0][code].'">';
+    print ' &nbsp; '.$langs->trans("Example").': CODE';
+    print '</td></tr>';
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td class="fieldrequired">';
+    print $langs->trans("Name").'</td><td>';
+    print '<input size="32" type="text" name="name" value="'.$object->listmeths[0][libelle].'">';
+    print '</td></tr>';
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td class="fieldrequired">';
+    print $langs->trans("Description").'</td><td>';
+    print '<input size="64" type="text" name="description" value="'.$object->listmeths[0][description].'">';
+    print '</td></tr>';
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td class="fieldrequired">';
+    print $langs->trans("Tracking").'</td><td>';
+    print '<input size="128" type="text" name="tracking" value="'.$object->listmeths[0][tracking].'">';
+    print ' &nbsp; '.$langs->trans("Example").': http://www.website.com/dir/{TRACKID}';
+    print '</td></tr>';
+
+    if ($carrier)
+    {
+    print '<tr><td colspan="2" align="center"><br><input type="submit" class="button" value="'.$langs->trans("Modify").'"></td></tr>';
+    }
+    else
+    {
+    print '<tr><td colspan="2" align="center"><br><input type="submit" class="button" value="'.$langs->trans("Add").'"></td></tr>';
+    }
+
+    print '</table>';
+    print '</form>';
+
+}
+else
+{
+    // Display List
+    $object->list_delivery_methods();
+    $var=true;
+    print_titre($langs->trans("CarrierList"));
+
+    print '<table class="noborder" width="100%">';
+    print '<tr class="liste_titre">';
+    print '<td width="80">'.$langs->trans("Code").'</td>';
+    print '<td width="150">'.$langs->trans("Name").'</td>';
+    print '<td>'.$langs->trans("Description").'</td>';
+    print '<td>'.$langs->trans("TrackingUrl").'</td>';
+    print '<td align="center" width="60">'.$langs->trans("Status").'</td>';
+    print '<td align="center" width="30">'.$langs->trans("Edit").'</td>';
+    print "</tr>\n";
+    for ($i=0; $i<sizeof($object->listmeths); $i++)
+    {
         $var=!$var;
         print "<tr ".$bc[$var].">";
         print '<td>'.$object->listmeths[$i][code].'</td>';
@@ -139,10 +203,14 @@ for ($i=0; $i<sizeof($object->listmeths); $i++)
             print '&nbsp;';
         }
         print '</td>';
-}
+        print "</tr>\n";
-print "</tr>\n";
+    }
+            print '<tr><td align="center"><a href="carrier.php?action=edit_carrier"><br>'.$langs->trans("Add").'</a></td><tr>';
 
-print '</table><br>';
+    print '</table><br>';
+
+    print '</div>';
+}
 
 llxFooter();
 

htdocs/expedition/class/expedition.class.php

@@ -1170,10 +1170,10 @@ class Expedition extends CommonObject
 
     /**
      *  Fetch all deliveries method and return an array. Load array this->listmeths.
-     *
+     *  @param  id      $id     only this carrier, all if none
      *  @return void
      */
-    function all_delivery_methods()
+    function list_delivery_methods($id='')
     {
         global $langs;
         $listmeths = array();
@@ -1181,6 +1181,7 @@ class Expedition extends CommonObject
 
         $sql = "SELECT em.rowid, em.code, em.libelle, em.description, em.tracking, em.active";
         $sql.= " FROM ".MAIN_DB_PREFIX."c_shipment_mode as em";
+        if ($id) $sql.= " WHERE em.rowid=".$id;
 
         $resql = $this->db->query($sql);
         if ($resql)
@@ -1195,6 +1196,7 @@ class Expedition extends CommonObject
                 if ($obj->tracking)
                 {
                     $this->listmeths[$i][tracking] = $obj->tracking;
+                    // editable or hardcoded
                     $this->listmeths[$i][editable] = 1;
                 }
                 else

htdocs/install/mysql/migration/3.3.0-3.4.0.sql

@@ -1,4 +1,3 @@
-alter table llx_contratdet add column fk_product_fournisseur_price integer after info_bits;
 --
 -- Be carefull to requests order.
 -- This file must be loaded by calling /install/index.php page