Bug 18552: [QA Follow-up] Resolve warnings
[koha.git] / members / members-home.pl
index 89b9793..5e474bb 100755 (executable)
@@ -24,11 +24,10 @@ use C4::Auth;
 use C4::Output;
 use C4::Context;
 use C4::Members;
-use C4::Branch;
-use C4::Category;
-use Koha::Borrower::Modifications;
+use Koha::Patron::Modifications;
 use Koha::Libraries;
 use Koha::List::Patron;
+use Koha::Patron::Categories;
 
 my $query = new CGI;
 my $branch = $query->param('branchcode');
@@ -44,41 +43,13 @@ my ($template, $loggedinuser, $cookie)
                  debug => 1,
                  });
 
-my $branches = GetBranches;
-my @branchloop;
-if ( C4::Branch::onlymine ) {
-    my $userenv = C4::Context->userenv;
-    my $library = Koha::Libraries->find( $userenv->{'branch'} );
-    push @branchloop, {
-        value => $library->id,
-        branchcode => $library->branchcode,
-        branchname => $library->branchname,
-        selected => 1
-    }
-} else {
-    foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %{$branches}) {
-        my $selected = 0;
-        $selected = 1 if $branch and $branch eq $_;
-        push @branchloop, {
-            value => $_,
-            branchcode => $_,
-            branchname => $branches->{$_}->{branchname},
-            selected => $selected
-        };
-    }
-}
-
-my @categories;
 my $no_add = 0;
-if(scalar(@branchloop) < 1){
+if( Koha::Libraries->search->count < 1){
     $no_add = 1;
     $template->param(no_branches => 1);
-} 
-else {
-    $template->param(branchloop=>\@branchloop);
 }
 
-@categories=C4::Category->all;
+my @categories = Koha::Patron::Categories->search_limited;
 if(scalar(@categories) < 1){
     $no_add = 1;
     $template->param(no_categories => 1);
@@ -89,7 +60,7 @@ else {
 
 
 my $pending_borrower_modifications =
-  Koha::Borrower::Modifications->GetPendingModificationsCount( $branch );
+  Koha::Patron::Modifications->pending_count( $branch );
 
 $template->param( 
         no_add => $no_add,