Index: perl/Comas/HTML/committee/payment.pm
===================================================================
RCS file: /usr/local/cvsroot/comas/comas/perl/Comas/HTML/committee/payment.pm,v
retrieving revision 1.17
diff -u -r1.17 payment.pm
--- perl/Comas/HTML/committee/payment.pm 7 Apr 2004 21:32:40 -0000 1.17
+++ perl/Comas/HTML/committee/payment.pm 11 Jun 2004 19:32:57 -0000
@@ -242,7 +242,7 @@
return $h->committee_menu('NOT_AUTHORIZED');
}
- %prop_types = $h->getCatalog('prop_type');
+ %prop_types = $h->{-db}->getCatalog('prop_type');
$template = HTML::Template->new(filename=>
'committee/payment/confirm_payment.tmpl',
@@ -261,7 +261,7 @@
-firstname => $person_data{-firstname},
-famname => $person_data{-famname},
-email => $person_data{-email},
- -person_type => $h->getCatDescr('person_type',
+ -person_type => $h->{-db}->getCatDescr('person_type',
$person_data{-person_type_id}));
$template->param(general_amount =>
@@ -331,7 +331,7 @@
-famname => $person_data{-famname},
-email => $person_data{-email},
-person_type =>
- $h->getCatDescr('person_type',
+ $h->{-db}->getCatDescr('person_type',
$person_data{-person_type_id}));
foreach my $param (keys %{$h->{-params}}) {