# 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
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
=head1 NAME
+
updatesupplier.pl
=head1 DESCRIPTION
+
this script allow to update or create (if id == 0)
a supplier. This script is called from acqui/supplier.pl.
=head1 CGI PARAMETERS
-=over 4
-
All informations regarding this supplier are listed on input parameter.
Here is the list :
+
supplier, id, company, company_postal, physical, company_phone,
physical, company_phone, company_fax, website, company_contact_name,
company_contact_position, contact_phone, contact_phone_2, contact_fax,
company_email, contact_notes, notes, status, publishers_imprints,
list_currency, gst, list_gst, invoice_gst, discount, gstrate.
-=back
-
=cut
+
+use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
use C4::Auth;
use C4::Bookseller;
use C4::Biblio;
use C4::Output;
use CGI;
-use strict;
my $input=new CGI;
my ($template, $loggedinuser, $cookie) = get_template_and_user(