diff options
author | ivan <ivan> | 2002-05-16 13:42:54 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-05-16 13:42:54 +0000 |
commit | 3f9ac2ff50fff9d55ff5976ee1417dc6ba56f39e (patch) | |
tree | 32ab61913de138fcc05a6c0c636f0c2b59d1370b /httemplate/browse/part_svc.cgi | |
parent | 7ccc8f47305f2bacb63b79dda665b2c7f5310ba5 (diff) |
service definition cloning
Diffstat (limited to 'httemplate/browse/part_svc.cgi')
-rwxr-xr-x | httemplate/browse/part_svc.cgi | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/httemplate/browse/part_svc.cgi b/httemplate/browse/part_svc.cgi index 5c33e68a4..933554cd5 100755 --- a/httemplate/browse/part_svc.cgi +++ b/httemplate/browse/part_svc.cgi @@ -8,7 +8,9 @@ if ( $cgi->param('showdisabled') ) { %search = ( 'disabled' => '' ); } -my @part_svc = qsearch('part_svc', \%search ); +my @part_svc = + sort { $a->getfield('svcpart') <=> $b->getfield('svcpart') } + qsearch('part_svc', \%search ); my $total = scalar(@part_svc); %> @@ -38,9 +40,7 @@ function part_export_areyousure(href) { <TH COLSPAN=2>Modifier</TH> </TR> -<% foreach my $part_svc ( sort { - $a->getfield('svcpart') <=> $b->getfield('svcpart') - } @part_svc ) { +<% foreach my $part_svc ( @part_svc ) { my $hashref = $part_svc->hashref; my $svcdb = $hashref->{svcdb}; my @dfields = fields($svcdb); @@ -96,7 +96,14 @@ map { qsearchs('part_export', { exportnum => $_->exportnum } ) } qsearch('export <% } %> <TR> - <TD COLSPAN=<%= $cgi->param('showdisabled') ? 7 : 8 %>><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A></TD> + <TD COLSPAN=<%= $cgi->param('showdisabled') ? 7 : 8 %>> + <FORM METHOD="POST" ACTION="<%= $p %>edit/part_svc.cgi"><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A> or <SELECT NAME="clone"><OPTION></OPTION> +<% foreach my $part_svc ( @part_svc ) { %> + <OPTION VALUE="<%= $part_svc->svcpart %>"><%= $part_svc->svc %></OPTION> +<% } %> + </SELECT><INPUT TYPE="submit" VALUE="Clone existing service"> + </FORM> + </TD> </TR> </TABLE> </BODY> |