From: Atif G. <ma...@us...> - 2002-12-18 21:04:15
|
Update of /cvsroot/ispman/ispman-web/cgi-bin/tmpl In directory sc8-pr-cvs1:/tmp/cvs-serv26776/tmpl Modified Files: Tag: REL_0_9 overview.tmpl Log Message: Displays some info about the logged in user Index: overview.tmpl =================================================================== RCS file: /cvsroot/ispman/ispman-web/cgi-bin/tmpl/overview.tmpl,v retrieving revision 1.1.4.1 retrieving revision 1.1.4.2 diff -C2 -r1.1.4.1 -r1.1.4.2 *** overview.tmpl 19 Apr 2002 22:16:37 -0000 1.1.4.1 --- overview.tmpl 18 Dec 2002 21:04:13 -0000 1.1.4.2 *************** *** 22,24 **** --- 22,54 ---- + <br><br> + Login type: <perl>$ispman->{'session'}->param("logintype")</perl> + <br> + <perl> + $text=""; + if ($ispman->{'session'}->param("logintype") eq "reseller") { + $text=join " ", ("ResllerID:", $ispman->{'session'}->param("ispmanResellerId")); + $text.="<br>"; + $text.=join " ", ("ResellerName:", $ispman->getResellerNameById($ispman->{'session'}->param("ispmanResellerId"))); + + + } + if ($ispman->{'session'}->param("logintype") eq "admin") { + $text=join " ", ("AdminID:", $ispman->{'session'}->param("uid")); + $text.="<br>"; + + + } + if ($ispman->{'session'}->param("logintype") eq "client") { + $text=join " ", ("ClientID:", $ispman->{'session'}->param("ispmanClientId")); + $text.="<br>"; + $text.=join " ", ("ClientUID:", $ispman->getClientNameById($ispman->{'session'}->param("ispmanClientId"))); + $text.=join " ", ("ClientName:", $ispman->getClientAttributeById($ispman->{'session'}->param("ispmanClientId"), "ispmanClientName")); + + + } + + $text + </perl> + |