\typeout{thesis style for asl.cls. Version 1.0, 17/04/10}

% 1.0

\RequirePackage{url}

\def\@addpunct#1{\ifnum\spacefactor>\@m \else#1\fi}

\newcommand\thauthor[1]{\gdef\@thauthor{\textsc{#1}}}
\newcommand\thtitle[1]{\gdef\@thtitle{{\bfseries\itshape #1}}}
\newcommand\thuniv[1]{\gdef\@thuniv{#1}}
\newcommand\thadvisor[1]{\gdef\@thadvisor{#1}}
\newcommand\thyear[1]{\gdef\@thyear{#1}}
\newcommand\thmsc[1]{\gdef\@thmsc{#1}}
\gdef\@thkeyw{}
\newcommand\thkeyw[1]{\gdef\@thkeyw{#1}}
\gdef\@thurl{}
\newcommand\thurl[1]{\gdef\@thurl{#1}}
\gdef\@themail{}
\newcommand\themail[1]{\gdef\@themail{#1}}
\newcommand\thabsauth[1]{\gdef\@thabsauth{#1}}


\newcommand\@ththesis{\@thauthor\@addpunct.
  \@thtitle\@addpunct. \@thuniv\@addpunct. \@thyear. Supervised by
  \@thadvisor\@addpunct. MSC: \@thmsc\@addpunct.
\ifx\@empty\@thkeyw\relax\else Keywords: \@thkeyw\@addpunct. \fi}


%%% Citations 
\renewcommand\cite[1]{\citeerror}


%%%%%%%%%%%%%%%%%%%
% Internal commands
\def\citeerror{\ClassError{asl (thesis)}{The use of the cite command is
forbitten!\MessageBreak Citations should be given in the text!}}

%\title{PhD Theses}

\newenvironment{thesis}{\vskip 15pt plus 1pt minus 1pt%
\@ththesis\par
\ifx\@empty\@thurl
\gdef\@footero{}
\else
   \gdef\@footero{URL: \texttt{\@thurl}\@addpunct.}
\fi
\ifx\@empty\@themail
\gdef\@footert{}
\else
   \gdef\@footert{E-mail: \texttt{\@themail}\@addpunct.}
\fi
\ifx\@empty\@themail
\gdef\@footernl{}
\else
\ifx\@empty\@thurl
\gdef\@footernl{}
\else
   \gdef\@footernl{\par}
\fi
\fi
\gdef\@footer{\@footert\@footernl\@footero}
\gdef\@titleindex{\@thauthor\@addpunct. \@thtitle\@addpunct. \@thuniv, \thyear.}
\gdef\@thesistitle{\@thauthor. \@thtitle. \@thuniv, \thyear.}\smallskip\par
}{\smallskip\par\@thabsauth\@addpunct.\ifx\@empty\@footer
\relax
\else
   \par \@footer
\fi
}

