diff options
author | jeff <jeff> | 2007-12-04 18:20:58 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-12-04 18:20:58 +0000 |
commit | e8a09e945986a32f9b7d0a5d546142ada91654ca (patch) | |
tree | e0439507bc510ae41ef9b02c0b34bef3a9313863 /httemplate/browse/reason.html | |
parent | b8a41c45daf3e4cfa21200f5d9e59e38bd41293c (diff) |
change credit reasons from freetext to new reason/reason type system (#2777)
Diffstat (limited to 'httemplate/browse/reason.html')
-rw-r--r-- | httemplate/browse/reason.html | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/httemplate/browse/reason.html b/httemplate/browse/reason.html index 94141eea3..49b452cf8 100644 --- a/httemplate/browse/reason.html +++ b/httemplate/browse/reason.html @@ -38,14 +38,10 @@ die "access denied" $cgi->param('class') =~ /^(\w)$/ or die "illegal class"; my $class = $1; -my %classmap = ( 'C' => 'cancel', - 'S' => 'suspend', - ); +my $classname = $FS::reason_type::class_name{$class};; +my $classpurpose = $FS::reason_type::class_purpose{$class};; -my $classname = $classmap{$class}; - -my $html_init = ucfirst($classname) . -" reasons explain why we $classname a package.<BR><BR>". +my $html_init = ucfirst($classname). " reasons $classpurpose.<BR><BR>". qq!<A HREF="${p}edit/reason.html?class=$class">!. "<I>Add a $classname reason</I></A><BR><BR>"; |