Homec4science
Diffusion invenio-infoscience (maint-2.0) Browse

R3600/config/cdswmllib.wml
052fba303ee1maint-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, 2003, 2004, 2005 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.
## language handling:
#use wml::std::lang
<lang:new id=de short>
<lang:new id=en short>
<lang:new id=es short>
<lang:new id=pt short>
<lang:new id=fr short>
<lang:new id=it short>
<lang:new id=ru short>
<lang:new id=sk short>
<lang:new id=cs short>
<lang:new id=no short>
<lang:new id=sv short>
<lang:new id=el short>
## library of WML functions of general interest:
<:
sub get_language_name {
## Return long name for a language.
## Input: en
## Output: English
($ln) = @_;
%longnames = ('en' => 'English',
'fr' => 'Français',
'de' => 'Deutsch',
'es' => 'Español',
'pt' => 'Português',
'it' => 'Italiano',
'ru' => 'Русский',
'sk' => 'Slovensky',
'cs' => 'Česky',
'no' => 'Norsk/Bokmål',
'sv' => 'Svenska',
'el' => 'Ελληνικά');
return $longnames{$ln};
}
sub generate_language_list_for_python {
## Return Python-ready language list out of user-configured WML language list.
## May return short or long version, depending on the first argument.
## Output example: ['en','fr']
## Output example: [['en','English'],['fr','French']]
($type) = @_;
$out = "[";
foreach $ln (split /\s*,\s*/, '<CDSLANGS>') {
if ($type) {
$out .= "['".$ln."','".get_language_name($ln)."'],";
} else {
$out .= "'".$ln."',";
}
}
$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> <br> ";
foreach $ln (split /\s*,\s*/, '<CDSLANGS>') {
$out .= ' <a class="langinfo" href="'.$filenamebase.'.'.$ln.'.'.$filenameextension.'">'.get_language_name($ln).'</a> &nbsp; ';
}
return substr($out, 0, -2);
}
sub generate_pretty_version_string {
## Input: CVS DOLLAR Id DOLLAR string
## Output: nicely formatted version number suitable for `bibtaskex --version'
## Example: ``DOLLAR Id: webcoll.wml,v 1.41 2004/04/21 11:20:06 tibor Exp DOLLAR''
## will generate output like ``CDSware/0.3.2 webcoll/1.41''
($out) = @_;
($junk, $filename, $revision, $date, $junk) = split / /, $out;
$filename =~ s/\.wml,v//g;
return "CDSware/<VERSION> " . $filename . "/" . $revision;
}
sub generate_pretty_revision_date_string {
## Input: CVS DOLLAR Id DOLLAR string
## Output: nicely formatted revision/date number suitable for Admin Guides
## Example: ``DOLLAR Id: webcoll.wml,v 1.41 2004/04/21 11:20:06 tibor Exp DOLLAR''
## will generate output like ``CDSware/0.3.2 webcoll/1.41''
($out) = @_;
($junk, $filename, $revision, $date, $junk) = split / /, $out;
return $revision . ", " . $date;
}
:>
c4science · Help