ispman/ispman-web/cgi-bin/tmpl/resellers list.tmpl,1.2,1.2.8.1
Joerg Delker <[email protected]>
| Newsgroups | gmane.comp.isp.ispman.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/resellers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27586/ispman-web/cgi-bin/tmpl/resellers
Modified Files:
Tag: rel_1_2-bugfixes
list.tmpl
Log Message:
fixes bug [ 937936 ] resellers/clients not deletable
(merged from HEAD)
Index: list.tmpl
===================================================================
RCS file: /cvsroot/ispman/ispman/ispman-web/cgi-bin/tmpl/resellers/list.tmpl,v
retrieving revision 1.2
retrieving revision 1.2.8.1
diff -u -d -r1.2 -r1.2.8.1
--- list.tmpl 28 Apr 2003 14:47:26 -0000 1.2
+++ list.tmpl 1 Jul 2004 19:08:08 -0000 1.2.8.1
@@ -1,15 +1,3 @@
-
-<HTML>
-<HEAD>
-<TITLE>ISPMan summary</TITLE>
-<LINK HREF="<perl>$ispman->getConfig('ispmanUrlPrefix')</perl>/ispman.css" REL="stylesheet" TYPE="text/css">
-
-
-</HEAD>
-
-<BODY>
-
-
<FONT FACE="Helvetica, Arial" size=2>
<font class=pageTitle><perl>_("Summary of Resellers")</perl></font>
@@ -25,24 +13,54 @@
<th><perl>_("ispmanResellerName")</perl></th>
<th><perl>_("Display name")</perl></th>
<th><perl>_("# Clients")</perl></th>
+<th> </th>
</tr>
<perl>
my $resellers=$ispman->getResellers();
-my $text="";
for (keys %$resellers){
- $text.="<tr>";
- $text.= sprintf ("<td><a href=$ENV{'SCRIPT_NAME'}?mode=editReseller&ispmanResellerId=%s>%s</a></td>", $resellers->{$_}{'ispmanResellerId'}, $resellers->{$_}{'uid'} );
- $text.= sprintf ("<td>%s</td>", $resellers->{$_}{'ispmanResellerId'});
- $text.= sprintf ("<td>%s</td>", $resellers->{$_}{'ispmanResellerName'});
- $text.= sprintf ("<td>%s</td>", $resellers->{$_}{'cn'});
- $text.= sprintf ("<td align=right>%s</td>", $ispman->getClientsCount("ispmanResellerId=$resellers->{$_}{'ispmanResellerId'}"));
- $text.="</tr>";
+
+ my $id = $resellers->{$_}{'ispmanResellerId'};
+ my $nclients = $ispman->getClientsCount("ispmanResellerId=$id");
+
+ $OUT.= qq|
+<tr>
+ <td>
+ <a href="$ENV{'SCRIPT_NAME'}?mode=editReseller&ispmanResellerId=$id">
+ @{[$resellers->{$_}{'uid'}]}
+ </a>
+ </td>
+ <td>$id</td>
+ <td>@{[$resellers->{$_}{'ispmanResellerName'}]}</td>
+ <td>@{[$resellers->{$_}{'cn'}]}</td>
+ <td align=right>$nclients</td>
+|;
+
+ if($nclients==0)
+ {
+ $OUT.= qq|
+ <td>
+ <a href="$ENV{'SCRIPT_NAME'}?mode=ispmanDeleteResellers&ispmanResellerId=$id">
+ <img src="@{[$ispman->getConfig('ispmanUrlPrefix')]}/gfx/delete.gif"></a>
+ </td>
+|;
+ }
+ else
+ {
+ $OUT.= qq|
+ <td>
+ <img src="@{[$ispman->getConfig('ispmanUrlPrefix')]}/gfx/deleteGray.gif">
+ </td>
+|;
+ }
+
+ $OUT.="</tr>";
}
-$text
</perl>
</table>
-
+<hr>
+<perl>_("Note: Only resellers without clients can be deleted.")</perl>
+
-------------------------------------------------------
This SF.Net email sponsored by Black Hat Briefings & Training.
Attend Black Hat Briefings & Training, Las Vegas July 24-29 -
digital self defense, top technical experts, no vendor pitches,
unmatched networking opportunities. Visit www.blackhat.com