Index: openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl 15 Dec 2005 06:27:41 -0000 1.3 +++ openacs-4/packages/curriculum-central/tcl/curriculum-central-procs.tcl 18 Dec 2005 06:23:30 -0000 1.4 @@ -147,37 +147,3 @@ return [concat $export_vars $extra_vars] } - - -##### -# -# Resolution -# -##### - -ad_proc curriculum_central::resolution_get_options {} { - return \ - [list \ - [list [_ curriculum-central.fixed] fixed ] \ - [list [_ curriculum-central.wont_fix] wontfix ] \ - [list [_ curriculum-central.postponed] postponed ] \ - [list [_ curriculum-central.need_info] needinfo ] \ - ] - -} - -ad_proc curriculum_central::resolution_pretty { - resolution -} { - array set resolution_codes { - fixed curriculum-central.fixed - wontfix curriculum-central.wont_fix - postponed curriculum-central.postponed - needinfo curriculum-central.need_info - } - if { [info exists resolution_codes($resolution)] } { - return [_ $resolution_codes($resolution)] - } else { - return "" - } -}