|
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( |