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

bug fixes

Browse source
This commit is contained in:
JT Smith 2004-03-08 01:05:12 +00:00
parent 1d02c5e73f
commit f1508cfd93
4 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Operation/Settings.pm
View file

@ -146,7 +146,7 @@ sub www_editMiscSettings {
#-------------------------------------------------------------------
sub www_editUserSettings {
return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
my ($output, $f, $cmd, $html, $options);
my ($output, $f, $cmd, $html);
$output .= helpIcon(2);
$output .= '<h1>'.WebGUI::International::get(117).'</h1>';
$output .= WebGUI::Form::_javascriptFile("swapLayers.js");

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

@ -225,7 +225,7 @@ sub www_editTheme {
.' '.$component->{name}.' ('.$componentTypes->{$component->{componentType}}.')<br>';
}
$sth->finish;
my $sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent
$sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent
where type='template' and themeId=".$session{form}{themeId});
while (my $data = $sth->hashRef) {
my ($templateId,$namespace) = split("_",$data->{id});
@ -489,7 +489,7 @@ sub www_viewTheme {
$output .= $component->{name}.' ('.$componentTypes->{$component->{componentType}}.')<br>';
}
$sth->finish;
my $sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent
$sth = WebGUI::SQL->read("select themeComponentId,id from themeComponent
where type='template' and themeId=".$session{form}{themeId});
while (my $data = $sth->hashRef) {
my ($templateId,$namespace) = split("_",$data->{id});

1
lib/WebGUI/Paginator.pm
View file

@ -449,7 +449,6 @@ Specify the form variable the paginator should use in it's links. Defaults to "
=cut
sub new {
my ($class, $currentURL, $rowsPerPage, $rowRef, $formVar, $pageRef, $pn);
my $class = shift;
my $currentURL = shift;
my $rowsPerPage = shift || 25;

3
lib/WebGUI/User.pm
View file

@ -138,8 +138,7 @@ Deletes this user.
=cut
sub delete {
my ($class,$authMethod);
$class = shift;
my $class = shift;
WebGUI::SQL->write("delete from users where userId=".$class->{_userId});
WebGUI::SQL->write("delete from userProfileData where userId=".$class->{_userId});
WebGUI::Grouping::deleteUsersFromGroups([$class->{_userId}],WebGUI::Grouping::getGroupsForUser($class->{_userId}));