<%
-# <!-- $Id: svc_acct.cgi,v 1.9 2001-12-03 11:33:19 ivan Exp $ -->
+# <!-- $Id: svc_acct.cgi,v 1.12 2001-12-11 21:26:58 ivan Exp $ -->
use strict;
use vars qw( $cgi @svc_acct $sortby $query $mydomain
$orderby = 'ORDER BY username';
} elsif ( $query eq 'uid' ) {
$sortby=\*uid_sort;
- $orderby = ( $unlinked ? 'AND' : 'WHERE' ). 'uid IS NOT NULL ORDER BY uid';
+ $orderby = ( $unlinked ? 'AND' : 'WHERE' ). ' uid IS NOT NULL ORDER BY uid';
} else {
$sortby=\*uid_sort;
&usernamesearch;
}
- print '</TABLE>$pager<BR>';
+ print "</TABLE>$pager<BR>";
if ( $mydomain ) {
print "<BR><FONT COLOR=\"#FF0000\">*</FONT> The <I>$mydomain</I> domain ".
"is contained in your legacy <CODE>domain</CODE> ".
"<A HREF=\"${p}docs/config.html#domain\">configuration file</A>. ".
"You should run the <CODE>bin/fs-migrate-svc_acct_sm</CODE> script ".
- "to create a proper svc_domain record for this domain."
+ "to create a proper svc_domain record for this domain.";
}
print '</BODY></HTML>';