projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix customer cancellation, sort of a side effect of #2872, fixes #3480, #3481
[freeside.git]
/
httemplate
/
browse
/
reason.html
diff --git
a/httemplate/browse/reason.html
b/httemplate/browse/reason.html
index
94141ee
..
fe285be
100644
(file)
--- a/
httemplate/browse/reason.html
+++ b/
httemplate/browse/reason.html
@@
-1,9
+1,7
@@
<% include( 'elements/browse.html',
'title' => ucfirst($classname) . ' Reasons',
<% include( 'elements/browse.html',
'title' => ucfirst($classname) . ' Reasons',
- 'menubar' => [ # 'Main menu' => $p,
- ucfirst($classname) . ' Reason Types' =>
- $p.'browse/reason_type.html?class='.
- $class,
+ 'menubar' => [ ucfirst($classname).' Reason Types' =>
+ $p."browse/reason_type.html?class=$class"
],
'html_init' => $html_init,
'name' => $classname . ' reasons',
],
'html_init' => $html_init,
'name' => $classname . ' reasons',
@@
-38,14
+36,10
@@
die "access denied"
$cgi->param('class') =~ /^(\w)$/ or die "illegal class";
my $class = $1;
$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>";
qq!<A HREF="${p}edit/reason.html?class=$class">!.
"<I>Add a $classname reason</I></A><BR><BR>";