Lines 118-131
sub UpdateStats {
Link Here
|
118 |
# get the parameters |
118 |
# get the parameters |
119 |
my $branch = $params->{branch}; |
119 |
my $branch = $params->{branch}; |
120 |
my $type = $params->{type}; |
120 |
my $type = $params->{type}; |
121 |
my $borrowernumber = exists $params->{borrowernumber} ? $params->{borrowernumber} :''; |
121 |
my $borrowernumber = exists $params->{borrowernumber} ? $params->{borrowernumber} : ''; |
122 |
my $itemnumber = exists $params->{itemnumber} ? $params->{itemnumber} :''; |
122 |
my $itemnumber = exists $params->{itemnumber} ? $params->{itemnumber} : ''; |
123 |
my $amount = exists $params->{amount} ? $params->{amount} :''; |
123 |
my $amount = exists $params->{amount} ? $params->{amount} : ''; |
124 |
my $other = exists $params->{other} ? $params->{other} :''; |
124 |
my $other = exists $params->{other} ? $params->{other} : ''; |
125 |
my $itemtype = exists $params->{itemtype} ? $params->{itemtype} :''; |
125 |
my $itemtype = exists $params->{itemtype} ? $params->{itemtype} : ''; |
126 |
my $location = exists $params->{location} ? $params->{location} :''; |
126 |
my $location = exists $params->{location} ? $params->{location} : undef; |
127 |
my $accountno = exists $params->{accountno} ? $params->{accountno} :''; |
127 |
my $accountno = exists $params->{accountno} ? $params->{accountno} : ''; |
128 |
my $ccode = exists $params->{ccode} ? $params->{ccode} :''; |
128 |
my $ccode = exists $params->{ccode} ? $params->{ccode} : ''; |
129 |
|
129 |
|
130 |
my $dbh = C4::Context->dbh; |
130 |
my $dbh = C4::Context->dbh; |
131 |
my $sth = $dbh->prepare( |
131 |
my $sth = $dbh->prepare( |