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}}) {