connect($config->param('dsn'), $config->param('dbuser'), $config->param('dbpass'))}) {
+ print "OK\n";
+ print "Renaming tables:\t";
+ WebGUI::SQL->write("alter table user rename users",$dbh);
+ print "Done\n";
+ print "Creating new columns:\t";
+ WebGUI::SQL->write("alter table Article add column startDate_upgrade int after startDate",$dbh);
+ WebGUI::SQL->write("alter table Article add column endDate_upgrade int after endDate",$dbh);
+ WebGUI::SQL->write("alter table SyndicatedContent add column lastFetched_upgrade int after lastFetched",$dbh);
+ WebGUI::SQL->write("alter table event add column startDate_upgrade int after startDate",$dbh);
+ WebGUI::SQL->write("alter table event add column endDate_upgrade int after endDate",$dbh);
+ WebGUI::SQL->write("alter table message add column dateOfPost_upgrade int after dateOfPost",$dbh);
+ WebGUI::SQL->write("alter table session add column expires_upgrade int after expires",$dbh);
+ WebGUI::SQL->write("alter table session add column lastPageView_upgrade int after lastPageView",$dbh);
+ WebGUI::SQL->write("alter table submission add column dateSubmitted_upgrade int after dateSubmitted",$dbh);
+ WebGUI::SQL->write("alter table widget add column dateAdded_upgrade int after dateAdded",$dbh);
+ WebGUI::SQL->write("alter table widget add column lastEdited_upgrade int after lastEdited",$dbh);
+ print "Done\n";
+ print "Migrating data:\t\t";
+ WebGUI::SQL->write("update Article set endDate='2037-01-01 00:00:00' where endDate='2100-01-01 00:00:00'",$dbh);
+ $sth = WebGUI::SQL->read("select widgetId, unix_timestamp(startDate), unix_timestamp(endDate) from Article",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update Article set startDate_upgrade='$data[1]', endDate_upgrade='$data[2]' where widgetId=$data[0]",$dbh);
+ }
+ $sth->finish;
+ $sth = WebGUI::SQL->read("select widgetId, unix_timestamp(lastFetched) from SyndicatedContent",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update SyndicatedContent set lastFetched_upgrade='$data[1]' where widgetId=$data[0]",$dbh);
+ }
+ $sth->finish;
+ $sth = WebGUI::SQL->read("select eventId, unix_timestamp(startDate), unix_timestamp(endDate) from event",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update event set startDate_upgrade='$data[1]', endDate_upgrade='$data[2]' where eventId=$data[0]",$dbh);
+ }
+ $sth->finish;
+ $sth = WebGUI::SQL->read("select messageId, unix_timestamp(dateOfPost) from message",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update message set dateOfPost_upgrade='$data[1]' where messageId=$data[0]",$dbh);
+ }
+ $sth->finish;
+ $sth = WebGUI::SQL->read("select sessionId, unix_timestamp(expires), unix_timestamp(lastPageView) from session",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update session set expires_upgrade='$data[1]', lastPageView_upgrade='$data[2]' where sessionId=".$dbh->quote($data[0])."",$dbh);
+ }
+ $sth->finish;
+ $sth = WebGUI::SQL->read("select submissionId, unix_timestamp(dateSubmitted) from submission",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update submission set dateSubmitted_upgrade='$data[1]' where widgetId=$data[0]",$dbh);
+ }
+ $sth->finish;
+ $sth = WebGUI::SQL->read("select widgetId, unix_timestamp(dateAdded), unix_timestamp(lastEdited) from widget",$dbh);
+ while (@data = $sth->array) {
+ WebGUI::SQL->write("update widget set dateAdded_upgrade='$data[1]', lastEdited='$data[2]' where widgetId=$data[0]",$dbh);
+ }
+ $sth->finish;
+ print "Done\n";
+ print "Discarding old columns:\t";
+ WebGUI::SQL->write("alter table Article drop column startDate",$dbh);
+ WebGUI::SQL->write("alter table Article drop column endDate",$dbh);
+ WebGUI::SQL->write("alter table SyndicatedContent drop column lastFetched",$dbh);
+ WebGUI::SQL->write("alter table event drop column startDate",$dbh);
+ WebGUI::SQL->write("alter table event drop column endDate",$dbh);
+ WebGUI::SQL->write("alter table message drop column dateOfPost",$dbh);
+ WebGUI::SQL->write("alter table session drop column expires",$dbh);
+ WebGUI::SQL->write("alter table session drop column lastPageView",$dbh);
+ WebGUI::SQL->write("alter table submission drop column dateSubmitted",$dbh);
+ WebGUI::SQL->write("alter table widget drop column dateAdded",$dbh);
+ WebGUI::SQL->write("alter table widget drop column lastEdited",$dbh);
+ print "Done\n";
+ print "Renaming columns:\t";
+ WebGUI::SQL->write("alter table Article change column startDate_upgrade startDate int",$dbh);
+ WebGUI::SQL->write("alter table Article change column endDate_upgrade endDate int",$dbh);
+ WebGUI::SQL->write("alter table SyndicatedContent change column lastFetched_upgrade lastFetched int",$dbh);
+ WebGUI::SQL->write("alter table event change column startDate_upgrade startDate int",$dbh);
+ WebGUI::SQL->write("alter table event change column endDate_upgrade endDate int",$dbh);
+ WebGUI::SQL->write("alter table message change column dateOfPost_upgrade dateOfPost int",$dbh);
+ WebGUI::SQL->write("alter table session change column expires_upgrade expires int",$dbh);
+ WebGUI::SQL->write("alter table session change column lastPageView_upgrade lastPageView int",$dbh);
+ WebGUI::SQL->write("alter table submission change column dateSubmitted_upgrade dateSubmitted int",$dbh);
+ WebGUI::SQL->write("alter table widget change column dateAdded_upgrade dateAdded int",$dbh);
+ WebGUI::SQL->write("alter table widget change column lastEdited_upgrade lastEdited int",$dbh);
+ print "Done\n";
+ print "Cleaning up:\t\t";
+ $dbh->disconnect();
+ print "Done\n";
+ print "\nUpgrade complete!\n";
+ } else {
+ print "Can't connect with info provided.\n";
+ }
+} else {
+ print "Ouch...something went wrong!";
+}
+
+
+
+
diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index e492060fe..2ca523df0 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -1,5 +1,5 @@
package WebGUI;
-our $VERSION = "1.1.0";
+our $VERSION = "1.2.0";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001 Plain Black Software.
@@ -129,7 +129,6 @@ sub page {
} elsif ($functionOutput ne "") {
$content = $functionOutput;
} else {
- #if (WebGUI::Privilege::canViewPage($session{page}{pageId})) {
if (WebGUI::Privilege::canViewPage()) {
if ($session{var}{adminOn}) {
$content .= '



';
diff --git a/lib/WebGUI/DateTime.pm b/lib/WebGUI/DateTime.pm
new file mode 100644
index 000000000..467396ded
--- /dev/null
+++ b/lib/WebGUI/DateTime.pm
@@ -0,0 +1,124 @@
+package WebGUI::DateTime;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001 Plain Black Software.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com info@plainblack.com
+#-------------------------------------------------------------------
+
+use Exporter;
+use strict;
+use Time::Local;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(&epochToHuman &epochToSet &humanToEpoch &setToEpoch);
+our %month = (
+ 1=> "January",
+ 2=> "February",
+ 3=> "March",
+ 4=> "April",
+ 5=> "May",
+ 6=> "June",
+ 7=> "July",
+ 8=> "August",
+ 9=> "September",
+ 10=> "October",
+ 11=> "November",
+ 12=> "December"
+ );
+our %weekday = (
+ 1=> "Sunday",
+ 2=> "Monday",
+ 3=> "Tuesday",
+ 4=> "Wednesday",
+ 5=> "Thursday",
+ 6=> "Friday",
+ 7=> "Saturday"
+ );
+
+#-------------------------------------------------------------------
+sub epochToHuman {
+ my ($hour12, $value, $output, @date);
+ @date = localtime($_[0]);
+ $date[4]++; # offset the months starting from 0
+ $date[5] += 1900; # original value is Year-1900
+ $date[6]++; # offset for weekdays starting from 0
+ $output = $_[1];
+ #---dealing with percent symbol
+ $output =~ s/\%\%/\%/g;
+ #---year stuff
+ $output =~ s/\%y/$date[5]/g;
+ $value = substr($date[5],2,2);
+ $output =~ s/\%Y/$value/g;
+ #---month stuff
+ $value = sprintf("%02d",$date[4]);
+ $output =~ s/\%m/$value/g;
+ $output =~ s/\%M/$date[4]/g;
+ $output =~ s/\%c/$month{$date[4]}/g;
+ #---day stuff
+ $value = sprintf("%02d",$date[3]);
+ $output =~ s/\%d/$value/g;
+ $output =~ s/\%D/$date[3]/g;
+ $output =~ s/\%w/$weekday{$date[6]}/g;
+ #---hour stuff
+ $hour12 = $date[2]+1;
+ if ($hour12 > 12) {
+ $hour12 = $hour12 - 12;
+ }
+ $value = sprintf("%02d",$hour12);
+ $output =~ s/\%h/$value/g;
+ $output =~ s/\%H/$hour12/g;
+ $value = sprintf("%02d",$date[2]);
+ $output =~ s/\%j/$value/g;
+ $output =~ s/\%J/$date[2]/g;
+ if ($date[2] > 11) {
+ $output =~ s/\%p/pm/g;
+ $output =~ s/\%P/PM/g;
+ } else {
+ $output =~ s/\%p/am/g;
+ $output =~ s/\%P/AM/g;
+ }
+ #---minute stuff
+ $value = sprintf("%02d",$date[1]);
+ $output =~ s/\%n/$value/g;
+ #---second stuff
+ $value = sprintf("%02d",$date[0]);
+ $output =~ s/\%s/$value/g;
+ return $output;
+}
+
+#-------------------------------------------------------------------
+sub epochToSet {
+ return epochToHuman($_[0],"%m/%d/%y");
+}
+
+#-------------------------------------------------------------------
+# eg: humanToEpoch(YYYY-MM-DD HH:MM:SS)
+sub humanToEpoch {
+ my (@temp, $dateString, $timeString, $output, @date);
+ ($dateString,$timeString) = split(/ /,$_[0]);
+ @temp = split(/-/,$dateString);
+ $date[5] = $temp[0]-1900;
+ $date[4] = $temp[1]-1;
+ $date[3] = $temp[2]+0;
+ @temp = split(/:/,$timeString);
+ $date[2] = $temp[0]+0;
+ $date[1] = $temp[1]+0;
+ $date[0] = $temp[2]+0;
+ $output = timelocal(@date);
+ return $output;
+}
+
+#-------------------------------------------------------------------
+sub setToEpoch {
+ my ($month, $day, $year) = split(/\//,$_[0]);
+ return humanToEpoch($year.'-'.$month.'-'.$day.' 00:00:00');
+}
+
+
+
+1;
diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm
index 35c4aeeff..4b5c26da2 100644
--- a/lib/WebGUI/Operation/Account.pm
+++ b/lib/WebGUI/Operation/Account.pm
@@ -37,7 +37,7 @@ sub _hasBadPassword {
#-------------------------------------------------------------------
sub _hasBadUsername {
my ($otherUser);
- ($otherUser) = WebGUI::SQL->quickArray("select username from user where lcase(username)=lcase('$_[0]')",$session{dbh});
+ ($otherUser) = WebGUI::SQL->quickArray("select username from users where lcase(username)=lcase('$_[0]')",$session{dbh});
if (($otherUser ne "" && $otherUser ne $session{user}{username}) || $_[0] eq "") {
return 1;
} else {
@@ -104,7 +104,7 @@ sub www_deactivateAccount {
#-------------------------------------------------------------------
sub www_deactivateAccountConfirm {
if ($session{user}{userId} != 1) {
- WebGUI::SQL->write("delete from user where userId=$session{user}{userId}",$session{dbh});
+ WebGUI::SQL->write("delete from users where userId=$session{user}{userId}",$session{dbh});
WebGUI::SQL->write("delete from groupings where userId=$session{user}{userId}",$session{dbh});
WebGUI::Session::end($session{var}{sessionId});
_login(1,"null");
@@ -169,7 +169,7 @@ sub www_displayLogin {
#-------------------------------------------------------------------
sub www_login {
my ($uri, $port, $ldap, %args, $auth, $error, $uid,$pass,$authMethod, $ldapURL, $connectDN, $success);
- ($uid,$pass,$authMethod, $ldapURL, $connectDN) = WebGUI::SQL->quickArray("select userId,identifier,authMethod,ldapURL,connectDN from user where username=".quote($session{form}{username}),$session{dbh});
+ ($uid,$pass,$authMethod, $ldapURL, $connectDN) = WebGUI::SQL->quickArray("select userId,identifier,authMethod,ldapURL,connectDN from users where username=".quote($session{form}{username}),$session{dbh});
if ($authMethod eq "LDAP") {
$uri = URI->new($ldapURL);
if ($uri->port < 1) {
@@ -232,13 +232,13 @@ sub www_recoverPassword {
#-------------------------------------------------------------------
sub www_recoverPasswordFinish {
my ($sth, $username, $encryptedPassword, $userId, $password, $flag, $message, $output);
- $sth = WebGUI::SQL->read("select username, userId from user where email=".quote($session{form}{email}),$session{dbh});
+ $sth = WebGUI::SQL->read("select username, userId from users where email=".quote($session{form}{email}),$session{dbh});
while (($username,$userId) = $sth->array) {
foreach (0,1,2,3,4,5) {
$password .= chr(ord('A') + randint(32));
}
$encryptedPassword = Digest::MD5::md5_base64($password);
- WebGUI::SQL->write("update user set identifier='$encryptedPassword' where userId='$userId'",$session{dbh});
+ WebGUI::SQL->write("update users set identifier='$encryptedPassword' where userId='$userId'",$session{dbh});
$flag = 1;
$message = 'Someone (probably you) requested your account information be sent. Your password has been reset. The following information represents your new account information:\nUser: '.$username.'\nPass: '.$password.'\n';
WebGUI::Mail::send($session{form}{email},"Account Information",$message);
@@ -288,8 +288,8 @@ sub www_saveAccount {
if ($error eq "") {
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier1});
$uid = getNextId("userId");
- WebGUI::SQL->write("insert into user set userId=$uid, username=".quote($session{form}{username}).", identifier=".quote($encryptedPassword).", authMethod=".quote($session{setting}{authMethod}).", ldapURL=".quote($session{setting}{ldapURL}).", connectDN=".quote($connectDN).", email=".quote($session{form}{email}).", icq=".quote($session{form}{icq}),$session{dbh});
- WebGUI::SQL->write("insert into groupings set groupId=2,userId=$uid",$session{dbh});
+ WebGUI::SQL->write("insert into users values ($uid, ".quote($session{form}{username}).", ".quote($encryptedPassword).", ".quote($session{form}{email}).", ".quote($session{form}{icq}).", ".quote($session{setting}{authMethod}).", ".quote($session{setting}{ldapURL}).", ".quote($connectDN).")",$session{dbh});
+ WebGUI::SQL->write("insert into groupings values (2,$uid)",$session{dbh});
_login($uid,$encryptedPassword);
$output .= 'Account created successfully!';
$output .= www_displayAccount();
@@ -315,7 +315,7 @@ sub www_updateAccount {
}
if ($error eq "") {
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier1});
- WebGUI::SQL->write("update user set username=".quote($session{form}{username}).$passwordStatement.", email=".quote($session{form}{email}).", icq=".quote($session{form}{icq})." where userId=".$session{user}{userId},$session{dbh});
+ WebGUI::SQL->write("update users set username=".quote($session{form}{username}).$passwordStatement.", email=".quote($session{form}{email}).", icq=".quote($session{form}{icq})." where userId=".$session{user}{userId},$session{dbh});
if ($passwordStatement ne "") {
_login($session{user}{userId},$encryptedPassword);
}
diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index e6bd6644e..08c70953c 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/lib/WebGUI/Operation/Group.pm
@@ -43,7 +43,7 @@ sub www_addGroup {
sub www_addGroupSave {
my ($output);
if ($session{var}{sessionId}) {
- WebGUI::SQL->write("insert into groups set groupId=".getNextId("groupId").", groupName=".quote($session{form}{groupName}).", description=".quote($session{form}{description}),$session{dbh});
+ WebGUI::SQL->write("insert into groups values (".getNextId("groupId").", ".quote($session{form}{groupName}).", ".quote($session{form}{description}).")",$session{dbh});
$output = www_listGroups();
} else {
$output = WebGUI::Privilege::insufficient();
@@ -89,7 +89,7 @@ sub www_editGroup {
$output .= '
| Description | '.WebGUI::Form::textArea("description",$group{description}).' |
';
$output .= ' | '.WebGUI::Form::submit("save").' |
';
$output .= '| Users In Group | ';
- $sth = WebGUI::SQL->read("select user.username from user,groupings where groupings.groupId=$session{form}{gid} and groupings.userId=user.userId order by user.username",$session{dbh});
+ $sth = WebGUI::SQL->read("select users.username from users,groupings where groupings.groupId=$session{form}{gid} and groupings.userId=users.userId order by users.username",$session{dbh});
while (($user) = $sth->array) {
$output .= $user." ";
}
diff --git a/lib/WebGUI/Operation/Page.pm b/lib/WebGUI/Operation/Page.pm
index c1447d5cb..6ad0602d0 100644
--- a/lib/WebGUI/Operation/Page.pm
+++ b/lib/WebGUI/Operation/Page.pm
@@ -80,7 +80,7 @@ sub www_addPageSave {
while (($test) = WebGUI::SQL->quickArray("select urlizedTitle from page where urlizedTitle='$urlizedTitle'",$session{dbh})) {
$urlizedTitle .= 2;
}
- WebGUI::SQL->write("insert into page set pageId=".getNextId("pageId").", parentId=$session{page}{pageId}, title=".quote($session{form}{title}).", styleId=$session{page}{styleId}, sequenceNumber='$nextSeq', ownerId=$session{user}{userId}, ownerView=$session{page}{ownerView}, ownerEdit=$session{page}{ownerEdit}, groupId='$session{page}{groupId}', groupView=$session{page}{groupView}, groupEdit=$session{page}{groupEdit}, worldView=$session{page}{worldView}, worldEdit=$session{page}{worldEdit}, metaTags=".quote($session{form}{metaTags}).", urlizedTitle='$urlizedTitle'",$session{dbh});
+ WebGUI::SQL->write("insert into page values (".getNextId("pageId").", $session{page}{pageId}, ".quote($session{form}{title}).", $session{page}{styleId}, $session{user}{userId}, $session{page}{ownerView}, $session{page}{ownerEdit}, $session{page}{groupId}, $session{page}{groupView}, $session{page}{groupEdit}, $session{page}{worldView}, $session{page}{worldEdit}, '$nextSeq', ".quote($session{form}{metaTags}).", '$urlizedTitle')",$session{dbh});
return "";
} else {
return WebGUI::Privilege::insufficient();
@@ -140,7 +140,7 @@ sub www_editPage {
$array[0] = $session{page}{styleId};
$output .= ' |
| Style | '.WebGUI::Form::selectList("styleId",\%hash,\@array).' '.WebGUI::Form::checkbox("recurseStyle","yes").' Check to give this style to all sub-pages. |
';
$output .= '| Page URL | '.WebGUI::Form::text("urlizedTitle",20,30,$session{page}{urlizedTitle}).' |
';
- %hash = WebGUI::SQL->buildHash("select user.userId,user.username from user,groupings where groupings.groupId=4 and groupings.userId=user.userId order by user.username",$session{dbh});
+ %hash = WebGUI::SQL->buildHash("select users.userId,users.username from users,groupings where groupings.groupId=4 and groupings.userId=users.userId order by users.username",$session{dbh});
$array[0] = $session{page}{ownerId};
$output .= '| Owner | '.WebGUI::Form::selectList("ownerId",\%hash,\@array).' '.WebGUI::Form::checkbox("recursePrivs","yes").' Check to give these privileges to all sub-pages. |
';
$array[0] = $session{page}{ownerView};
diff --git a/lib/WebGUI/Operation/Style.pm b/lib/WebGUI/Operation/Style.pm
index d5704c69b..ab166e3bd 100644
--- a/lib/WebGUI/Operation/Style.pm
+++ b/lib/WebGUI/Operation/Style.pm
@@ -45,7 +45,7 @@ sub www_addStyle {
sub www_addStyleSave {
my ($output);
if (WebGUI::Privilege::isInGroup(3)) {
- WebGUI::SQL->write("insert into style set styleId=".getNextId("styleId").", name=".quote($session{form}{name}).", header=".quote($session{form}{header}).", footer=".quote($session{form}{footer}).", styleSheet=".quote($session{form}{styleSheet}),$session{dbh});
+ WebGUI::SQL->write("insert into style values (".getNextId("styleId").", ".quote($session{form}{name}).", ".quote($session{form}{header}).", ".quote($session{form}{footer}).", ".quote($session{form}{styleSheet}).")",$session{dbh});
$output = www_listStyles();
} else {
$output = WebGUI::Privilege::insufficient();
diff --git a/lib/WebGUI/Operation/Submission.pm b/lib/WebGUI/Operation/Submission.pm
index 6f78db0d4..77dab5361 100644
--- a/lib/WebGUI/Operation/Submission.pm
+++ b/lib/WebGUI/Operation/Submission.pm
@@ -12,6 +12,7 @@ package WebGUI::Operation::Submission;
use Exporter;
use strict;
+use WebGUI::DateTime;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
@@ -46,9 +47,9 @@ sub www_viewPendingSubmissions {
my (@submission, $output, $sth, @row, $i, $pn);
if (WebGUI::Privilege::isInGroup(4,$session{user}{userId}) || WebGUI::Privilege::isInGroup(3,$session{user}{userId})) {
$output = 'Pending Sumissions
';
- $sth = WebGUI::SQL->read("select title,submissionId,date_format(dateSubmitted,'%c/%e %l:%i%p'),username,userId,widgetId from submission where status='Pending' order by dateSubmitted",$session{dbh});
+ $sth = WebGUI::SQL->read("select title,submissionId,dateSubmitted,username,userId,widgetId from submission where status='Pending' order by dateSubmitted",$session{dbh});
while (@submission = $sth->array) {
- $row[$i] = '| '.$submission[0].' | '.$submission[2].' | '.$submission[3].' |
';
+ $row[$i] = '| '.$submission[0].' | '.epochToHuman($submission[2],"%m/%d/%Y").' | '.$submission[3].' |
';
$i++;
}
$sth->finish;
diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm
index 32204ca9e..b2ec224d5 100644
--- a/lib/WebGUI/Operation/User.pm
+++ b/lib/WebGUI/Operation/User.pm
@@ -53,15 +53,14 @@ sub www_addUser {
#-------------------------------------------------------------------
sub www_addUserSave {
- my ($output, @groups, $uid, $gid, $encryptedPassword, $passwordStatement);
+ my ($output, @groups, $uid, $gid, $encryptedPassword);
if (WebGUI::Privilege::isInGroup(3)) {
$encryptedPassword = Digest::MD5::md5_base64($session{form}{identifier});
- $passwordStatement = ', identifier='.quote($encryptedPassword);
$uid = getNextId("userId");
- WebGUI::SQL->write("insert into user set userId=$uid, username=".quote($session{form}{username}).$passwordStatement.", authMethod=".quote($session{form}{authMethod}).", ldapURL=".quote($session{form}{ldapURL}).", connectDN=".quote($session{form}{connectDN}).", email=".quote($session{form}{email}).", icq=".quote($session{form}{icq}),$session{dbh});
+ WebGUI::SQL->write("insert into users values ($uid, ".quote($session{form}{username}).", ".quote($encryptedPassword).", ".quote($session{form}{email}).", ".quote($session{form}{icq}).", ".quote($session{form}{authMethod}).", ".quote($session{form}{ldapURL}).", ".quote($session{form}{connectDN}).")",$session{dbh});
@groups = $session{cgi}->param('groups');
foreach $gid (@groups) {
- WebGUI::SQL->write("insert into groupings set groupId=$gid, userId=$uid",$session{dbh});
+ WebGUI::SQL->write("insert into groupings values ($gid, $uid)",$session{dbh});
}
$output = www_listUsers();
} else {
@@ -87,7 +86,7 @@ sub www_deleteUser {
#-------------------------------------------------------------------
sub www_deleteUserConfirm {
if (WebGUI::Privilege::isInGroup(3) && $session{form}{uid} > 25) {
- WebGUI::SQL->write("delete from user where userId=$session{form}{uid}",$session{dbh});
+ WebGUI::SQL->write("delete from users where userId=$session{form}{uid}",$session{dbh});
WebGUI::SQL->write("delete from groupings where userId=$session{form}{uid}",$session{dbh});
return www_listUsers();
} else {
@@ -99,7 +98,7 @@ sub www_deleteUserConfirm {
sub www_editUser {
my ($output, %user, %hash, @array);
if (WebGUI::Privilege::isInGroup(3)) {
- %user = WebGUI::SQL->quickHash("select * from user where userId=$session{form}{uid}",$session{dbh});
+ %user = WebGUI::SQL->quickHash("select * from users where userId=$session{form}{uid}",$session{dbh});
$output .= '
Edit User