use C4::Suggestions;
use C4::Koha;
use C4::Biblio;
+use C4::Branch;
use C4::Items;
use C4::Search;
use C4::Letters;
&reorder_members
&check_routing &updateClaim &removeMissingIssue
&CountIssues
+ HasItems
);
}
return :
the supplierlist into a hash. this hash containts id & name of the supplier
+Only valid suppliers are returned. Late subscriptions lacking a supplier are
+ignored.
=back
$sth->execute;
my %supplierlist;
while ( my ( $id, $name ) = $sth->fetchrow ) {
+ next if !defined $id;
$supplierlist{$id} = $name;
}
return %supplierlist;
? format_date( $subs->{'publisheddate'} )
: "XXX"
);
+ $subs->{'branchname'} = GetBranchName( $subs->{'branchcode'} );
$subs->{'planneddate'} = format_date( $subs->{'planneddate'} );
$subs->{ "status" . $subs->{'status'} } = 1;
$subs->{"checked"} = $subs->{'status'} =~ /1|3|4|7/;
$missinglist .= "; $serialseq"
if ( $status eq 4
and not index( "$missinglist", "$serialseq" ) >= 0 );
- $missinglist .= "; not issued $serialseq"
+ $missinglist .= "; $serialseq"
if ( $status eq 5
and index( "$missinglist", "$serialseq" ) >= 0 );
$query = "UPDATE subscriptionhistory SET recievedlist=?, missinglist=? WHERE subscriptionid=?";