use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use JSON qw(to_json);
use C4::Auth qw(check_cookie_auth);
$ar->branchcode( $branchcode ) if $branchcode;
$ar = $ar->store();
}
+ elsif( $action eq 'update_urls' ) {
+ my $urls = $cgi->param('urls') // q{};
+ $ar->urls( $urls );
+ $ar = $ar->store();
+ }
}
print to_json( { success => $ar ? 1 : 0 } );