Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Code cleaning : Some subs renamed.

Browse source
This commit is contained in:
toins 2006-07-19 08:58:38 +00:00
parent 327d331752
commit 92284686aa
5 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
serials/lateissues.pl
View file

@ -72,7 +72,7 @@ my @lateissues;
@lateissues = GetLateIssues($supplierid) if $supplierid;
my @supplierinfo;
my $nothing;
($nothing,@supplierinfo)=bookseller($supplierid) if $supplierid;
($nothing,@supplierinfo)=GetBookSeller($supplierid) if $supplierid;
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/lateissues.tmpl",

2
serials/serials-recieve.pl
View file

@ -142,7 +142,7 @@ if (C4::Context->preference("serialsadditems")){
my $bibid=MARCfind_MARCbibid_from_oldbiblionumber($dbh,$subscription->{biblionumber});
my $fwk=MARCfind_frameworkcode($dbh,$bibid);
my $branches = getbranches;
my $branches = GetBranches;
my @branchloop;
foreach my $thisbranch (keys %$branches) {
my %row =(value => $thisbranch,

5
serials/subscription-add.pl
View file

@ -173,8 +173,9 @@ if ($op eq 'mod') {
"dow$dow" => 1,
);
}
##FIXME : Looks like never used.
(my $temp,@budgets) = bookfunds($homebranch);
@budgets = GetBookFunds($homebranch);
my $temp = scalar(@budgets);
# find default value & set it for the template
for (my $i=0;$i<$#budgets;$i++) {
if ($budgets[$i]->{'aqbudgetid'} eq $aqbudgetid) {

2
tools/overduerules.pl
View file

@ -121,7 +121,7 @@ if ($op eq 'save') {
}
unless ($err) {$template->param(datasaved=>1);}
}
my $branches = getbranches;
my $branches = GetBranches;
my @branchloop;
foreach my $thisbranch (keys %$branches) {
my $selected = 1 if $thisbranch eq $branch;

2
value_builder/unimarc_field_4XX.pl
View file

@ -357,7 +357,7 @@ sub plugin {
my @branchloop;
my @select_branch;
my %select_branches;
my $branches=getbranches;
my $branches=GetBranches;
push @select_branch, "";
$select_branches{''} = "";
foreach my $thisbranch (keys %$branches){