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

(-)a/members/members-home.pl (-5 / +9 lines)
Lines 1-5 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
# Parts Copyright Biblibre 2010
3
# This file is part of Koha.
4
# This file is part of Koha.
4
#
5
#
5
# Koha is free software; you can redistribute it and/or modify it under the
6
# Koha is free software; you can redistribute it and/or modify it under the
Lines 27-33 use C4::Branch; Link Here
27
use C4::Category;
28
use C4::Category;
28
29
29
my $query = new CGI;
30
my $query = new CGI;
30
my $quicksearch = $query->param('quicksearch');
31
my $branch = $query->param('branchcode');
31
my $branch = $query->param('branchcode');
32
my $template_name;
32
my $template_name;
33
33
Lines 39-45 my ($template, $loggedinuser, $cookie) Link Here
39
                 flagsrequired => {borrowers => 1},
39
                 flagsrequired => {borrowers => 1},
40
                 debug => 1,
40
                 debug => 1,
41
                 });
41
                 });
42
}
43
42
44
my $branches = GetBranches;
43
my $branches = GetBranches;
45
my @branchloop;
44
my @branchloop;
Lines 59-74 my $branchloop = (defined $branch?GetBranchesLoop($branch):GetBranchesLoop()); Link Here
59
if(scalar(@$branchloop) < 1){
58
if(scalar(@$branchloop) < 1){
60
    $no_add = 1;
59
    $no_add = 1;
61
    $template->param(no_branches => 1);
60
    $template->param(no_branches => 1);
62
} else {
61
} 
62
else {
63
    $template->param(branchloop=>\@$branchloop);
63
    $template->param(branchloop=>\@$branchloop);
64
}
64
}
65
65
66
@categories=C4::Category->all;
66
@categories=C4::Category->all;
67
if(scalar(@categories) < 1){ $no_categories = 1; }
67
if(scalar(@categories) < 1){ 
68
    $no_categories = 1; 
69
}
70
68
if($no_categories && C4::Context->preference("AddPatronLists")=~/code/){
71
if($no_categories && C4::Context->preference("AddPatronLists")=~/code/){
69
    $no_add = 1;
72
    $no_add = 1;
70
    $template->param(no_categories => 1);
73
    $template->param(no_categories => 1);
71
} else {
74
} 
75
else {
72
    $template->param(categories=>\@categories);
76
    $template->param(categories=>\@categories);
73
}
77
}
74
78

Return to bug 5751