- #DEBUG Notes: Decode the MARC record from each resulting MARC record...
- my $marcrecord = MARC::File::USMARC::decode($marcresults->[$i]);
- #DEBUG Notes: Transform it to Koha form...
- my $biblio = TransformMarcToKoha(C4::Context->dbh,$marcrecord,'');
- #build the hash for the template.
- $biblio->{highlight} = ($i % 2)?(1):(0);
- #DEBUG Notes: Stuff it into @results... (used below to supply fields not existing in the item data)
- push @results, $biblio;
- my $biblionumber = $biblio->{'biblionumber'};
- #DEBUG Notes: Grab the item numbers associated with this MARC record...
- my $itemnums = get_itemnumbers_of($biblionumber);
- #DEBUG Notes: Retrieve the item data for each number...
- my $iii = $itemnums->{$biblionumber};
+ #DEBUG Notes: Decode the MARC record from each resulting MARC record...
+ my $marcrecord = MARC::File::USMARC::decode($marcresults->[$i]);
+ #DEBUG Notes: Transform it to Koha form...
+ my $biblio = TransformMarcToKoha(C4::Context->dbh,$marcrecord,'');
+ # Begin building the hash for the template...
+ # I don't think we need this with the current template design, but I'm leaving it in place. -fbcit
+ #$biblio->{highlight} = ($i % 2)?(1):(0);
+ #DEBUG Notes: Stuff the bib into @results...
+ push @results, $biblio;
+ my $biblionumber = $biblio->{'biblionumber'};
+ #DEBUG Notes: Grab the item numbers associated with this MARC record...
+ my $itemnums = get_itemnumbers_of($biblionumber);
+ #DEBUG Notes: Retrieve the item data for each number...
+ my $iii = $itemnums->{$biblionumber};