diff options
Diffstat (limited to 'httemplate/edit')
-rw-r--r-- | httemplate/edit/process/sales.cgi | 23 | ||||
-rw-r--r-- | httemplate/edit/process/sales.html | 12 | ||||
-rwxr-xr-x | httemplate/edit/sales.cgi | 79 | ||||
-rwxr-xr-x | httemplate/edit/sales.html | 21 |
4 files changed, 33 insertions, 102 deletions
diff --git a/httemplate/edit/process/sales.cgi b/httemplate/edit/process/sales.cgi deleted file mode 100644 index edef4d65c..000000000 --- a/httemplate/edit/process/sales.cgi +++ /dev/null @@ -1,23 +0,0 @@ -<% include( 'elements/process.html', - 'table' => 'sales', - 'viewall_dir' => 'browse', - 'viewall_ext' => 'cgi', - 'debug' => '1', - 'process_m2m' => { 'link_table' => 'access_groupsales', - 'target_table' => 'access_group', - }, - 'edit_ext' => 'cgi', - ) -%> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -if ( FS::Conf->new->exists('disable_acl_changes') ) { - errorpage('ACL changes disabled in public demo.'); - die "shouldn't be reached"; -} - -</%init> - diff --git a/httemplate/edit/process/sales.html b/httemplate/edit/process/sales.html new file mode 100644 index 000000000..b60276dcb --- /dev/null +++ b/httemplate/edit/process/sales.html @@ -0,0 +1,12 @@ +<& elements/process.html, + 'table' => 'sales', + 'viewall_dir' => 'browse', + 'agent_virt' => 1, +&> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Edit sales people'); + +</%init> + diff --git a/httemplate/edit/sales.cgi b/httemplate/edit/sales.cgi deleted file mode 100755 index 3497de505..000000000 --- a/httemplate/edit/sales.cgi +++ /dev/null @@ -1,79 +0,0 @@ -<% include("/elements/header.html","$action Sales Person", menubar( - 'View all sales people' => $p. 'browse/sales.cgi', -)) %> - -<% include('/elements/error.html') %> - -<FORM METHOD = POST - ACTION = "<%popurl(1)%>process/sales.cgi" -> - -<INPUT TYPE="hidden" NAME="salesnum" VALUE="<% $sales->salesnum %>"> -Sales #<% $sales->salesnum ? $sales->salesnum : "(NEW)" %> - -<% &ntable("#cccccc", 2, '') %> - - <TR> - <TH ALIGN="right">Sales</TH> - <TD><INPUT TYPE="text" NAME="salesperson" SIZE=32 VALUE="<% $sales->salesperson %>"></TD> - </TR> - - <TR> - <TD ALIGN="right"><% emt('Agent') %></TD> - <TD> - <& /elements/select-agent.html, - 'curr_value' => $sales->salesnum, - 'disable_empty' => 1, - &> - </TD> - </TR> - - <TR> - <TD ALIGN="right">Disable</TD> - <TD><INPUT TYPE="checkbox" NAME="disabled" VALUE="Y"<% $sales->disabled eq 'Y' ? ' CHECKED' : '' %>></TD> - </TR> - - <TR> - <TD ALIGN="right">Access Groups</TD> - <TD><% include('/elements/checkboxes-table.html', - 'source_obj' => $sales, - 'link_table' => 'access_groupsales', - 'target_table' => 'access_group', - 'name_col' => 'groupname', - 'target_link' => $p. 'edit/access_group.html?', - ) - %> - </TD> - </TR> - -</TABLE> - -<BR> -<INPUT TYPE="submit" VALUE="<% $sales->salesnum ? "Apply changes" : "Add sales" %>"> - -</FORM> - -<% include('/elements/footer.html') %> - -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $sales; -if ( $cgi->param('error') ) { - $sales = new FS::sales ( { - map { $_, scalar($cgi->param($_)) } fields('sales') - } ); -} elsif ( $cgi->keywords ) { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/; - $sales = qsearchs( 'sales', { 'salesnum' => $1 } ); -} else { #adding - $sales = new FS::sales {}; -} -my $action = $sales->salesnum ? 'Edit' : 'Add'; - -my $conf = new FS::Conf; - -</%init> diff --git a/httemplate/edit/sales.html b/httemplate/edit/sales.html new file mode 100755 index 000000000..65cddfc13 --- /dev/null +++ b/httemplate/edit/sales.html @@ -0,0 +1,21 @@ +<& elements/edit.html, + 'name_singular' => 'sales person', + 'table' => 'sales', + 'fields' => [ 'salesperson', + { field=>'agentnum', type=>'select-agent', disable_empty=>1, }, + { field=>'disabled', type=>'checkbox', value=>'Y', }, + ], + 'labels' => { 'salesnum' => 'Sales Person', + 'salesperson' => 'Name', + 'agentnum' => 'Agent', + 'disabled' => 'Disabled', + }, + 'viewall_dir' => 'browse', + 'agent_virt' => 1, +&> +<%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Edit sales people'); + +</%init> |