First step for working authorities

[koha.git] / authorities / authorities.pl

diff --git a/authorities/authorities.pl b/authorities/authorities.pl
index d189d49..7937fe7 100755 (executable)
--- a/authorities/authorities.pl
+++ b/authorities/authorities.pl
@@ -340,6 +340,7 @@ if ($op eq "add") {
        } else {
                ($authid) = AUTHaddauthority($dbh,$record,$authid,$authtypecode);
        }
+       print $input->redirect("authorities-home.pl");
 #------------------------------------------------------------------------------------------------------------------------------
 } elsif ($op eq "addfield") {
 #------------------------------------------------------------------------------------------------------------------------------
@@ -423,4 +424,4 @@ foreach my $thisauthtype (keys %$authtypes) {
 }
 
 $template->param(authtypesloop => \@authtypesloop);
-output_html_with_http_headers $input, $cookie, $template->output;
\ No newline at end of file
+output_html_with_http_headers $input, $cookie, $template->output;