}
my $dbh = @_ ? shift : C4::Context->dbh;
my $frameworkcode = @_ ? shift : GetFrameworkCode( $biblionumber );
my $frameworkcode = @_ ? shift : C4::Biblio::GetFrameworkCode( $biblionumber );
my $unlinked_item_subfields;
if (@_) {
use Modern::Perl;
use C4::Context;
use C4::Utils::DataTables;
use Koha::DateUtils;
use Koha::DateUtils qw( dt_from_string output_pref );
sub search {
my ( $params ) = @_;
use base qw( Template::Plugin );
use Koha;
sub AudioAlerts {
my $dbh = C4::Context->dbh;
use Template::Plugin;
use C4::Koha;
use C4::Koha qw( GetAuthorisedValues );
use Koha::AuthorisedValues;
sub GetByCode {
use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use C4::Biblio;
use C4::Biblio qw( GetMarcBiblio ModBiblio DelBiblio GetMarcFromKohaField );
use C4::Items;
use C4::Items qw( ModItemFromMarc );
use XML::Simple;
my $query = new CGI;
my $input = new CGI;
use C4::Auth;
use C4::Auth qw( get_template_and_user );
use C4::Reports::Guided;
use C4::Reports::Guided qw( get_saved_report convert_sql );
use C4::Output;
use C4::Output qw( output_html_with_http_headers );
my $query = CGI->new();
use C4::Auth qw/check_cookie_auth/;
use C4::Images;
use C4::Images qw( DelImage ListImagesForBiblio );
use JSON qw/to_json/;
-