Lines 73-78
if ( $op eq 'add_form' ) {
Link Here
|
73 |
my $description = $input->param('description'); |
73 |
my $description = $input->param('description'); |
74 |
my $rentalcharge = $input->param('rentalcharge'); |
74 |
my $rentalcharge = $input->param('rentalcharge'); |
75 |
my $rentalcharge_daily = $input->param('rentalcharge_daily'); |
75 |
my $rentalcharge_daily = $input->param('rentalcharge_daily'); |
|
|
76 |
my $rentalcharge_hourly = $input->param('rentalcharge_hourly'); |
76 |
my $defaultreplacecost = $input->param('defaultreplacecost'); |
77 |
my $defaultreplacecost = $input->param('defaultreplacecost'); |
77 |
my $processfee = $input->param('processfee'); |
78 |
my $processfee = $input->param('processfee'); |
78 |
my $image = $input->param('image') || q||; |
79 |
my $image = $input->param('image') || q||; |
Lines 94-99
if ( $op eq 'add_form' ) {
Link Here
|
94 |
$itemtype->description($description); |
95 |
$itemtype->description($description); |
95 |
$itemtype->rentalcharge($rentalcharge); |
96 |
$itemtype->rentalcharge($rentalcharge); |
96 |
$itemtype->rentalcharge_daily($rentalcharge_daily); |
97 |
$itemtype->rentalcharge_daily($rentalcharge_daily); |
|
|
98 |
$itemtype->rentalcharge_hourly($rentalcharge_hourly); |
97 |
$itemtype->defaultreplacecost($defaultreplacecost); |
99 |
$itemtype->defaultreplacecost($defaultreplacecost); |
98 |
$itemtype->processfee($processfee); |
100 |
$itemtype->processfee($processfee); |
99 |
$itemtype->notforloan($notforloan); |
101 |
$itemtype->notforloan($notforloan); |
Lines 118-124
if ( $op eq 'add_form' ) {
Link Here
|
118 |
itemtype => $itemtype_code, |
120 |
itemtype => $itemtype_code, |
119 |
description => $description, |
121 |
description => $description, |
120 |
rentalcharge => $rentalcharge, |
122 |
rentalcharge => $rentalcharge, |
121 |
rentalcharge_daily => $rentalcharge_daily, |
123 |
rentalcharge_daily => $rentalcharge_daily, |
|
|
124 |
rentalcharge_hourly => $rentalcharge_hourly, |
122 |
defaultreplacecost => $defaultreplacecost, |
125 |
defaultreplacecost => $defaultreplacecost, |
123 |
processfee => $processfee, |
126 |
processfee => $processfee, |
124 |
notforloan => $notforloan, |
127 |
notforloan => $notforloan, |