[Koha-cvs] CVS: koha/bull acqui-search.pl,1.2,1.3 subscription-add.pl,1.5,1.6

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/bull
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20385/bull

Modified Files:
        acqui-search.pl subscription-add.pl 
Log Message:
Adding branch specific display to budgets and selection.

Be warned that to be able to select a budget which is not from patron's Branch, 
you should have a '' Branch information.


Index: acqui-search.pl
===================================================================
RCS file: /cvsroot/koha/koha/bull/acqui-search.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** acqui-search.pl     5 Aug 2004 16:34:41 -0000       1.2
--- acqui-search.pl     14 Jul 2005 09:13:25 -0000      1.3
***************
*** 19,24 ****
                             });
  
  # budget
! my ($count,@results)=&bookfunds;
  my $classlist='';
  my $total=0;
--- 19,31 ----
                             });
  
+ #FIXME : Is this page still used ????
+ # looks like no.
+ 
  # budget
! my $dbh = C4::Context->dbh;
! my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where 
borrowernumber = ?");
! $sthtemp->execute($loggedinuser);
! my ($flags, $homebranch)=$sthtemp->fetchrow;
! my ($count,@results)=bookfunds($homebranch);
  my $classlist='';
  my $total=0;

Index: subscription-add.pl
===================================================================
RCS file: /cvsroot/koha/koha/bull/subscription-add.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** subscription-add.pl 20 Sep 2004 10:16:05 -0000      1.5
--- subscription-add.pl 14 Jul 2005 09:13:25 -0000      1.6
***************
*** 37,40 ****
--- 37,47 ----
  
  
+ #FIXME : If Budgets are never used, then these lines are useless.
+ my $dbh = C4::Context->dbh;
+ my $sthtemp = $dbh->prepare("Select flags, branchcode from borrowers where 
borrowernumber = ?");
+ $sthtemp->execute($loggedinuser);
+ my ($flags, $homebranch)=$sthtemp->fetchrow;
+ #FIXME : END added by hdl on July,14 2005
+ 
  if ($op eq 'mod') {
        my $subscriptionid = $query->param('subscriptionid');
***************
*** 121,125 ****
                                );
  }
! (my $temp,@budgets) = bookfunds();
  # find default value & set it for the template
  for (my $i=0;$i<=$#budgets;$i++) {
--- 128,133 ----
                                );
  }
! ##FIXME : Looks like never used.
! (my $temp,@budgets) = bookfunds($homebranch);
  # find default value & set it for the template
  for (my $i=0;$i<=$#budgets;$i++) {
***************
*** 129,132 ****
--- 137,141 ----
  }
  $template->param(budgets => address@hidden);
+ #FIXME : END Added by hdl on July, 14 2005
  
  if ($op eq 'addsubscription') {