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

(-)a/C4/Acquisition.pm (-9 / +17 lines)
Lines 1229-1235 C<@results> is an array of references-to-hash with the following keys: Link Here
1229
1229
1230
sub SearchOrder {
1230
sub SearchOrder {
1231
#### -------- SearchOrder-------------------------------
1231
#### -------- SearchOrder-------------------------------
1232
    my ($ordernumber, $search, $supplierid, $basket) = @_;
1232
    my ( $ordernumber, $search, $ean, $supplierid, $basket ) = @_;
1233
1233
1234
    my $dbh = C4::Context->dbh;
1234
    my $dbh = C4::Context->dbh;
1235
    my @args = ();
1235
    my @args = ();
Lines 1249-1255 sub SearchOrder { Link Here
1249
        $query .= " AND (biblio.title like ? OR biblio.author LIKE ? OR biblioitems.isbn like ?)";
1249
        $query .= " AND (biblio.title like ? OR biblio.author LIKE ? OR biblioitems.isbn like ?)";
1250
        push @args, ("%$search%","%$search%","%$search%");
1250
        push @args, ("%$search%","%$search%","%$search%");
1251
    }
1251
    }
1252
    if($supplierid){
1252
    if ($ean) {
1253
        $query .= " AND biblioitems.ean = ?";
1254
        push @args, $ean;
1255
    }
1256
    if ($supplierid) {
1253
        $query .= "AND aqbasket.booksellerid = ?";
1257
        $query .= "AND aqbasket.booksellerid = ?";
1254
        push @args, $supplierid;
1258
        push @args, $supplierid;
1255
    }
1259
    }
Lines 1607-1618 sub GetHistory { Link Here
1607
    my $title = $params{title};
1611
    my $title = $params{title};
1608
    my $author = $params{author};
1612
    my $author = $params{author};
1609
    my $isbn   = $params{isbn};
1613
    my $isbn   = $params{isbn};
1614
    my $ean    = $params{ean};
1610
    my $name = $params{name};
1615
    my $name = $params{name};
1611
    my $from_placed_on = $params{from_placed_on};
1616
    my $from_placed_on = $params{from_placed_on};
1612
    my $to_placed_on = $params{to_placed_on};
1617
    my $to_placed_on = $params{to_placed_on};
1613
    my $basket = $params{basket};
1618
    my $basket = $params{basket};
1614
    my $booksellerinvoicenumber = $params{booksellerinvoicenumber};
1619
    my $booksellerinvoicenumber = $params{booksellerinvoicenumber};
1615
1616
    my @order_loop;
1620
    my @order_loop;
1617
    my $total_qty         = 0;
1621
    my $total_qty         = 0;
1618
    my $total_qtyreceived = 0;
1622
    my $total_qtyreceived = 0;
Lines 1624-1635 sub GetHistory { Link Here
1624
            biblio.title,
1628
            biblio.title,
1625
            biblio.author,
1629
            biblio.author,
1626
	    biblioitems.isbn,
1630
	    biblioitems.isbn,
1631
	    biblioitems.ean,
1627
            aqorders.basketno,
1632
            aqorders.basketno,
1628
    aqbasket.basketname,
1633
            aqbasket.basketname,
1629
    aqbasket.basketgroupid,
1634
            aqbasket.basketgroupid,
1630
    aqbasketgroups.name as groupname,
1635
            aqbasketgroups.name as groupname,
1631
            aqbooksellers.name,
1636
            aqbooksellers.name,
1632
    aqbasket.creationdate,
1637
            aqbasket.creationdate,
1633
            aqorders.datereceived,
1638
            aqorders.datereceived,
1634
            aqorders.quantity,
1639
            aqorders.quantity,
1635
            aqorders.quantityreceived,
1640
            aqorders.quantityreceived,
Lines 1640-1646 sub GetHistory { Link Here
1640
            aqorders.biblionumber
1645
            aqorders.biblionumber
1641
        FROM aqorders
1646
        FROM aqorders
1642
        LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno
1647
        LEFT JOIN aqbasket ON aqorders.basketno=aqbasket.basketno
1643
    LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id
1648
        LEFT JOIN aqbasketgroups ON aqbasket.basketgroupid=aqbasketgroups.id
1644
        LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id
1649
        LEFT JOIN aqbooksellers ON aqbasket.booksellerid=aqbooksellers.id
1645
	LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber
1650
	LEFT JOIN biblioitems ON biblioitems.biblionumber=aqorders.biblionumber
1646
        LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber";
1651
        LEFT JOIN biblio ON biblio.biblionumber=aqorders.biblionumber";
Lines 1667-1673 sub GetHistory { Link Here
1667
        $query .= " AND biblioitems.isbn LIKE ? ";
1672
        $query .= " AND biblioitems.isbn LIKE ? ";
1668
        push @query_params, "%$isbn%";
1673
        push @query_params, "%$isbn%";
1669
    }
1674
    }
1670
1675
    if ( defined $ean and $ean ) {
1676
        $query .= " AND biblioitems.ean = ? ";
1677
        push @query_params, "$ean";
1678
    }
1671
    if ( $name ) {
1679
    if ( $name ) {
1672
        $query .= " AND aqbooksellers.name LIKE ? ";
1680
        $query .= " AND aqbooksellers.name LIKE ? ";
1673
        push @query_params, "%$name%";
1681
        push @query_params, "%$name%";
(-)a/C4/Biblio.pm (-3 / +6 lines)
Lines 3270-3276 sub _koha_modify_biblioitem_nonmarc { Link Here
3270
        cn_item         = ?,
3270
        cn_item         = ?,
3271
        cn_suffix       = ?,
3271
        cn_suffix       = ?,
3272
        cn_sort         = ?,
3272
        cn_sort         = ?,
3273
        totalissues     = ?
3273
        totalissues     = ?,
3274
	ean             = ?
3274
        where biblioitemnumber = ?
3275
        where biblioitemnumber = ?
3275
        ";
3276
        ";
3276
    my $sth = $dbh->prepare($query);
3277
    my $sth = $dbh->prepare($query);
Lines 3282-3287 sub _koha_modify_biblioitem_nonmarc { Link Here
3282
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3283
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3283
        $biblioitem->{'lccn'},             $biblioitem->{'url'},              $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'},
3284
        $biblioitem->{'lccn'},             $biblioitem->{'url'},              $biblioitem->{'biblioitems.cn_source'}, $biblioitem->{'cn_class'},
3284
        $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},        $cn_sort,                               $biblioitem->{'totalissues'},
3285
        $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},        $cn_sort,                               $biblioitem->{'totalissues'},
3286
	$biblioitem->{'ean'},
3285
        $biblioitem->{'biblioitemnumber'}
3287
        $biblioitem->{'biblioitemnumber'}
3286
    );
3288
    );
3287
    if ( $dbh->errstr ) {
3289
    if ( $dbh->errstr ) {
Lines 3333-3339 sub _koha_add_biblioitem { Link Here
3333
        cn_item         = ?,
3335
        cn_item         = ?,
3334
        cn_suffix       = ?,
3336
        cn_suffix       = ?,
3335
        cn_sort         = ?,
3337
        cn_sort         = ?,
3336
        totalissues     = ?
3338
        totalissues     = ?,
3339
	ean             = ?
3337
        ";
3340
        ";
3338
    my $sth = $dbh->prepare($query);
3341
    my $sth = $dbh->prepare($query);
3339
    $sth->execute(
3342
    $sth->execute(
Lines 3344-3350 sub _koha_add_biblioitem { Link Here
3344
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3347
        $biblioitem->{'pages'},            $biblioitem->{'bnotes'},           $biblioitem->{'size'},                  $biblioitem->{'place'},
3345
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3348
        $biblioitem->{'lccn'},             $biblioitem->{'marc'},             $biblioitem->{'url'},                   $biblioitem->{'biblioitems.cn_source'},
3346
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3349
        $biblioitem->{'cn_class'},         $biblioitem->{'cn_item'},          $biblioitem->{'cn_suffix'},             $cn_sort,
3347
        $biblioitem->{'totalissues'}
3350
        $biblioitem->{'totalissues'},      $biblioitem->{'ean'}
3348
    );
3351
    );
3349
    my $bibitemnum = $dbh->{'mysql_insertid'};
3352
    my $bibitemnum = $dbh->{'mysql_insertid'};
3350
3353
(-)a/C4/Serials.pm (-3 / +17 lines)
Lines 545-559 sub GetFullSubscriptionsFromBiblionumber { Link Here
545
545
546
=head2 GetSubscriptions
546
=head2 GetSubscriptions
547
547
548
@results = GetSubscriptions($title,$ISSN,$biblionumber);
548
@results = GetSubscriptions($title,$ISSN,$ean,$biblionumber);
549
this function gets all subscriptions which have title like $title,ISSN like $ISSN and biblionumber like $biblionumber.
549
this function gets all subscriptions which have title like $title,ISSN like $ISSN,EAN like $ean and biblionumber like $biblionumber.
550
return:
550
return:
551
a table of hashref. Each hash containt the subscription.
551
a table of hashref. Each hash containt the subscription.
552
552
553
=cut
553
=cut
554
554
555
sub GetSubscriptions {
555
sub GetSubscriptions {
556
    my ( $string, $issn, $biblionumber ) = @_;
556
    my ( $string, $issn, $ean, $biblionumber ) = @_;
557
557
558
    #return unless $title or $ISSN or $biblionumber;
558
    #return unless $title or $ISSN or $biblionumber;
559
    my $dbh = C4::Context->dbh;
559
    my $dbh = C4::Context->dbh;
Lines 597-602 sub GetSubscriptions { Link Here
597
        }
597
        }
598
        $sqlwhere .= ( $sqlwhere ? " AND " : " WHERE " ) . "((" . join( ") OR (", @sqlstrings ) . "))";
598
        $sqlwhere .= ( $sqlwhere ? " AND " : " WHERE " ) . "((" . join( ") OR (", @sqlstrings ) . "))";
599
    }
599
    }
600
    if ($ean) {
601
        my @sqlstrings;
602
        my @strings_to_search;
603
        @strings_to_search = map { "$_" } split( / /, $ean );
604
        foreach my $index qw(biblioitems.ean) {
605
            push @bind_params, @strings_to_search;
606
            my $tmpstring = "OR $index = ? " x scalar(@strings_to_search);
607
            $debug && warn "$tmpstring";
608
            $tmpstring =~ s/^OR //;
609
            push @sqlstrings, $tmpstring;
610
        }
611
        $sqlwhere .= ( $sqlwhere ? " AND " : " WHERE " ) . "(" . join( ") OR (", @sqlstrings ) . ")";
612
    }
613
600
    $sql .= "$sqlwhere ORDER BY title";
614
    $sql .= "$sqlwhere ORDER BY title";
601
    $debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params );
615
    $debug and warn "GetSubscriptions query: $sql params : ", join( " ", @bind_params );
602
    $sth = $dbh->prepare($sql);
616
    $sth = $dbh->prepare($sql);
(-)a/acqui/addorder.pl (+1 lines)
Lines 202-207 if ( $orderinfo->{quantity} ne '0' ) { Link Here
202
                "biblio.author"               => $$orderinfo{author}          ? $$orderinfo{author}        : "",
202
                "biblio.author"               => $$orderinfo{author}          ? $$orderinfo{author}        : "",
203
                "biblio.seriestitle"          => $$orderinfo{series}          ? $$orderinfo{series}        : "",
203
                "biblio.seriestitle"          => $$orderinfo{series}          ? $$orderinfo{series}        : "",
204
                "biblioitems.isbn"            => $$orderinfo{isbn}            ? $$orderinfo{isbn}          : "",
204
                "biblioitems.isbn"            => $$orderinfo{isbn}            ? $$orderinfo{isbn}          : "",
205
                "biblioitems.ean"             => $$orderinfo{ean}             ? $$orderinfo{ean}           : "",
205
                "biblioitems.publishercode"   => $$orderinfo{publishercode}   ? $$orderinfo{publishercode} : "",
206
                "biblioitems.publishercode"   => $$orderinfo{publishercode}   ? $$orderinfo{publishercode} : "",
206
                "biblioitems.publicationyear" => $$orderinfo{publicationyear} ? $$orderinfo{publicationyear}: "",
207
                "biblioitems.publicationyear" => $$orderinfo{publicationyear} ? $$orderinfo{publicationyear}: "",
207
                "biblio.copyrightdate"        => $$orderinfo{publicationyear} ? $$orderinfo{publicationyear}: "",
208
                "biblio.copyrightdate"        => $$orderinfo{publicationyear} ? $$orderinfo{publicationyear}: "",
(-)a/acqui/histsearch.pl (-1 / +5 lines)
Lines 63-68 my $title = $input->param( 'title'); Link Here
63
my $author                  = $input->param('author');
63
my $author                  = $input->param('author');
64
my $isbn                    = $input->param('isbn');
64
my $isbn                    = $input->param('isbn');
65
my $name                    = $input->param( 'name' );
65
my $name                    = $input->param( 'name' );
66
my $ean                     = $input->param('ean');
66
my $basket                  = $input->param( 'basket' );
67
my $basket                  = $input->param( 'basket' );
67
my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' );
68
my $booksellerinvoicenumber = $input->param( 'booksellerinvoicenumber' );
68
my $do_search               = $input->param('do_search') || 0;
69
my $do_search               = $input->param('do_search') || 0;
Lines 101-106 if ($do_search) { Link Here
101
        title => $title,
102
        title => $title,
102
        author => $author,
103
        author => $author,
103
        isbn   => $isbn,
104
        isbn   => $isbn,
105
        ean   => $ean,
104
        name => $name,
106
        name => $name,
105
        from_placed_on => $from_iso,
107
        from_placed_on => $from_iso,
106
        to_placed_on => $to_iso,
108
        to_placed_on => $to_iso,
Lines 120-126 $template->param( Link Here
120
    numresults              => $order_loop ? scalar(@$order_loop) : undef,
122
    numresults              => $order_loop ? scalar(@$order_loop) : undef,
121
    title                   => $title,
123
    title                   => $title,
122
    author                  => $author,
124
    author                  => $author,
123
    isbn                    => $isbn,
125
    isbn		    => $isbn,
126
    ean                     => $ean,
124
    name                    => $name,
127
    name                    => $name,
125
    basket                  => $basket,
128
    basket                  => $basket,
126
    booksellerinvoicenumber => $booksellerinvoicenumber,
129
    booksellerinvoicenumber => $booksellerinvoicenumber,
Lines 129-134 $template->param( Link Here
129
    DHTMLcalendar_dateformat=> C4::Dates->DHTMLcalendar(),
132
    DHTMLcalendar_dateformat=> C4::Dates->DHTMLcalendar(),
130
    dateformat              => C4::Dates->new()->format(),
133
    dateformat              => C4::Dates->new()->format(),
131
    debug                   => $debug || $input->param('debug') || 0,
134
    debug                   => $debug || $input->param('debug') || 0,
135
    uc(C4::Context->preference("marcflavour")) => 1
132
);
136
);
133
137
134
output_html_with_http_headers $input, $cookie, $template->output;
138
output_html_with_http_headers $input, $cookie, $template->output;
(-)a/acqui/neworderempty.pl (+3 lines)
Lines 370-375 $template->param( Link Here
370
    editionstatement => $data->{'editionstatement'},
370
    editionstatement => $data->{'editionstatement'},
371
    budget_loop      => $budget_loop,
371
    budget_loop      => $budget_loop,
372
    isbn             => $data->{'isbn'},
372
    isbn             => $data->{'isbn'},
373
    ean              => $data->{'ean'},
373
    seriestitle      => $data->{'seriestitle'},
374
    seriestitle      => $data->{'seriestitle'},
374
    itemtypeloop     => \@itemtypes,
375
    itemtypeloop     => \@itemtypes,
375
    quantity         => $data->{'quantity'},
376
    quantity         => $data->{'quantity'},
Lines 388-393 $template->param( Link Here
388
# CHECKME: gst-stuff needs verifing, mason.
389
# CHECKME: gst-stuff needs verifing, mason.
389
    gstrate          => $bookseller->{'gstrate'} // C4::Context->preference("gist") // 0,
390
    gstrate          => $bookseller->{'gstrate'} // C4::Context->preference("gist") // 0,
390
    gstreg           => $bookseller->{'gstreg'},
391
    gstreg           => $bookseller->{'gstreg'},
392
    (uc(C4::Context->preference("marcflavour"))) => 1
391
);
393
);
392
394
393
output_html_with_http_headers $input, $cookie, $template->output;
395
output_html_with_http_headers $input, $cookie, $template->output;
Lines 519-524 sub Load_Duplicate { Link Here
519
    booksellerid        => $basket->{'booksellerid'},
521
    booksellerid        => $basket->{'booksellerid'},
520
    breedingid          => $params->{'breedingid'},
522
    breedingid          => $params->{'breedingid'},
521
    duplicatetitle      => $duplicatetitle,
523
    duplicatetitle      => $duplicatetitle,
524
    (uc(C4::Context->preference("marcflavour"))) => 1
522
  );
525
  );
523
526
524
  output_html_with_http_headers $input, $cookie, $template->output;
527
  output_html_with_http_headers $input, $cookie, $template->output;
(-)a/acqui/parcel.pl (-4 / +6 lines)
Lines 101-114 if($input->param('format') eq "json"){ Link Here
101
    });
101
    });
102
       
102
       
103
    my @datas;
103
    my @datas;
104
    my $search   = $input->param('search') || '';
104
    my $search   = $input->param('search')     || '';
105
    my $ean      = $input->param('ean')        || '';
105
    my $supplier = $input->param('booksellerid') || '';
106
    my $supplier = $input->param('booksellerid') || '';
106
    my $basketno = $input->param('basketno') || '';
107
    my $basketno = $input->param('basketno') || '';
107
    my $orderno  = $input->param('orderno') || '';
108
    my $orderno  = $input->param('orderno') || '';
108
109
109
    my $orders = SearchOrder($orderno, $search, $supplier, $basketno);
110
    my $orders = SearchOrder($orderno, $search, $ean, $supplier, $basketno);
110
    foreach my $order (@$orders){
111
    foreach my $order (@$orders) {
111
        if($order->{quantityreceived} < $order->{quantity}){
112
        if ( $order->{quantityreceived} < $order->{quantity} ) {
112
            my $data = {};
113
            my $data = {};
113
            
114
            
114
            $data->{basketno} = $order->{basketno};
115
            $data->{basketno} = $order->{basketno};
Lines 322-327 $template->param( Link Here
322
    totalPqtyrcvd         => $totalPqtyrcvd,
323
    totalPqtyrcvd         => $totalPqtyrcvd,
323
    totalPecost           => sprintf("%.2f", $totalPecost),
324
    totalPecost           => sprintf("%.2f", $totalPecost),
324
    resultsperpage        => $resultsperpage,
325
    resultsperpage        => $resultsperpage,
326
    (uc(C4::Context->preference("marcflavour"))) => 1
325
);
327
);
326
output_html_with_http_headers $input, $cookie, $template->output;
328
output_html_with_http_headers $input, $cookie, $template->output;
327
 
329
 
(-)a/catalogue/detail.pl (-1 / +1 lines)
Lines 142-148 my ( $holdcount, $holds ) = GetReservesFromBiblionumber($biblionumber,1); Link Here
142
142
143
#coping with subscriptions
143
#coping with subscriptions
144
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
144
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
145
my @subscriptions       = GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
145
my @subscriptions       = GetSubscriptions( $dat->{title}, $dat->{issn}, undef, $biblionumber );
146
my @subs;
146
my @subs;
147
147
148
foreach my $subscription (@subscriptions) {
148
foreach my $subscription (@subscriptions) {
(-)a/installer/data/mysql/atomicupdate/02.00.060-adding-ean.pl (+10 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
use C4::Context;
3
my $dbh= C4::Context->dbh;
4
$dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5
$dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
6
$dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
7
$dbh->do("CREATE INDEX `ean` ON deletedbiblioitems (`ean`) ");
8
if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
9
     $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
10
}
(-)a/installer/data/mysql/en/marcflavour/unimarc/mandatory/unimarc_framework_DEFAULT.sql (+2 lines)
Lines 166-171 INSERT INTO `marc_tag_structure` (`tagfield`, `liblibrarian`, `libopac`, `repeat Link Here
166
		('022', 'Government Publication Number', 'Government Publication Number', 0, 0, '', ''),
166
		('022', 'Government Publication Number', 'Government Publication Number', 0, 0, '', ''),
167
		('040', 'CODEN (Serials)', 'CODEN (Serials)', 0, 0, '', ''),
167
		('040', 'CODEN (Serials)', 'CODEN (Serials)', 0, 0, '', ''),
168
		('071', 'Publisher\'s Number (Sound Recordings and Music)', '', 0, 0, '', ''),
168
		('071', 'Publisher\'s Number (Sound Recordings and Music)', '', 0, 0, '', ''),
169
		('073', 'EAN', 'EAN', 1, 0, '', ''),
169
		('100', 'General Processing Data', 'General Processing Data', 1, 0, '', ''),
170
		('100', 'General Processing Data', 'General Processing Data', 1, 0, '', ''),
170
		('101', 'Language of the Item', 'Language of the Item', 1, 0, '', ''),
171
		('101', 'Language of the Item', 'Language of the Item', 1, 0, '', ''),
171
		('102', 'Country of Publication or Production', 'Country of Publication or Production', 0, 0, '', ''),
172
		('102', 'Country of Publication or Production', 'Country of Publication or Production', 0, 0, '', ''),
Lines 356-361 INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian` Link Here
356
		('040', 'z', 'Erroneous CODEN', 'Erroneous CODEN', 1, 0, '', 0, '', '', '', 0, -5, '', '', '', NULL),
357
		('040', 'z', 'Erroneous CODEN', 'Erroneous CODEN', 1, 0, '', 0, '', '', '', 0, -5, '', '', '', NULL),
357
		('071', 'a', 'Publisher\'s Number (Sound Recordings and Music)', 'Publisher\'s Number (Sound Recordings and Music)', 0, 0, '', 0, '', '', '', 0, -5, '', '', '', NULL),
358
		('071', 'a', 'Publisher\'s Number (Sound Recordings and Music)', 'Publisher\'s Number (Sound Recordings and Music)', 0, 0, '', 0, '', '', '', 0, -5, '', '', '', NULL),
358
		('071', 'b', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, -5, '', '', '', NULL),
359
		('071', 'b', 'Source', 'Source', 0, 0, '', 0, '', '', '', 0, -5, '', '', '', NULL),
360
		('073', 'a', 'EAN', 'EAN', 0, 0, 'biblioitems.ean', 0, '', '', '', 0, 0, '', '', '', NULL),
359
		('100', 'a', 'General Processing Data', 'General Processing Data', 0, 0, '', 1, '', '', 'unimarc_field_100.pl', 0, 0, '', '', '', NULL),
361
		('100', 'a', 'General Processing Data', 'General Processing Data', 0, 0, '', 1, '', '', 'unimarc_field_100.pl', 0, 0, '', '', '', NULL),
360
		('101', 'a', 'Language of the Text, Soundtrack, etc.', 'Language of the Text, Soundtrack, etc.', 1, 0, '', 1, 'LAN', '', '', 0, 0, '', '', '', NULL),
362
		('101', 'a', 'Language of the Text, Soundtrack, etc.', 'Language of the Text, Soundtrack, etc.', 1, 0, '', 1, 'LAN', '', '', 0, 0, '', '', '', NULL),
361
		('101', 'b', 'Language of Intermediate Text when Item is Not Translated from Original', 'Language of Intermediate Text when Item is Not Translated from Original', 0, 0, '', 1, '', '', '', 0, -5, '', '', '', NULL),
363
		('101', 'b', 'Language of Intermediate Text when Item is Not Translated from Original', 'Language of Intermediate Text when Item is Not Translated from Original', 0, 0, '', 1, '', '', '', 0, -5, '', '', '', NULL),
(-)a/installer/data/mysql/fr-FR/marcflavour/unimarc_complet/Obligatoire/framework_DEFAULT.sql (-1 / +1 lines)
Lines 318-324 INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian` Link Here
318
('072', 'c', 'Numéro additionnels suivant le code normalisé', '', 0, 0, '', 0, '', '', '', 0, 0, '', NULL, '', ''),
318
('072', 'c', 'Numéro additionnels suivant le code normalisé', '', 0, 0, '', 0, '', '', '', 0, 0, '', NULL, '', ''),
319
('072', 'd', 'Mention de disponibilité et/ou de prix', '', 0, 0, '', 0, '', '', '', 0, 0, '', NULL, '', ''),
319
('072', 'd', 'Mention de disponibilité et/ou de prix', '', 0, 0, '', 0, '', '', '', 0, 0, '', NULL, '', ''),
320
('072', 'z', 'Numéro ou code erroné', '', 0, 0, '', 0, '', '', '', 0, 0, '', NULL, '', ''),
320
('072', 'z', 'Numéro ou code erroné', '', 0, 0, '', 0, '', '', '', 0, 0, '', NULL, '', ''),
321
('073', 'a', 'Numéro', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
321
('073', 'a', 'Numéro', '', 0, 0, 'biblioitems.ean', 0, '', '', '', NULL, 0, '', '', NULL, ''),
322
('073', 'b', 'Qualificatif', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
322
('073', 'b', 'Qualificatif', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
323
('073', 'c', 'Numéros additionnels', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
323
('073', 'c', 'Numéros additionnels', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
324
('073', 'd', 'Prix et disponibilité', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
324
('073', 'd', 'Prix et disponibilité', '', 0, 0, '', 0, '', '', '', NULL, 0, '', '', NULL, ''),
(-)a/installer/data/mysql/kohastructure.sql (+2 lines)
Lines 154-159 CREATE TABLE `biblioitems` ( -- information related to bibliographic records in Link Here
154
  `itemtype` varchar(10) default NULL, -- biblio level item type (MARC21 942$c)
154
  `itemtype` varchar(10) default NULL, -- biblio level item type (MARC21 942$c)
155
  `isbn` varchar(30) default NULL, -- ISBN (MARC21 020$a)
155
  `isbn` varchar(30) default NULL, -- ISBN (MARC21 020$a)
156
  `issn` varchar(9) default NULL, -- ISSN (MARC21 022$a)
156
  `issn` varchar(9) default NULL, -- ISSN (MARC21 022$a)
157
  `ean` varchar(13) default NULL,
157
  `publicationyear` text,
158
  `publicationyear` text,
158
  `publishercode` varchar(255) default NULL, -- publisher (MARC21 260$b)
159
  `publishercode` varchar(255) default NULL, -- publisher (MARC21 260$b)
159
  `volumedate` date default NULL,
160
  `volumedate` date default NULL,
Lines 625-630 CREATE TABLE `deletedbiblioitems` ( -- information about bibliographic records t Link Here
625
  `itemtype` varchar(10) default NULL, -- biblio level item type (MARC21 942$c)
626
  `itemtype` varchar(10) default NULL, -- biblio level item type (MARC21 942$c)
626
  `isbn` varchar(30) default NULL, -- ISBN (MARC21 020$a)
627
  `isbn` varchar(30) default NULL, -- ISBN (MARC21 020$a)
627
  `issn` varchar(9) default NULL, -- ISSN (MARC21 022$a)
628
  `issn` varchar(9) default NULL, -- ISSN (MARC21 022$a)
629
  `ean` varchar(13) default NULL,
628
  `publicationyear` text,
630
  `publicationyear` text,
629
  `publishercode` varchar(255) default NULL, -- publisher (MARC21 260$b)
631
  `publishercode` varchar(255) default NULL, -- publisher (MARC21 260$b)
630
  `volumedate` date default NULL,
632
  `volumedate` date default NULL,
(-)a/installer/data/mysql/updatedatabase.pl (+17 lines)
Lines 5109-5114 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
5109
    SetVersion ($DBversion);
5109
    SetVersion ($DBversion);
5110
}
5110
}
5111
5111
5112
5113
5114
5115
5116
$DBversion = "3.07.00.030";
5117
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5118
    $dbh->do("ALTER TABLE `biblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5119
    $dbh->do("CREATE INDEX `ean` ON biblioitems (`ean`) ");
5120
    $dbh->do("ALTER TABLE `deletedbiblioitems` ADD `ean` VARCHAR( 13 ) NULL AFTER issn");
5121
    $dbh->do("CREATE INDEX `ean` ON deletedbiblioitems (`ean`) ");
5122
    if (C4::Context->preference("marcflavour") eq 'UNIMARC') {
5123
         $dbh->do("UPDATE marc_subfield_structure SET kohafield='biblioitems.ean' WHERE tagfield='073' and tagsubfield='a'");
5124
    }
5125
    print "Upgrade to $DBversion done (Adding ean in biblioitems and deletedbiblioitems)\n";
5126
    SetVersion($DBversion);
5127
}
5128
5112
=head1 FUNCTIONS
5129
=head1 FUNCTIONS
5113
5130
5114
=head2 DropAllForeignKeys($table)
5131
=head2 DropAllForeignKeys($table)
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/serials-search.inc (-2 / +11 lines)
Lines 1-9 Link Here
1
2
<h1 id="logo"><a href="/cgi-bin/koha/mainpage.pl">[% LibraryName %]</a></h1><!-- Begin Serials Resident Search Box -->
1
<h1 id="logo"><a href="/cgi-bin/koha/mainpage.pl">[% LibraryName %]</a></h1><!-- Begin Serials Resident Search Box -->
3
<div id="header_search">
2
<div id="header_search">
4
	<div id="subscription_search" class="residentsearch">
3
	<div id="subscription_search" class="residentsearch">
5
	<p class="tip">Search Subscriptions:</p>
4
	<p class="tip">Search Subscriptions:</p>
6
 <form action="/cgi-bin/koha/serials/serials-home.pl" method="get">[% IF ( routing ) %]<input type="hidden" name="routing" value="[% routing %]" />[% END %]<input type="hidden" name="searched" value="1" /> <label for="ISSN_filter">ISSN:</label> <input type="text" size="10" maxlength="11" name="ISSN_filter" id="ISSN_filter" value="[% ISSN_filter %]" /> <label for="title_filter">Title:</label> <input type="text" size="20" maxlength="40" name="title_filter" id="title_filter" value="[% title_filter %]" /><input type="submit" value="Search" class="submit" />
5
 <form action="/cgi-bin/koha/serials/serials-home.pl" method="get">
6
 [% IF ( routing ) %]<input type="hidden" name="routing" value="[% routing %]" />[% END %]
7
 <input type="hidden" name="searched" value="1" /> 
8
 <label for="ISSN_filter">ISSN:</label> <input type="text" size="10" maxlength="11" name="ISSN_filter" id="ISSN_filter" value="[% ISSN_filter %]" /> 
9
10
[% IF (UNIMARC) %]
11
 <label for="EAN_filter">EAN:</label> <input type="text" size="20" maxlength="40" name="EAN_filter" id="EAN_filter" value="[% EAN_filter %]" />
12
[% END %]
13
 <label for="title_filter">Title:</label> <input type="text" size="20" maxlength="40" name="title_filter" id="title_filter" value="[% title_filter %]" />
14
 <input type="submit" value="Search" class="submit" />
15
7
</form>
16
</form>
8
	</div>
17
	</div>
9
    [% INCLUDE 'patron-search-box.inc' %]
18
    [% INCLUDE 'patron-search-box.inc' %]
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/histsearch.tt (+3 lines)
Lines 23-28 Link Here
23
		<li><label for="title">Title: </label> <input type="text" name="title" id="title" value="[% title %]" /></li>
23
		<li><label for="title">Title: </label> <input type="text" name="title" id="title" value="[% title %]" /></li>
24
		<li><label for="author">Author: </label> <input type="text" name="author" id="author" value="[% author %]" /></li>
24
		<li><label for="author">Author: </label> <input type="text" name="author" id="author" value="[% author %]" /></li>
25
		<li><label for="isbn">ISBN: </label> <input type="isbn" name="isbn" id="isbn" value="[% isbn %]" /></li>
25
		<li><label for="isbn">ISBN: </label> <input type="isbn" name="isbn" id="isbn" value="[% isbn %]" /></li>
26
                [% IF (UNIMARC) %]
27
		<li><label for="ean">EAN: </label> <input type="text" name="ean" id="ean" value="[% ean %]" /></li>
28
                [% END %]
26
		<li><label for="name">Vendor: </label> <input type="text" name="name" id="name" value="[% name %]" /></li>
29
		<li><label for="name">Vendor: </label> <input type="text" name="name" id="name" value="[% name %]" /></li>
27
		<li><label for="basket">Basket: </label> <input type="text" name="basket" id="basket" value="[% basket %]" /></li>
30
		<li><label for="basket">Basket: </label> <input type="text" name="basket" id="basket" value="[% basket %]" /></li>
28
		<li><label for="booksellerinvoicenumber ">Bookseller Invoice No: </label> <input type="text" name="booksellerinvoicenumber" id="booksellerinvoicenumber" value="[% booksellerinvoicenumber %]" /></li>
31
		<li><label for="booksellerinvoicenumber ">Bookseller Invoice No: </label> <input type="text" name="booksellerinvoicenumber" id="booksellerinvoicenumber" value="[% booksellerinvoicenumber %]" /></li>
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/neworderempty.tt (+11 lines)
Lines 284-289 $(document).ready(function() Link Here
284
                <input type="text" size="50" name="isbn" id="ISBN" value="[% isbn %]" />
284
                <input type="text" size="50" name="isbn" id="ISBN" value="[% isbn %]" />
285
            [% END %]
285
            [% END %]
286
        </li>
286
        </li>
287
        [% IF (UNIMARC) %]
288
        <li>
289
            [% IF ( biblionumber ) %]
290
            <span class="label">EAN: </span>
291
                <input type="hidden" size="20" name="ean" id="EAN" value="[% ean %]" />[% ean %]
292
            [% ELSE %]
293
            <label for="EAN">EAN: </label>
294
                <input type="text" size="20" name="ean" id="EAN" value="[% ean %]" />
295
            [% END %]
296
        </li>
297
        [% END %]
287
        <li>
298
        <li>
288
            [% IF ( biblionumber ) %]
299
            [% IF ( biblionumber ) %]
289
            <span class="label">Series: </span>
300
            <span class="label">Series: </span>
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/parcel.tt (-2 / +9 lines)
Lines 76-83 Link Here
76
    var summaryStatus = jQuery.trim($("#summaryfilter").val());
76
    var summaryStatus = jQuery.trim($("#summaryfilter").val());
77
	var basketStatus  = $("#basketfilter").val();
77
	var basketStatus  = $("#basketfilter").val();
78
	var orderStatus   = $("#orderfilter").val();
78
	var orderStatus   = $("#orderfilter").val();
79
	var eanStatus     = $("#eanfilter").val() || '';
79
80
80
	if (summaryStatus == '' && basketStatus == '' && orderStatus == '') { clearFilters(); return false; }
81
	if (summaryStatus == '' && basketStatus == '' && orderStatus == '' && eanStatus == '') { clearFilters(); return false; }
81
82
82
	var filtered = "table#pendingt tbody.filterclass tr";
83
	var filtered = "table#pendingt tbody.filterclass tr";
83
84
Lines 118-124 Link Here
118
			}catch(e){alert(e);}
119
			}catch(e){alert(e);}
119
		}
120
		}
120
	}
121
	}
121
	var transaction = YAHOO.util.Connect.asyncRequest('GET', '/cgi-bin/koha/acqui/parcel.pl?booksellerid=[% booksellerid %]&search='+summaryStatus+'&basketno='+basketStatus+'&orderno='+orderStatus+'&format=json', callback, null);
122
	var transaction = YAHOO.util.Connect.asyncRequest('GET', '/cgi-bin/koha/acqui/parcel.pl?booksellerid=[% booksellerid %]&search='+summaryStatus+'&basketno='+basketStatus+'&orderno='+orderStatus+'&ean='+eanStatus+'&format=json', callback, null);
122
123
123
	return false;
124
	return false;
124
    }
125
    }
Lines 423-428 Link Here
423
		    <label for="orderfilter">Order Line :</label>
424
		    <label for="orderfilter">Order Line :</label>
424
		    <input type="text" name="orderfilter" id="orderfilter" />
425
		    <input type="text" name="orderfilter" id="orderfilter" />
425
		</li>
426
		</li>
427
                [% IF (UNIMARC) %]
428
		<li>
429
		    <label for="eanfilter">EAN :</label>
430
		    <input type="text" name="eanfilter" id="eanfilter" />
431
		</li>
432
                [% END %]
426
	    </ol>
433
	    </ol>
427
		<fieldset class="action">
434
		<fieldset class="action">
428
		    <input type="submit" value="Filter" />
435
		    <input type="submit" value="Filter" />
(-)a/opac/opac-ISBDdetail.pl (-1 / +1 lines)
Lines 112-119 $template->param( Link Here
112
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
112
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
113
my $dbh = C4::Context->dbh;
113
my $dbh = C4::Context->dbh;
114
my $dat                 = TransformMarcToKoha( $dbh, $record );
114
my $dat                 = TransformMarcToKoha( $dbh, $record );
115
my @subscriptions       = GetSubscriptions( undef, undef, $biblionumber );
116
115
116
my @subscriptions       = GetSubscriptions( $dat->{title}, $dat->{issn}, undef, $biblionumber );
117
my @subs;
117
my @subs;
118
foreach my $subscription (@subscriptions) {
118
foreach my $subscription (@subscriptions) {
119
    my %cell;
119
    my %cell;
(-)a/opac/opac-detail.pl (-3 / +3 lines)
Lines 88-93 if($query->cookie("bib_list")){ Link Here
88
88
89
89
90
SetUTF8Flag($record);
90
SetUTF8Flag($record);
91
my $marcflavour      = C4::Context->preference("marcflavour");
92
my $ean = GetNormalizedEAN( $record, $marcflavour );
91
93
92
# XSLT processing of some stuff
94
# XSLT processing of some stuff
93
if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {
95
if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {
Lines 387-393 $template->param('OPACShowCheckoutName' => C4::Context->preference("OPACShowChec Link Here
387
my @all_items = GetItemsInfo( $biblionumber );
389
my @all_items = GetItemsInfo( $biblionumber );
388
390
389
# adding items linked via host biblios
391
# adding items linked via host biblios
390
my $marcflavour  = C4::Context->preference("marcflavour");
391
392
392
my $analyticfield = '773';
393
my $analyticfield = '773';
393
if ($marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC'){
394
if ($marcflavour eq 'MARC21' || $marcflavour eq 'NORMARC'){
Lines 442-448 my $collections = GetKohaAuthorisedValues('items.ccode',$dat->{'frameworkcode'} Link Here
442
443
443
#coping with subscriptions
444
#coping with subscriptions
444
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
445
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
445
my @subscriptions       = GetSubscriptions( undef, undef, $biblionumber );
446
my @subscriptions       = GetSubscriptions($dat->{'title'}, $dat->{'issn'}, $ean, $biblionumber );
446
447
447
my @subs;
448
my @subs;
448
$dat->{'serial'}=1 if $subscriptionsnumber;
449
$dat->{'serial'}=1 if $subscriptionsnumber;
Lines 595-601 foreach ( keys %{$dat} ) { Link Here
595
# in each case, we're grabbing the first value we find in
596
# in each case, we're grabbing the first value we find in
596
# the record and normalizing it
597
# the record and normalizing it
597
my $upc = GetNormalizedUPC($record,$marcflavour);
598
my $upc = GetNormalizedUPC($record,$marcflavour);
598
my $ean = GetNormalizedEAN($record,$marcflavour);
599
my $oclc = GetNormalizedOCLCNumber($record,$marcflavour);
599
my $oclc = GetNormalizedOCLCNumber($record,$marcflavour);
600
my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);
600
my $isbn = GetNormalizedISBN(undef,$record,$marcflavour);
601
my $content_identifier_exists;
601
my $content_identifier_exists;
(-)a/serials/checkexpiration.pl (+1 lines)
Lines 97-101 if ($date) { Link Here
97
}
97
}
98
$template->param (
98
$template->param (
99
    DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
99
    DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
100
    (uc(C4::Context->preference("marcflavour"))) => 1
100
);
101
);
101
output_html_with_http_headers $query, $cookie, $template->output;
102
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/claims.pl (+1 lines)
Lines 100-104 $template->param( Link Here
100
        branchloop   => $branchloop,
100
        branchloop   => $branchloop,
101
        dateformat    => C4::Context->preference("dateformat"),
101
        dateformat    => C4::Context->preference("dateformat"),
102
    	DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
102
    	DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
103
        (uc(C4::Context->preference("marcflavour"))) => 1
103
        );
104
        );
104
output_html_with_http_headers $input, $cookie, $template->output;
105
output_html_with_http_headers $input, $cookie, $template->output;
(-)a/serials/routing-preview.pl (+1 lines)
Lines 133-138 $template->param( Link Here
133
    routingnotes => $routingnotes,
133
    routingnotes => $routingnotes,
134
    generalroutingnote => C4::Context->preference('RoutingListNote'),
134
    generalroutingnote => C4::Context->preference('RoutingListNote'),
135
    hasRouting => check_routing($subscriptionid),
135
    hasRouting => check_routing($subscriptionid),
136
    (uc(C4::Context->preference("marcflavour"))) => 1
136
    );
137
    );
137
138
138
output_html_with_http_headers $query, $cookie, $template->output;
139
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/routing.pl (+2 lines)
Lines 121-126 $template->param( Link Here
121
    dates => $dates,
121
    dates => $dates,
122
    routingnotes => $serials[0]->{'routingnotes'},
122
    routingnotes => $serials[0]->{'routingnotes'},
123
    hasRouting => check_routing($subscriptionid),
123
    hasRouting => check_routing($subscriptionid),
124
    (uc(C4::Context->preference("marcflavour"))) => 1
125
124
    );
126
    );
125
127
126
output_html_with_http_headers $query, $cookie, $template->output;
128
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/serial-issues.pl (+1 lines)
Lines 108-111 if ($selectview eq "full"){ Link Here
108
        virtualshelves => "".C4::Context->preference("virtualshelves"),
108
        virtualshelves => "".C4::Context->preference("virtualshelves"),
109
    );
109
    );
110
}
110
}
111
$template->param((uc(C4::Context->preference("marcflavour"))) => 1);
111
output_html_with_http_headers $query, $cookie, $template->output;
112
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/serials-collection.pl (+1 lines)
Lines 163-168 $template->param( Link Here
163
          subscriptioncount => $subscriptioncount,
163
          subscriptioncount => $subscriptioncount,
164
    location	       => $locationlib,
164
    location	       => $locationlib,
165
    callnumber	       => $callnumber,
165
    callnumber	       => $callnumber,
166
    uc(C4::Context->preference("marcflavour")) => 1
166
          );
167
          );
167
168
168
output_html_with_http_headers $query, $cookie, $template->output;
169
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/serials-edit.pl (+2 lines)
Lines 399-404 $template->param( Link Here
399
    serialslist     => \@serialdatalist,
399
    serialslist     => \@serialdatalist,
400
    default_bib_view => $default_bib_view,
400
    default_bib_view => $default_bib_view,
401
    location         => $locationlib,
401
    location         => $locationlib,
402
    (uc(C4::Context->preference("marcflavour"))) => 1
403
402
);
404
);
403
output_html_with_http_headers $query, $cookie, $template->output;
405
output_html_with_http_headers $query, $cookie, $template->output;
404
406
(-)a/serials/serials-home.pl (-8 / +11 lines)
Lines 49-60 use C4::Output; Link Here
49
use C4::Context;
49
use C4::Context;
50
use C4::Branch;
50
use C4::Branch;
51
51
52
my $query         = new CGI;
52
my $query        = new CGI;
53
my $title         = $query->param('title_filter');
53
my $title        = $query->param('title_filter');
54
my $ISSN          = $query->param('ISSN_filter');
54
my $ISSN         = $query->param('ISSN_filter');
55
my $routing       = $query->param('routing')||C4::Context->preference("RoutingSerials");
55
my $EAN          = $query->param('EAN_filter');
56
my $searched      = $query->param('searched');
56
my $routing      = $query->param('routing') || C4::Context->preference("RoutingSerials");
57
my $biblionumber  = $query->param('biblionumber');
57
my $searched     = $query->param('searched');
58
my $biblionumber = $query->param('biblionumber');
58
59
59
my @serialseqs = $query->param('serialseq');
60
my @serialseqs = $query->param('serialseq');
60
my @planneddates = $query->param('planneddate');
61
my @planneddates = $query->param('planneddate');
Lines 92-99 if (@serialseqs){ Link Here
92
  $template->param('information'=>\@information);
93
  $template->param('information'=>\@information);
93
}
94
}
94
my @subscriptions;
95
my @subscriptions;
95
if ($searched){
96
if ($searched) {
96
    @subscriptions = GetSubscriptions( $title, $ISSN, $biblionumber );
97
    @subscriptions = GetSubscriptions( $title, $ISSN, $EAN, $biblionumber );
97
}
98
}
98
99
99
# to toggle between create or edit routing list options
100
# to toggle between create or edit routing list options
Lines 110-114 $template->param( Link Here
110
    ISSN_filter   => $ISSN,
111
    ISSN_filter   => $ISSN,
111
    done_searched => $searched,
112
    done_searched => $searched,
112
    routing       => $routing,
113
    routing       => $routing,
114
    (uc(C4::Context->preference("marcflavour"))) => 1
113
);
115
);
116
114
output_html_with_http_headers $query, $cookie, $template->output;
117
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/serials-recieve.pl (+1 lines)
Lines 278-282 $template->param( Link Here
278
            frommissing => $manualstatus,
278
            frommissing => $manualstatus,
279
            missingdate => $manualdate,
279
            missingdate => $manualdate,
280
            missingid => $manualid,
280
            missingid => $manualid,
281
            (uc(C4::Context->preference("marcflavour"))) => 1
281
        );
282
        );
282
output_html_with_http_headers $query, $cookie, $template->output;
283
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/subscription-add.pl (+2 lines)
Lines 175-180 if ($op eq 'addsubscription') { Link Here
175
            $template->param(bibliotitle => $bib->{title});
175
            $template->param(bibliotitle => $bib->{title});
176
        }
176
        }
