Cleanup: various random sql queries found in UI files moved to database interface...

[fa-stable.git] / purchasing / includes / db / suppliers_db.inc

diff --git a/purchasing/includes/db/suppliers_db.inc b/purchasing/includes/db/suppliers_db.inc
index cab8eace7ba9eadb5090fe30f4296ef614c99989..6b7d0cde787265665cfc21c5a188a0bf6f5f0f43 100644 (file)
--- a/purchasing/includes/db/suppliers_db.inc
+++ b/purchasing/includes/db/suppliers_db.inc
@@ -187,3 +187,14 @@ function update_supp_tax_algorithm($supplier_id, $tax_algorithm)
                . " WHERE supplier_id=".db_escape($supplier_id);
        return db_query($sql, "cannot update supplier's tax calculation algorithm");
 }
+
+function get_supplier_currency($supplier_id)
+{
+    $sql = "SELECT curr_code FROM ".TB_PREF."suppliers WHERE supplier_id = ".db_escape($supplier_id);
+
+       $result = db_query($sql, "Retreive currency of supplier $supplier_id");
+
+       $myrow=db_fetch_row($result);
+       return $myrow[0];
+}
+