[Koha-cvs] CVS: koha/bull acqui-search.pl,1.2,1.3 subscription-add.pl,1.5,1.6
Henri-Damien LAURENT
hdl at users.sourceforge.net
Thu Jul 14 11:13:44 CEST 2005
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, at 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, at 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, at 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, at 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 => \@budgets);
+ #FIXME : END Added by hdl on July, 14 2005
if ($op eq 'addsubscription') {
More information about the Koha-cvs
mailing list