=cut
-use strict;
-use warnings;
+use Modern::Perl;
+
use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
use Data::Dumper;
+use Koha::Biblios;
+
my %newtags = ();
my @deltags = ();
my %counts = ();
sub ajax_auth_cgi { # returns CGI object
my $needed_flags = shift;
- my %cookies = fetch CGI::Cookie;
+ my %cookies = CGI::Cookie->fetch;
my $input = CGI->new;
my $sessid = $cookies{'CGISESSID'}->value;
my ($auth_status, $auth_sessid) = check_cookie_auth($sessid, $needed_flags);
if ($loggedinuser) {
$my_tags = get_tag_rows({borrowernumber=>$loggedinuser});
- my $my_approved_tags = get_approval_rows({borrowernumber => $loggedinuser, approved => 1});
+ my $my_approved_tags = get_approval_rows({ approved => 1 });
foreach my $tag (@$my_tags) {
- my $biblio = GetBiblioData($tag->{biblionumber});
- my $record = &GetMarcBiblio( $tag->{biblionumber} );
+ my $biblio = Koha::Biblios->find( $tag->{biblionumber} );
+ my $record = &GetMarcBiblio({ biblionumber => $tag->{biblionumber} });
$tag->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $tag->{biblionumber} ) );
- $tag->{title} = $biblio->{title};
- $tag->{author} = $biblio->{author};
- if (C4::Context->preference("OPACXSLTResultsDisplay")) {
- $tag->{XSLTBloc} = XSLTParse4Display($tag->{biblionumber}, $record, "OPACXSLTResultsDisplay");
+ $tag->{title} = $biblio->title;
+ $tag->{author} = $biblio->author;
+
+ my $xslfile = C4::Context->preference('OPACXSLTResultsDisplay');
+ my $lang = $xslfile ? C4::Languages::getlanguage() : undef;
+ my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;
+
+ if ( $xslfile ) {
+ $tag->{XSLTBloc} = XSLTParse4Display(
+ $tag->{ biblionumber }, $record, "OPACXSLTResultsDisplay",
+ 1, undef, $sysxml, $xslfile, $lang
+ );
}
+
my $date = $tag->{date_created} || '';
$date =~ /\s+(\d{2}\:\d{2}\:\d{2})/;
$tag->{time_created_display} = $1;