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

(-)a/C4/Items.pm (-18 / +6 lines)
Lines 29-38 use C4::Dates qw/format_date format_date_in_iso/; Link Here
29
use MARC::Record;
29
use MARC::Record;
30
use C4::ClassSource;
30
use C4::ClassSource;
31
use C4::Log;
31
use C4::Log;
32
use C4::Branch;
33
require C4::Reserves;
34
use C4::Charset;
35
use C4::Acquisition;
36
use List::MoreUtils qw/any/;
32
use List::MoreUtils qw/any/;
37
use Data::Dumper; # used as part of logging item record changes, not just for
33
use Data::Dumper; # used as part of logging item record changes, not just for
38
                  # debugging; so please don't remove this
34
                  # debugging; so please don't remove this
Lines 640-645 item that has a given branch code. Link Here
640
636
641
sub CheckItemPreSave {
637
sub CheckItemPreSave {
642
    my $item_ref = shift;
638
    my $item_ref = shift;
639
    require C4::Branch;
643
640
644
    my %errors = ();
641
    my %errors = ();
645
642
Lines 1210-1216 sub GetItemsInfo { Link Here
1210
	my $ssth = $dbh->prepare("SELECT serialseq,publisheddate from serialitems left join serial on serialitems.serialid=serial.serialid where serialitems.itemnumber=? "); 
1207
	my $ssth = $dbh->prepare("SELECT serialseq,publisheddate from serialitems left join serial on serialitems.serialid=serial.serialid where serialitems.itemnumber=? "); 
1211
	while ( my $data = $sth->fetchrow_hashref ) {
1208
	while ( my $data = $sth->fetchrow_hashref ) {
1212
        my $datedue = '';
1209
        my $datedue = '';
1213
        my $count_reserves;
1214
        $isth->execute( $data->{'itemnumber'} );
1210
        $isth->execute( $data->{'itemnumber'} );
1215
        if ( my $idata = $isth->fetchrow_hashref ) {
1211
        if ( my $idata = $isth->fetchrow_hashref ) {
1216
            $data->{borrowernumber} = $idata->{borrowernumber};
1212
            $data->{borrowernumber} = $idata->{borrowernumber};
Lines 1231-1244 sub GetItemsInfo { Link Here
1231
			($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();
1227
			($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();
1232
			$serial = 1;
1228
			$serial = 1;
1233
        }
1229
        }
1234
		if ( $datedue eq '' ) {
1235
            my ( $restype, $reserves, undef ) =
1236
              C4::Reserves::CheckReserves( $data->{'itemnumber'} );
1237
# Previous conditional check with if ($restype) is not needed because a true
1238
# result for one item will result in subsequent items defaulting to this true
1239
# value.
1240
            $count_reserves = $restype;
1241
        }
1242
        #get branch information.....
1230
        #get branch information.....
1243
        my $bsth = $dbh->prepare(
1231
        my $bsth = $dbh->prepare(
1244
            "SELECT * FROM branches WHERE branchcode = ?
1232
            "SELECT * FROM branches WHERE branchcode = ?
Lines 1249-1255 sub GetItemsInfo { Link Here
1249
            $data->{'branchname'} = $bdata->{'branchname'};
1237
            $data->{'branchname'} = $bdata->{'branchname'};
1250
        }
1238
        }
1251
        $data->{'datedue'}        = $datedue;
1239
        $data->{'datedue'}        = $datedue;
1252
        $data->{'count_reserves'} = $count_reserves;
1253
1240
1254
        # get notforloan complete status if applicable
1241
        # get notforloan complete status if applicable
1255
        my $sthnflstatus = $dbh->prepare(
1242
        my $sthnflstatus = $dbh->prepare(
Lines 2182-2192 sub MoveItemFromBiblio { Link Here
2182
        ModZebra( $tobiblio, "specialUpdate", "biblioserver", undef, undef );
2169
        ModZebra( $tobiblio, "specialUpdate", "biblioserver", undef, undef );
2183
        ModZebra( $frombiblio, "specialUpdate", "biblioserver", undef, undef );
2170
        ModZebra( $frombiblio, "specialUpdate", "biblioserver", undef, undef );
2184
	    # Checking if the item we want to move is in an order 
2171
	    # Checking if the item we want to move is in an order 
2185
        my $order = GetOrderFromItemnumber($itemnumber);
2172
        require C4::Acquisition;
2173
        my $order = C4::Acquisition::GetOrderFromItemnumber($itemnumber);
2186
	    if ($order) {
2174
	    if ($order) {
2187
		    # Replacing the biblionumber within the order if necessary
2175
		    # Replacing the biblionumber within the order if necessary
2188
		    $order->{'biblionumber'} = $tobiblio;
2176
		    $order->{'biblionumber'} = $tobiblio;
2189
	        ModOrder($order);
2177
	        C4::Acquisition::ModOrder($order);
2190
	    }
2178
	    }
2191
        return $tobiblio;
2179
        return $tobiblio;
2192
	}
2180
	}
Lines 2441-2449 sub _get_unlinked_subfields_xml { Link Here
2441
2429
2442
sub  _parse_unlinked_item_subfields_from_xml {
2430
sub  _parse_unlinked_item_subfields_from_xml {
2443
    my $xml = shift;
2431
    my $xml = shift;
2444
2432
    require C4::Charset;
2445
    return unless defined $xml and $xml ne "";
2433
    return unless defined $xml and $xml ne "";
2446
    my $marc = MARC::Record->new_from_xml(StripNonXmlChars($xml),'UTF-8');
2434
    my $marc = MARC::Record->new_from_xml(C4::Charset::StripNonXmlChars($xml),'UTF-8');
2447
    my $unlinked_subfields = [];
2435
    my $unlinked_subfields = [];
2448
    my @fields = $marc->fields();
2436
    my @fields = $marc->fields();
2449
    if ($#fields > -1) {
2437
    if ($#fields > -1) {
(-)a/opac/opac-detail.pl (-6 / +4 lines)
Lines 41-46 use C4::Members; Link Here
41
use C4::VirtualShelves;
41
use C4::VirtualShelves;
42
use C4::XSLT;
42
use C4::XSLT;
43
use C4::ShelfBrowser;
43
use C4::ShelfBrowser;
44
use C4::Reserves;
44
use C4::Charset;
45
use C4::Charset;
45
use MARC::Record;
46
use MARC::Record;
46
use MARC::Field;
47
use MARC::Field;
Lines 509-519 for my $itm (@items) { Link Here
509
         $itm->{'lostimageurl'}   = $lostimageinfo->{ 'imageurl' };
510
         $itm->{'lostimageurl'}   = $lostimageinfo->{ 'imageurl' };
510
         $itm->{'lostimagelabel'} = $lostimageinfo->{ 'label' };
511
         $itm->{'lostimagelabel'} = $lostimageinfo->{ 'label' };
511
     }
512
     }
512
513
     my ($reserve_status) = C4::Reserves::CheckReserves($itm->{itemnumber});
513
     if( $itm->{'count_reserves'}){
514
      if( $reserve_status eq "Waiting"){ $itm->{'waiting'} = 1; }
514
          if( $itm->{'count_reserves'} eq "Waiting"){ $itm->{'waiting'} = 1; }
515
      if( $reserve_status eq "Reserved"){ $itm->{'onhold'} = 1; }
515
          if( $itm->{'count_reserves'} eq "Reserved"){ $itm->{'onhold'} = 1; }
516
     }
517
    
516
    
518
     my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber});
517
     my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($itm->{itemnumber});
519
     if ( defined( $transfertwhen ) && $transfertwhen ne '' ) {
518
     if ( defined( $transfertwhen ) && $transfertwhen ne '' ) {
520
- 

Return to bug 6875