version 1.4, 2008/07/29 21:07:29
|
version 1.5, 2011/05/26 16:01:16
|
Line 149 by a separate routine - \emph{query\_use
|
Line 149 by a separate routine - \emph{query\_use
|
|
|
\texttt{if (\$srchterm ne '') \{} |
\texttt{if (\$srchterm ne '') \{} |
\begin{quotation} |
\begin{quotation} |
\texttt{\$outcome = \&query\_user\_tables(\$dbflag,\$dbh,\textbackslash{}@srchtables,\$instusers,\$instids,} |
\texttt{\$outcome = \&query\_user\_tables(\$dbflag,\$dbh,\textbackslash{}@srchtables,} |
\begin{quotation} |
\begin{quotation} |
\texttt{\$srchby,\$srchterm,\$srchtype,\$types);} |
\texttt{~~~~~~~\$instusers,\$instids,\$srchby,\$srchterm,\$srchtype,\$types);} |
\end{quotation} |
\end{quotation} |
\end{quotation} |
\end{quotation} |
\texttt{\}} |
\texttt{\}} |
Line 172 database queries are implemented at MSU.
|
Line 172 database queries are implemented at MSU.
|
|
|
\texttt{sub query\_user\_tables \{} |
\texttt{sub query\_user\_tables \{} |
\begin{quotation} |
\begin{quotation} |
\texttt{my (\$dbflag,\$dbh,\$srchtables,\$instusers,\$instids,\$srchby,\$srchterm,\$srchtype,\$types) |
\texttt{my (\$dbflag,\$dbh,\$srchtables,\$instusers,\$instids,\$srchby,\$srchterm,} |
= @\_;} |
\texttt{~~~~\$srchtype,\$types) = @\_;} |
|
|
\texttt{my (\$outcome,\$condition,\%multipids,\$ldapfilter);} |
\texttt{my (\$outcome,\$condition,\%multipids,\$ldapfilter);} |
|
|
Line 284 AND FirstName LIKE \$quoted\_first )\cha
|
Line 284 AND FirstName LIKE \$quoted\_first )\cha
|
\begin{quotation} |
\begin{quotation} |
\texttt{next if (\$srchby \&\& \$condition eq '');} |
\texttt{next if (\$srchby \&\& \$condition eq '');} |
|
|
\texttt{my \$statement = \char`\"{}SELECT MSUNetID,Pid,FirstName,LastName,Person\_Type |
\texttt{my \$statement = \char`\"{}SELECT MSUNetID,Pid,FirstName,LastName,} |
FROM \$table \$condition\char`\"{};} |
\texttt{~~~~~~~~~~~~~~~~~Person\_Type FROM \$table \$condition\char`\"{};} |
|
|
\texttt{my \$sth = \$dbh->prepare(\char`\"{}\$statement\char`\"{});} |
\texttt{my \$sth = \$dbh->prepare(\char`\"{}\$statement\char`\"{});} |
|
|
Line 385 eq 'ARRAY') \{}
|
Line 385 eq 'ARRAY') \{}
|
|
|
\texttt{~~~~~~~~~~\} else \{} |
\texttt{~~~~~~~~~~\} else \{} |
|
|
\texttt{~~~~~~~~~~~~@\{\$multipids\{\$uname\}\} = (\$instusers->\{\$uname\}\{'id'\},\$pid);} |
\texttt{~~~~~~~~~~~~@\{\$multipids\{\$uname\}\}=(\$instusers->\{\$uname\}\{'id'\},\$pid);} |
|
|
\texttt{~~~~~~~~~~\}} |
\texttt{~~~~~~~~~~\}} |
|
|
Line 411 eq 'ARRAY') \{}
|
Line 411 eq 'ARRAY') \{}
|
|
|
\texttt{~~~~~~~~~~\} else \{} |
\texttt{~~~~~~~~~~\} else \{} |
|
|
\texttt{~~~~~~~~~~~~@\{\$multipids\{\$uname\}\} = (\$instusers->\{\$uname\}\{'id'\},\$pid);} |
\texttt{~~~~~~~~~~~~@\{\$multipids\{\$uname\}\}=(\$instusers->\{\$uname\}\{'id'\},\$pid);} |
|
|
\texttt{~~~~~~~~~~\}} |
\texttt{~~~~~~~~~~\}} |
|
|
Line 658 routine described above.
|
Line 658 routine described above.
|
|
|
\texttt{if (\$dbflag) \{} |
\texttt{if (\$dbflag) \{} |
\begin{quotation} |
\begin{quotation} |
\texttt{my @srchtables = ('FACULTY\_VU','STAFF\_VU','STUDENT','AFFILIATE','ASSISTANT','STUDENT\_AFFILIATE');} |
\texttt{my @srchtables = ('FACULTY\_VU','STAFF\_VU','STUDENT','AFFILIATE',} |
|
\texttt{~~~~~~~~~~~~~~~~~~'ASSISTANT','STUDENT\_AFFILIATE');} |
|
|
\texttt{\&query\_user\_tables(\$dbflag,\$dbh,\textbackslash{}@srchtables,\$instusers,\$instids);} |
\texttt{\&query\_user\_tables(\$dbflag,\$dbh,\textbackslash{}@srchtables,\$instusers,\$instids);} |
|
|