#!/usr/bin/perl

# Script to manage the educational institutions and its careers.
# written 12/04
# Castañeda, Carlos Sebastian - seba3c@yahoo.com.ar - Physics Library UNLP Argentina

# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
#
# Koha 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.
#
# Koha 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
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA  02111-1307 USA

use strict;
use CGI;

use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Interface::CGI::Output;
use C4::AcademicInfo;

my $cgi = new CGI;

my ($template, $borrowernumber, $cookie)
    = get_template_and_user({template_name => "admin/institutions-careers.tmpl",
			     query => $cgi,
			     type => "intranet",
			     authnotrequired => 0,
			     flagsrequired => {editcatalogue => 1},
			     debug => 1,
			     });

my $op = $cgi->param('op'); 
my $id_institution = $cgi->param('id_institution'); 
my $institution_name = $cgi->param('institution_name'); 

if ($op eq 'add_form') {
	$template->param(add_form => 1);
	
	if ($id_institution) {
		my $info = get_educational_institution($id_institution);
		$template->param(op => 'edit');
		$template->param(institution_name => $info->{'institution_name'});
		$template->param(id_institution => $id_institution);
	} else {
		$template->param(op => 'add');
	}

} elsif ($op eq 'add') {
	add_educational_institution($institution_name);
	print $cgi->redirect('/cgi-bin/koha/admin/institutions-careers.pl');
} elsif ($op eq 'edit') {
	update_educational_institution($id_institution, $institution_name);
	print $cgi->redirect('/cgi-bin/koha/admin/institutions-careers.pl');
} elsif ($op eq 'del') {
	del_educational_institution($id_institution);
	print $cgi->redirect('/cgi-bin/koha/admin/institutions-careers.pl');
} else {
	my @educ_institutions = &get_careers_by_institution();
	$template->param(institutions => \@educ_institutions);
}

output_html_with_http_headers $cgi, $cookie, $template->output;
