|
Lines 47-52
my $dbh = C4::Context->dbh;
Link Here
|
| 47 |
$dbh->{AutoCommit} = 0; |
47 |
$dbh->{AutoCommit} = 0; |
| 48 |
$dbh->{RaiseError} = 1; |
48 |
$dbh->{RaiseError} = 1; |
| 49 |
|
49 |
|
|
|
50 |
# Somewhat arbitrary field chosen for age restriction unit tests. Must be added to db before the framework is cached |
| 51 |
$dbh->do("update marc_subfield_structure set kohafield='biblioitems.agerestriction' where tagfield='521' and tagsubfield='a'"); |
| 52 |
|
| 50 |
# Setup Test------------------------ |
53 |
# Setup Test------------------------ |
| 51 |
|
54 |
|
| 52 |
# Add branches if not existing |
55 |
# Add branches if not existing |
|
Lines 481-487
C4::Context->set_preference( 'AgeRestrictionMarker', 'FSK|PEGI|Age|K' );
Link Here
|
| 481 |
|
484 |
|
| 482 |
#Set the ageRestriction for the Biblio |
485 |
#Set the ageRestriction for the Biblio |
| 483 |
my $record = GetMarcBiblio( $bibnum ); |
486 |
my $record = GetMarcBiblio( $bibnum ); |
| 484 |
my ( $ageres_tagid, $ageres_subfieldid ) = GetMarcFromKohaField( "biblioitems.agerestriction", '' ); |
487 |
my ( $ageres_tagid, $ageres_subfieldid ) = GetMarcFromKohaField( "biblioitems.agerestriction" ); |
| 485 |
$record->append_fields( MARC::Field->new($ageres_tagid, '', '', $ageres_subfieldid => 'PEGI 16') ); |
488 |
$record->append_fields( MARC::Field->new($ageres_tagid, '', '', $ageres_subfieldid => 'PEGI 16') ); |
| 486 |
C4::Biblio::ModBiblio( $record, $bibnum, '' ); |
489 |
C4::Biblio::ModBiblio( $record, $bibnum, '' ); |
| 487 |
|
490 |
|
| 488 |
- |
|
|