Homec4science
Diffusion invenio-infoscience (maint-2.0) Browse

R3600/config/cdswmllib.wml
6fa18991d549maint-2.0

Last Change
Raw File

cdswmllib.wml
View Options

## $Id$
## Library of WML functions of general interest.
## This file is part of the CERN Document Server Software (CDSware).
## Copyright (C) 2002 CERN.
##
## The CDSware is free software; you can redistribute it and/or
## modify it under the terms of the GNU General Public License as
## published by the Free Software Foundation; either version 2 of the
## License, or (at your option) any later version.
##
## The CDSware is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with CDSware; if not, write to the Free Software Foundation, Inc.,
## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
## library of WML functions of general interest:
<:
sub generate_language_list_for_python {
## Return Python-ready language list out of user-configured WML language list.
## Output example: ['en','sk,'fr']
$out = "[";
foreach $lang (split /\s*,\s*/, '<CDSLANGS>') {
$out .= "'".$lang."',";
}
$out .= "]";
return $out;
}
sub generate_language_selection_box_for_html {
## Return HTML-ready language selection box links.
## Output example:
($filenamebase, $filenameextension) = split /\./, '$(WML_SRC_BASENAME)';
$out = "<MSG_THIS_PAGE_IN_LANGUAGES>";
foreach $lang (split /\s*,\s*/, '<CDSLANGS>') {
$out .= ' <a class="langinfo" href="'.$filenamebase.'.'.$lang.'.'.$filenameextension.'">'.uc($lang).'</a> |';
}
return substr($out, 0, -1);
}
sub generate_pretty_version_string {
## Input: CVS $Id$ string
## Output: nicely formatted version number suitable for `bibtaskex --version'
## Example: ``$Id$''
## will generate ``webcoll 1.36 (CDSware 0.3.0)''
($out) = @_;
($junk, $filename, $revision, $junk) = split / /, $out;
$filename =~ s/\.wml,v//g;
return "CDSware/<VERSION> " . $filename . "/" . $revision;
}
:>
c4science · Help