177
    }
177
    }
178
        $template->param((uc(C4::Context->preference("marcflavour"))) => 1);
178
	output_html_with_http_headers $query, $cookie, $template->output;
179
	output_html_with_http_headers $query, $cookie, $template->output;
179
}
180
}
180
181
Lines 356-358 sub redirect_mod_subscription { Link Here
356
    print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
357
    print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
357
    return;
358
    return;
358
}
359
}
360
(-)a/serials/subscription-detail.pl (+1 lines)
Lines 138-143 $template->param( Link Here
138
    intranetcolorstylesheet => C4::Context->preference('intranetcolorstylesheet'),
138
    intranetcolorstylesheet => C4::Context->preference('intranetcolorstylesheet'),
139
    irregular_issues => scalar @irregular_issues,
139
    irregular_issues => scalar @irregular_issues,
140
    default_bib_view => $default_bib_view,
140
    default_bib_view => $default_bib_view,
141
    (uc(C4::Context->preference("marcflavour"))) => 1
141
    );
142
    );
142
143
143
output_html_with_http_headers $query, $cookie, $template->output;
144
output_html_with_http_headers $query, $cookie, $template->output;
(-)a/serials/viewalerts.pl (-2 / +3 lines)
Lines 52-57 foreach (@$borrowers) { Link Here
52
}
52
}
53
$template->param(alertloop => $borrowers,
53
$template->param(alertloop => $borrowers,
54
                bibliotitle => $subscription->{bibliotitle},
54
                bibliotitle => $subscription->{bibliotitle},
55
                subscriptionid => $subscriptionid);
55
                subscriptionid => $subscriptionid,
56
                (uc(C4::Context->preference("marcflavour"))) => 1
57
                );
56
58
57
output_html_with_http_headers $input, $cookie, $template->output;
59
output_html_with_http_headers $input, $cookie, $template->output;
58
- 

Return to bug 5337