View | Details | Raw Unified | Return to bug 14670
Collapse All | Expand All

(-)a/opac/opac-ISBDdetail.pl (-2 / +2 lines)
Lines 51-57 use C4::Biblio qw( Link Here
51
    GetMarcISSN
51
    GetMarcISSN
52
    TransformMarcToKoha
52
    TransformMarcToKoha
53
);
53
);
54
use C4::Record;
54
use C4::Record qw( marc2cites );;
55
use C4::Reserves qw( IsAvailableForItemLevelRequest );
55
use C4::Reserves qw( IsAvailableForItemLevelRequest );
56
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
56
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
57
use C4::Koha qw(
57
use C4::Koha qw(
Lines 231-236 if( C4::Context->preference('ArticleRequests') ) { Link Here
231
}
231
}
232
232
233
# Cites
233
# Cites
234
$template->{VARS}->{'cites'} = marc2cites($record);
234
$template->param( cites => C4::Record::marc2cites($record) );
235
235
236
output_html_with_http_headers $query, $cookie, $template->output;
236
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/opac/opac-MARCdetail.pl (-2 / +2 lines)
Lines 57-63 use C4::Biblio qw( Link Here
57
    GetMarcStructure
57
    GetMarcStructure
58
    TransformMarcToKoha
58
    TransformMarcToKoha
59
);
59
);
60
use C4::Record;
60
use C4::Record qw( marc2cites );
61
use C4::Reserves qw( IsAvailableForItemLevelRequest );
61
use C4::Reserves qw( IsAvailableForItemLevelRequest );
62
use C4::Members;
62
use C4::Members;
63
use C4::Koha qw( GetNormalizedISBN );
63
use C4::Koha qw( GetNormalizedISBN );
Lines 388-393 $template->param( Link Here
388
);
388
);
389
389
390
# Cites
390
# Cites
391
$template->{VARS}->{'cites'} = marc2cites($record);
391
$template->param( cites => C4::Record::marc2cites($record) );
392
392
393
output_html_with_http_headers $query, $cookie, $template->output;
393
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/opac/opac-detail.pl (-2 / +2 lines)
Lines 44-50 use C4::Biblio qw( Link Here
44
    GetMarcSubjects
44
    GetMarcSubjects
45
    GetMarcUrls
45
    GetMarcUrls
46
);
46
);
47
use C4::Record;
47
use C4::Record qw( marc2cites );
48
use C4::Tags qw( get_tags );
48
use C4::Tags qw( get_tags );
49
use C4::XISBN qw( get_xisbns );
49
use C4::XISBN qw( get_xisbns );
50
use C4::External::Amazon qw( get_amazon_tld );
50
use C4::External::Amazon qw( get_amazon_tld );
Lines 1262-1267 if ( C4::Context->preference('OPACAuthorIdentifiersAndInformation') ) { Link Here
1262
}
1262
}
1263
1263
1264
# Cites
1264
# Cites
1265
$template->{VARS}->{'cites'} = marc2cites($record);
1265
$template->param( cites => C4::Record::marc2cites($record) );
1266
1266
1267
output_html_with_http_headers $query, $cookie, $template->output;
1267
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/t/db_dependent/Record.t (-10 / +3 lines)
Lines 10-16 use C4::Context; Link Here
10
use Koha::Database;
10
use Koha::Database;
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex ));
13
    use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex marc2cites ));
14
}
14
}
15
15
16
my $schema = Koha::Database->new->schema;
16
my $schema = Koha::Database->new->schema;
Lines 155-166 my @entity=C4::Record::_entity_encode("Björn"); Link Here
155
is ($entity[0], "Björn", "Html umlauts");
155
is ($entity[0], "Björn", "Html umlauts");
156
156
157
157
158
158
$marc->field('260')->add_subfields( a => 'Hogwarts' );
159
160
$marc->field('260')->add_subfields(a => 'Hogwarts');
161
my $cites = marc2cites($marc);
159
my $cites = marc2cites($marc);
162
is ($cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites');
160
is( $cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites' );
163
164
165
166
167
- 

Return to bug 14670