WebGUI 3.2.4 release

This commit is contained in:
JT Smith 2002-02-16 19:20:00 +00:00
parent ff74fd32c6
commit 40bb7fed59
7 changed files with 32 additions and 22 deletions

View file

@ -2781,3 +2781,6 @@ CREATE TABLE widget (
INSERT INTO widget VALUES (-1,4,'SiteMap',0,'Page Not Found',1,'The page you were looking for could not be found on this system. Perhaps it has been deleted or renamed. The following list is a site map of this site. If you don\'t find what you\'re looking for on the site map, you can always start from the <a href=\"^/;\">Home Page</a>.',1,1001744792,3,1013215663,3,'A');
insert into international values (403,'WebGUI','English','Prefer not to say.');
alter table users change column gender gender varchar(6) not null default 'neuter';

View file

@ -1475,11 +1475,11 @@ INSERT INTO international VALUES (37,'WebGUI','Dutch','Geen toegang!');
INSERT INTO international VALUES (37,'WebGUI','English','Permission Denied!');
INSERT INTO international VALUES (37,'WebGUI','Español','Permiso Denegado!');
INSERT INTO international VALUES (37,'WebGUI','Português','Permissão negada!');
INSERT INTO international VALUES (38,'WebGUI','Deutsch','Sie sind nicht berechtigt, diese Aktion auszuführen. <a href=\"^?op=displayLogin\">Melden Sie sich bitte mit einem Benutzernamen an</a>, der über ausreichende Rechte verfügt.');
INSERT INTO international VALUES (38,'WebGUI','Dutch','U heeft niet voldoende privileges om deze operatie te doen. <a href=”^\\?op=displayLogin”>Log in</a> als een gebruiker met voldoende privileges.');
INSERT INTO international VALUES (38,'WebGUI','English','You do not have sufficient privileges to perform this operation. Please <a href=\"^\\?op=displayLogin\">log in with an account</a> that has sufficient privileges before attempting this operation.');
INSERT INTO international VALUES (38,'WebGUI','Español','\"No tiene privilegios suficientes para realizar ésta operación. Por favor <a href=\"\"^\\?op=displayLogin\"\">ingrese con una cuenta</a> que posea los privilegios suficientes antes de intentar ésta operación.\"');
INSERT INTO international VALUES (38,'WebGUI','Português','\"Não tem privilégios para essa operação. <a href=\"\"^\\?op=displayLogin\"\">Identifique-se na entrada</a> com uma conta que permita essa operação.\"');
INSERT INTO international VALUES (38,'WebGUI','Deutsch','Sie sind nicht berechtigt, diese Aktion auszuführen. ^a(Melden Sie sich bitte mit einem Benutzernamen an);, der über ausreichende Rechte verfügt.');
INSERT INTO international VALUES (38,'WebGUI','Dutch','U heeft niet voldoende privileges om deze operatie te doen. ^a(Log in); als een gebruiker met voldoende privileges.');
INSERT INTO international VALUES (38,'WebGUI','English','You do not have sufficient privileges to perform this operation. Please ^a(log in with an account); that has sufficient privileges before attempting this operation.');
INSERT INTO international VALUES (38,'WebGUI','Español','\"No tiene privilegios suficientes para realizar ésta operación. Por favor ^a(ingrese con una cuenta); que posea los privilegios suficientes antes de intentar ésta operación.\"');
INSERT INTO international VALUES (38,'WebGUI','Português','\"Não tem privilégios para essa operação. ^a(Identifique-se na entrada); com uma conta que permita essa operação.\"');
INSERT INTO international VALUES (39,'WebGUI','Deutsch','Sie sind nicht berechtigt, diese Seite anzuschauen.');
INSERT INTO international VALUES (39,'WebGUI','Dutch','U heeft niet voldoende privileges om deze pagina op te vragen.');
INSERT INTO international VALUES (39,'WebGUI','English','You do not have sufficient privileges to access this page.');

View file

@ -0,0 +1,3 @@
insert into international values (403,'WebGUI','English','Prefer not to say.');
alter table users change column gender gender varchar(6) not null default 'neuter';

View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "3.2.3";
our $VERSION = "3.2.4";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black Software.

View file

@ -287,7 +287,7 @@ sub www_displayLogin {
#-------------------------------------------------------------------
sub www_editProfile {
my ($output, %gender, @array);
%gender = ('male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340));
%gender = ('neuter'=>WebGUI::International::get(403),'male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340));
if ($session{user}{userId} != 1) {
$output .= '<h1>'.WebGUI::International::get(338).'</h1>';
$output .= formHeader();
@ -526,7 +526,8 @@ sub www_viewMessageLog {
#-------------------------------------------------------------------
sub www_viewProfile {
my ($output, %user);
my ($output, %user, %gender);
%gender = ('neuter'=>WebGUI::International::get(403),'male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340));
%user = WebGUI::SQL->quickHash("select * from users where userId='$session{form}{uid}'");
if ($user{username} eq "") {
WebGUI::Privilege::notMember();
@ -579,7 +580,7 @@ sub www_viewProfile {
}
if ($session{setting}{profileMisc}) {
if ($user{gender} ne "") {
$output .= '<tr><td class="tableHeader" valign="top">'.WebGUI::International::get(335).'</td><td class="tableData">'.$user{gender}.'</td></tr>';
$output .= '<tr><td class="tableHeader" valign="top">'.WebGUI::International::get(335).'</td><td class="tableData">'.$gender{$user{gender}}.'</td></tr>';
}
if ($user{birthdate} ne "") {
$output .= '<tr><td class="tableHeader" valign="top">'.WebGUI::International::get(336).'</td><td class="tableData">'.$user{birthdate}.'</td></tr>';

View file

@ -188,7 +188,7 @@ sub www_editUser {
tie %hash, 'Tie::CPHash';
tie %data, 'Tie::IxHash';
if (WebGUI::Privilege::isInGroup(3)) {
%gender = ('male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340));
%gender = ('neuter'=>WebGUI::International::get(403),'male'=>WebGUI::International::get(339),'female'=>WebGUI::International::get(340));
%user = WebGUI::SQL->quickHash("select * from users where userId=$session{form}{uid}");
$output .= '<table><tr><td valign="top">';
$output .= helpLink(5);

View file

@ -51,7 +51,7 @@ sub _calendarLayout {
$calendar->addcontent(epochToHuman($event{startDate},"%D"),$message);
} else {
$nextDate = $event{startDate};
while($nextDate < $event{endDate}) {
while($nextDate <= $event{endDate}) {
if (epochToHuman($nextDate,"%M %y") eq $thisMonth) {
$calendar->addcontent(epochToHuman($nextDate,"%D"),$message);
}
@ -409,30 +409,33 @@ sub www_view {
while (%event = $sth->hash) {
unless ($event{startDate} == $previous{startDate}
&& $event{endDate} == $previous{endDate}) {
$output .= "<b>".epochToHuman($event{startDate},"%c %D");
$row[$i] = "<b>".epochToHuman($event{startDate},"%c %D");
if (epochToHuman($event{startDate},"%y") ne epochToHuman($event{endDate},"%y")) {
$output .= ", ".epochToHuman($event{startDate},"%y");
$row[$i] .= ", ".epochToHuman($event{startDate},"%y");
$flag = 1;
}
if ($flag || epochToHuman($event{startDate},"%c") ne epochToHuman($event{endDate},"%c")) {
$output .= " - ".epochToHuman($event{endDate},"%c %D");
$row[$i] .= " - ".epochToHuman($event{endDate},"%c %D");
} elsif (epochToHuman($event{startDate},"%D") ne epochToHuman($event{endDate},"%D")) {
$output .= " - ".epochToHuman($event{endDate},"%D");
$row[$i] .= " - ".epochToHuman($event{endDate},"%D");
}
$flag = 0;
$output .= ", ".epochToHuman($event{endDate},"%y");
$output .= "</b>";
$output .= "<hr size=1>";
$row[$i] .= ", ".epochToHuman($event{endDate},"%y");
$row[$i] .= "</b>";
$row[$i] .= "<hr size=1>";
}
%previous = %event;
$output .= '<span class="eventTitle">'.$event{name}.'</span>';
$row[$i] .= '<span class="eventTitle">'.$event{name}.'</span>';
if ($event{description} ne "") {
$output .= ' - ';
$output .= ''.$event{description};
$row[$i] .= ' - ';
$row[$i] .= ''.$event{description};
}
$output .= '<p>';
$row[$i] .= '<p>';
$i++;
}
$sth->finish;
($dataRows, $prevNextBar) = paginate($data{paginateAfter},WebGUI::URL::page(),\@row);
$output .= $dataRows.$prevNextBar;
}
if ($data{processMacros}) {
$output = WebGUI::Macro::process($output);