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