diff options
| author | ivan <ivan> | 2005-07-12 09:31:21 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2005-07-12 09:31:21 +0000 |
| commit | 5061c5bba69d3658968f1b0c0b9aff7fd5336e26 (patch) | |
| tree | ca4927032c96608439577ea9b03da868f580e059 /httemplate/browse/part_pkg.cgi | |
| parent | 1c7f3b811c8ab9c7ebe89ff080c333cbdf99d78a (diff) | |
<rjbs> More of the same: these patches make it safer to subclass FS::part_pkg's pkg_svc method by eliminating qsearches on table pkg_svc.
Diffstat (limited to 'httemplate/browse/part_pkg.cgi')
| -rwxr-xr-x | httemplate/browse/part_pkg.cgi | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/httemplate/browse/part_pkg.cgi b/httemplate/browse/part_pkg.cgi index ffa0d87c2..8d5b55451 100755 --- a/httemplate/browse/part_pkg.cgi +++ b/httemplate/browse/part_pkg.cgi @@ -144,9 +144,8 @@ foreach my $part_pkg ( sort $sortby @part_pkg ) { <TD ROWSPAN=<%= $rowspan %>><%= $plandata %></TD> <% - my($pkg_svc); my($n)=""; - foreach $pkg_svc ( @pkg_svc ) { + foreach my $pkg_svc ( @pkg_svc ) { my($svcpart)=$pkg_svc->getfield('svcpart'); my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart }); print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!, |