Attachment #109045 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 556-570 if ($StaffDetailItemSelection) { Link Here

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