Attachment #109038 for bug #23166

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




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {
    my $basket = $myorder->{'basketno'};
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
        push @deletedorders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
            push @baskets_deletedorders,$myorder->{'basketno'};
        }
    }
    else {
        push @orders_using_biblio, $myorder;




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {
    my $basket = $myorder->{'basketno'};
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
        push @deletedorders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
            push @baskets_deletedorders,$myorder->{'basketno'};
        }
    }
    else {
        push @orders_using_biblio, $myorder;




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {
    my $basket = $myorder->{'basketno'};
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
        push @deletedorders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
            push @baskets_deletedorders,$myorder->{'basketno'};
        }
    }
    else {
        push @orders_using_biblio, $myorder;

my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
$template->param (countdeletedorders => $count_deletedorders_using_biblio);

$template->param (basketsdeletedorders => \@baskets_deletedorders);

output_html_with_http_headers $query, $cookie, $template->output;




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {
    my $basket = $myorder->{'basketno'};
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
        push @deletedorders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
            push @baskets_deletedorders,$myorder->{'basketno'};
        }
    }
    else {
        push @orders_using_biblio, $myorder;




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {
    my $basket = $myorder->{'basketno'};
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
        push @deletedorders_using_biblio, $myorder;
        unless (grep { $_ eq $basket } @baskets_deletedorders){
            push @baskets_deletedorders,$myorder->{'basketno'};
        }
    }
    else {
        push @orders_using_biblio, $myorder;




my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
my @deletedorders_using_biblio;
my @orders_using_biblio;
my @baskets_deletedorders;

foreach my $myorder (@allorders_using_biblio) {
    my $basket = $myorder->{'basketno'};
    if ((defined $myorder->{'datecancellationprinted'}) and  ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
        push @deletedorders_using_biblio, $myorder;
        unless (grep{ $_ eq $basket } @baskets_deletedorders){
            push @baskets_deletedorders,$myorder->{'basketno'};
        }
    }
    else {
        push @orders_using_biblio, $myorder;
- 

Return to bug 23166

Lines 154-168 $template->param ( Link Here

(-)a/catalogue/ISBDdetail.pl (-4 lines)
154	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	154	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
155	my @deletedorders_using_biblio;	155	my @deletedorders_using_biblio;
156	my @orders_using_biblio;	156	my @orders_using_biblio;
157	my @baskets_deletedorders;
158		157
159	foreach my $myorder (@allorders_using_biblio) {	158	foreach my $myorder (@allorders_using_biblio) {
160	my $basket = $myorder->{'basketno'};	159	my $basket = $myorder->{'basketno'};
161	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){	160	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
162	push @deletedorders_using_biblio, $myorder;	161	push @deletedorders_using_biblio, $myorder;
163	unless (grep{ $_ eq $basket } @baskets_deletedorders){
164	push @baskets_deletedorders,$myorder->{'basketno'};
165	}
166	}	162	}
167	else {	163	else {
168	push @orders_using_biblio, $myorder;	164	push @orders_using_biblio, $myorder;

Lines 347-361 $template->param ( Link Here

(-)a/catalogue/MARCdetail.pl (-4 lines)
347	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	347	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
348	my @deletedorders_using_biblio;	348	my @deletedorders_using_biblio;
349	my @orders_using_biblio;	349	my @orders_using_biblio;
350	my @baskets_deletedorders;
351		350
352	foreach my $myorder (@allorders_using_biblio) {	351	foreach my $myorder (@allorders_using_biblio) {
353	my $basket = $myorder->{'basketno'};	352	my $basket = $myorder->{'basketno'};
354	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){	353	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
355	push @deletedorders_using_biblio, $myorder;	354	push @deletedorders_using_biblio, $myorder;
356	unless (grep{ $_ eq $basket } @baskets_deletedorders){
357	push @baskets_deletedorders,$myorder->{'basketno'};
358	}
359	}	355	}
360	else {	356	else {
361	push @orders_using_biblio, $myorder;	357	push @orders_using_biblio, $myorder;

Lines 555-569 if ($StaffDetailItemSelection) { Link Here

(-)a/catalogue/detail.pl (-6 lines)
555	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	555	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
556	my @deletedorders_using_biblio;	556	my @deletedorders_using_biblio;
557	my @orders_using_biblio;	557	my @orders_using_biblio;
558	my @baskets_deletedorders;
559		558
560	foreach my $myorder (@allorders_using_biblio) {	559	foreach my $myorder (@allorders_using_biblio) {
561	my $basket = $myorder->{'basketno'};	560	my $basket = $myorder->{'basketno'};
562	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){	561	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
563	push @deletedorders_using_biblio, $myorder;	562	push @deletedorders_using_biblio, $myorder;
564	unless (grep{ $_ eq $basket } @baskets_deletedorders){
565	push @baskets_deletedorders,$myorder->{'basketno'};
566	}
567	}	563	}
568	else {	564	else {
569	push @orders_using_biblio, $myorder;	565	push @orders_using_biblio, $myorder;
Lines 578-583 $template->param (countorders => $count_orders_using_biblio); Link Here
578	my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;	574	my $count_deletedorders_using_biblio = scalar @deletedorders_using_biblio ;
579	$template->param (countdeletedorders => $count_deletedorders_using_biblio);	575	$template->param (countdeletedorders => $count_deletedorders_using_biblio);
580		576
581	$template->param (basketsdeletedorders => \@baskets_deletedorders);
582
583	output_html_with_http_headers $query, $cookie, $template->output;	577	output_html_with_http_headers $query, $cookie, $template->output;

Lines 90-104 $template->{VARS}->{'biblio'} = $biblio; Link Here

(-)a/catalogue/imageviewer.pl (-4 lines)
90	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	90	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
91	my @deletedorders_using_biblio;	91	my @deletedorders_using_biblio;
92	my @orders_using_biblio;	92	my @orders_using_biblio;
93	my @baskets_deletedorders;
94		93
95	foreach my $myorder (@allorders_using_biblio) {	94	foreach my $myorder (@allorders_using_biblio) {
96	my $basket = $myorder->{'basketno'};	95	my $basket = $myorder->{'basketno'};
97	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){	96	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
98	push @deletedorders_using_biblio, $myorder;	97	push @deletedorders_using_biblio, $myorder;
99	unless (grep{ $_ eq $basket } @baskets_deletedorders){
100	push @baskets_deletedorders,$myorder->{'basketno'};
101	}
102	}	98	}
103	else {	99	else {
104	push @orders_using_biblio, $myorder;	100	push @orders_using_biblio, $myorder;

Lines 136-150 $template->param ( Link Here

(-)a/catalogue/labeledMARCdetail.pl (-4 lines)
136	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	136	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
137	my @deletedorders_using_biblio;	137	my @deletedorders_using_biblio;
138	my @orders_using_biblio;	138	my @orders_using_biblio;
139	my @baskets_deletedorders;
140		139
141	foreach my $myorder (@allorders_using_biblio) {	140	foreach my $myorder (@allorders_using_biblio) {
142	my $basket = $myorder->{'basketno'};	141	my $basket = $myorder->{'basketno'};
143	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){	142	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
144	push @deletedorders_using_biblio, $myorder;	143	push @deletedorders_using_biblio, $myorder;
145	unless (grep { $_ eq $basket } @baskets_deletedorders){
146	push @baskets_deletedorders,$myorder->{'basketno'};
147	}
148	}	144	}
149	else {	145	else {
150	push @orders_using_biblio, $myorder;	146	push @orders_using_biblio, $myorder;

Lines 270-284 $template->{'VARS'}->{'searchid'} = $query->param('searchid'); Link Here

(-)a/catalogue/moredetail.pl (-5 lines)
270	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);	270	my @allorders_using_biblio = GetOrdersByBiblionumber ($biblionumber);
271	my @deletedorders_using_biblio;	271	my @deletedorders_using_biblio;
272	my @orders_using_biblio;	272	my @orders_using_biblio;
273	my @baskets_deletedorders;
274		273
275	foreach my $myorder (@allorders_using_biblio) {	274	foreach my $myorder (@allorders_using_biblio) {
276	my $basket = $myorder->{'basketno'};	275	my $basket = $myorder->{'basketno'};
277	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){	276	if ((defined $myorder->{'datecancellationprinted'}) and ($myorder->{'datecancellationprinted'} ne '0000-00-00') ){
278	push @deletedorders_using_biblio, $myorder;	277	push @deletedorders_using_biblio, $myorder;
279	unless (grep{ $_ eq $basket } @baskets_deletedorders){
280	push @baskets_deletedorders,$myorder->{'basketno'};
281	}
282	}	278	}
283	else {	279	else {
284	push @orders_using_biblio, $myorder;	280	push @orders_using_biblio, $myorder;
285	-