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

(-)a/opac/opac-ISBDdetail.pl (-2 / +2 lines)
Lines 52-58 use C4::Biblio qw( Link Here
52
    GetMarcISSN
52
    GetMarcISSN
53
    TransformMarcToKoha
53
    TransformMarcToKoha
54
);
54
);
55
use C4::Record;
55
use C4::Record qw( marc2cites );;
56
use C4::Reserves qw( IsAvailableForItemLevelRequest );
56
use C4::Reserves qw( IsAvailableForItemLevelRequest );
57
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
57
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
58
use C4::Koha qw(
58
use C4::Koha qw(
Lines 229-234 if( C4::Context->preference('ArticleRequests') ) { Link Here
229
}
229
}
230
230
231
# Cites
231
# Cites
232
$template->{VARS}->{'cites'} = marc2cites($record);
232
$template->param( cites => C4::Record::marc2cites($record) );
233
233
234
output_html_with_http_headers $query, $cookie, $template->output;
234
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/opac/opac-MARCdetail.pl (-2 / +2 lines)
Lines 58-64 use C4::Biblio qw( Link Here
58
    GetMarcStructure
58
    GetMarcStructure
59
    TransformMarcToKoha
59
    TransformMarcToKoha
60
);
60
);
61
use C4::Record;
61
use C4::Record qw( marc2cites );
62
use C4::Reserves qw( IsAvailableForItemLevelRequest );
62
use C4::Reserves qw( IsAvailableForItemLevelRequest );
63
use C4::Members;
63
use C4::Members;
64
use C4::Koha qw( GetNormalizedISBN );
64
use C4::Koha qw( GetNormalizedISBN );
Lines 381-386 $template->param( Link Here
381
);
381
);
382
382
383
# Cites
383
# Cites
384
$template->{VARS}->{'cites'} = marc2cites($record);
384
$template->param( cites => C4::Record::marc2cites($record) );
385
385
386
output_html_with_http_headers $query, $cookie, $template->output;
386
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/opac/opac-detail.pl (-2 / +2 lines)
Lines 45-51 use C4::Biblio qw( Link Here
45
    GetMarcSubjects
45
    GetMarcSubjects
46
    GetMarcUrls
46
    GetMarcUrls
47
);
47
);
48
use C4::Record;
48
use C4::Record qw( marc2cites );
49
use C4::Tags qw( get_tags );
49
use C4::Tags qw( get_tags );
50
use C4::XISBN qw( get_xisbns );
50
use C4::XISBN qw( get_xisbns );
51
use C4::External::Amazon qw( get_amazon_tld );
51
use C4::External::Amazon qw( get_amazon_tld );
Lines 1247-1252 if ( C4::Context->preference('OPACAuthorIdentifiers') ) { Link Here
1247
}
1247
}
1248
1248
1249
# Cites
1249
# Cites
1250
$template->{VARS}->{'cites'} = marc2cites($record);
1250
$template->param( cites => C4::Record::marc2cites($record) );
1251
1251
1252
output_html_with_http_headers $query, $cookie, $template->output;
1252
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