oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 3.2.3 release

Browse source
This commit is contained in:
JT Smith 2002-02-15 21:34:00 +00:00
parent 48253ba11b
commit ff74fd32c6
6 changed files with 32 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

10
docs/create.sql
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','English','Permission Denied!');
INSERT INTO international VALUES (37,'WebGUI','Español','Permiso Denegado!'); 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 (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','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 href=”^\\?op=displayLogin”>Log in</a> als een gebruiker met voldoende privileges.'); 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 href=\"^\\?op=displayLogin\">log in with an account</a> that has sufficient privileges before attempting this operation.'); 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 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','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 href=\"\"^\\?op=displayLogin\"\">Identifique-se na entrada</a> com uma conta que permita essa operação.\"'); 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','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','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.'); INSERT INTO international VALUES (39,'WebGUI','English','You do not have sufficient privileges to access this page.');

7
docs/upgrades/upgrade_3.2.2-3.2.3.sql Normal file
View file

@ -0,0 +1,7 @@
delete from international where internationalId=38 and namespace='WebGUI';
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.\"');

2
lib/WebGUI.pm
View file

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

9
lib/WebGUI/Operation/Image.pm
View file

@ -153,9 +153,9 @@ sub www_editImageSave {
if ($file ne "") { if ($file ne "") {
$file = ", filename=".quote($file); $file = ", filename=".quote($file);
} }
WebGUI::SQL->write("update images set imageId=$session{form}{iid}, name=".quote($session{form}{name}). WebGUI::SQL->write("update images set name=".quote($session{form}{name}).
$file.", parameters=".quote($session{form}{parameters}).", userId=$session{user}{userId}, ". $file.", parameters=".quote($session{form}{parameters}).", userId=$session{user}{userId}, ".
" username=".quote($session{user}{username}).", dateUploaded=".time()); " username=".quote($session{user}{username}).", dateUploaded=".time()." where imageId=$session{form}{iid}");
return www_listImages(); return www_listImages();
} else { } else {
return WebGUI::Privilege::insufficient(); return WebGUI::Privilege::insufficient();
@ -164,7 +164,7 @@ sub www_editImageSave {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub www_listImages { sub www_listImages {
my ($output, $sth, %data, @row, $dataRows, $prevNextBar, $i, $search); my ($output, $sth, %data, @row, $dataRows, $prevNextBar, $i, $search, $isAdmin);
tie %data, 'Tie::CPHash'; tie %data, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(4)) { if (WebGUI::Privilege::isInGroup(4)) {
$output = helpLink(26); $output = helpLink(26);
@ -180,10 +180,11 @@ sub www_listImages {
$search = " where (name like '%".$session{form}{keyword}. $search = " where (name like '%".$session{form}{keyword}.
"%' or filename like '%".$session{form}{keyword}."%') "; "%' or filename like '%".$session{form}{keyword}."%') ";
} }
$isAdmin = WebGUI::Privilege::isInGroup(3);
$sth = WebGUI::SQL->read("select * from images $search order by name"); $sth = WebGUI::SQL->read("select * from images $search order by name");
while (%data = $sth->hash) { while (%data = $sth->hash) {
$row[$i] = '<tr class="tableData"><td>'; $row[$i] = '<tr class="tableData"><td>';
if ($session{user}{userId} == $data{userId}) { if ($session{user}{userId} == $data{userId} || $isAdmin) {
$row[$i] .= '<a href="'.WebGUI::URL::page('op=deleteImage&iid='.$data{imageId}). $row[$i] .= '<a href="'.WebGUI::URL::page('op=deleteImage&iid='.$data{imageId}).
'"><img src="'.$session{setting}{lib}.'/delete.gif" border=0></a>'; '"><img src="'.$session{setting}{lib}.'/delete.gif" border=0></a>';
$row[$i] .= '<a href="'.WebGUI::URL::page('op=editImage&iid='.$data{imageId}). $row[$i] .= '<a href="'.WebGUI::URL::page('op=editImage&iid='.$data{imageId}).

4
lib/WebGUI/Operation/User.pm
View file

@ -335,14 +335,14 @@ sub www_listUsers {
$row[$i] .= '<a href="'.WebGUI::URL::page('op=becomeUser&uid='.$data[0]). $row[$i] .= '<a href="'.WebGUI::URL::page('op=becomeUser&uid='.$data[0]).
'"><img src="'.$session{setting}{lib}.'/become.gif" border=0></a>'; '"><img src="'.$session{setting}{lib}.'/become.gif" border=0></a>';
$row[$i] .= '</td>'; $row[$i] .= '</td>';
$row[$i] .= '<td><a href="'.WebGUI::URL::page('?op=viewProfile&uid='.$data[0]) $row[$i] .= '<td><a href="'.WebGUI::URL::page('op=viewProfile&uid='.$data[0])
.'">'.$data[1].'</a></td>'; .'">'.$data[1].'</a></td>';
#$row[$i] .= '<td>'.$data[1].'</td>'; #$row[$i] .= '<td>'.$data[1].'</td>';
$row[$i] .= '<td><a href="mailto:'.$data[2].'">'.$data[2].'</a></td></tr>'; $row[$i] .= '<td><a href="mailto:'.$data[2].'">'.$data[2].'</a></td></tr>';
$i++; $i++;
} }
$sth->finish; $sth->finish;
($dataRows, $prevNextBar) = paginate(50,WebGUI::URL::page('?op=listUsers'),\@row); ($dataRows, $prevNextBar) = paginate(50,WebGUI::URL::page('op=listUsers'),\@row);
$output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">'; $output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
$output .= $dataRows; $output .= $dataRows;
$output .= '</table>'; $output .= '</table>';

24
lib/WebGUI/Privilege.pm
View file

@ -72,14 +72,10 @@ sub canViewPage {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub insufficient { sub insufficient {
my ($output); my ($output);
if ($session{user}{userId} eq "") { $output = '<h1>'.WebGUI::International::get(37).'</h1>';
$output = WebGUI::Operation::Account::displayAccount(); $output .= WebGUI::International::get(38);
} else { $output .= '<p>';
$output = '<h1>'.WebGUI::International::get(37).'</h1>'; $output = WebGUI::Macro::process($output);
$output .= WebGUI::International::get(38);
$output .= '<p>';
$output = WebGUI::Macro::process($output);
}
return $output; return $output;
} }
@ -103,10 +99,14 @@ sub isInGroup {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub noAccess { sub noAccess {
my ($output); my ($output);
$output = '<h1>'.WebGUI::International::get(37).'</h1>'; if ($session{user}{userId} <= 1) {
$output .= WebGUI::International::get(39); $output = WebGUI::Operation::Account::www_displayAccount();
$output .= '<p>'; } else {
return $output; $output = '<h1>'.WebGUI::International::get(37).'</h1>';
$output .= WebGUI::International::get(39);
$output .= '<p>';
}
return $output;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------