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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -37,7 +37,7 @@ $session->form->process("sid"). Afterwards, it calls www_viewActiveSessions.
=cut
sub www_killSession {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return www_viewActiveSessions() if $session->form->process("sid") eq $session->var->get("sessionId");
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::Session::end($session->form->process("sid"));
@ -54,7 +54,7 @@ delete (kill) each one via www_killSession
=cut
sub www_viewActiveSessions {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $p, @row, $i, $sth, %data);
tie %data, 'Tie::CPHash';

8
lib/WebGUI/Operation/Admin.pm
View file

@ -32,9 +32,9 @@ If the current user is in the Turn On Admin Group, then return an Admin Console.
=cut
sub www_adminConsole {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return "" unless ($session->user->isInGroup(12));
my $ac = WebGUI::AdminConsole->new;
my $ac = WebGUI::AdminConsole->new($session);
return $ac->render;
}
@ -49,7 +49,7 @@ via WebGUI::Session::switchAdminOff()
=cut
sub www_switchOffAdmin {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return "" unless ($session->user->isInGroup(12));
WebGUI::Session::switchAdminOff();
return "";
@ -65,7 +65,7 @@ via WebGUI::Session::switchAdminOn()
=cut
sub www_switchOnAdmin {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return "" unless ($session->user->isInGroup(12));
WebGUI::Session::switchAdminOn();
return "";

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

@ -30,7 +30,7 @@ Get the instance of this object or create a new instance if none exists
=cut
sub getInstance {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
#Get Auth Settings
my $authMethod = $session->user->authMethod || $session->setting->get("authMethod");
$authMethod = $session->setting->get("authMethod") if($session->user->userId eq '1');
@ -58,7 +58,7 @@ is returned.
=cut
sub www_auth {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $auth;
($auth) = $session->db->quickArray("select authMethod from users where username=".$session->db->quote($session->form->process("username"))) if($session->form->process("username"));
my $authMethod = getInstance($session,$auth);

6
lib/WebGUI/Operation/Cache.pm
View file

@ -45,7 +45,7 @@ is looked up in the i18n table in the WebGUI namespace.
=cut
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -74,7 +74,7 @@ Text description of how long the subscription lasts.
=cut
sub www_flushCache {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $cache = WebGUI::Cache->new($session,);
$cache->flush;
@ -91,7 +91,7 @@ provides an option to clear the cache.
=cut
sub www_manageCache {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $data);
my $cache = WebGUI::Cache->new($session);

52
lib/WebGUI/Operation/Commerce.pm
View file

@ -20,7 +20,7 @@ use Storable;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session, "Commerce");
my $workarea = shift;
@ -38,27 +38,27 @@ sub _submenu {
#-------------------------------------------------------------------
sub _clearCheckoutScratch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
_clearShippingScratch();
_clearPaymentScratch();
}
#-------------------------------------------------------------------
sub _clearPaymentScratch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->scratch->set('paymentGateway', '-delete-');
}
#-------------------------------------------------------------------
sub _clearShippingScratch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->scratch->set('shippingMethod', '-delete-');
$session->scratch->set('shippingOptions', '-delete-');
}
#-------------------------------------------------------------------
sub _paymentSelected {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return 0 unless ($session->scratch->get('paymentGateway'));
my $plugin = WebGUI::Commerce::Payment->load($session, $session->scratch->get('paymentGateway'));
return 1 if ($plugin && $plugin->enabled);
@ -67,7 +67,7 @@ sub _paymentSelected {
#-------------------------------------------------------------------
sub _shippingSelected {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return 0 unless ($session->scratch->get('shippingMethod'));
my $plugin = WebGUI::Commerce::Shipping->load($session, $session->scratch->get('shippingMethod'));
@ -81,7 +81,7 @@ sub _shippingSelected {
#-------------------------------------------------------------------
sub www_addToCart {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
WebGUI::Commerce::ShoppingCart->new($session)->add($session->form->process("itemId"), $session->form->process("itemType"), $session->form->process("quantity"));
return WebGUI::Operation::execute('viewCart');
@ -89,7 +89,7 @@ sub www_addToCart {
#-------------------------------------------------------------------
sub www_cancelTransaction {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($transaction, %var);
$transaction = WebGUI::Commerce::Transaction->new($session, $session->form->process("tid"));
@ -106,7 +106,7 @@ sub www_cancelTransaction {
# This operation is here for easier future extensions to the commerce system.
#-------------------------------------------------------------------
sub www_checkout {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return WebGUI::Operation::execute('selectShippingMethod') unless (_shippingSelected);
return WebGUI::Operation::execute('selectPaymentGateway') unless (_paymentSelected);
@ -116,7 +116,7 @@ sub www_checkout {
#-------------------------------------------------------------------
sub www_checkoutConfirm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($plugin, $f, %var, $errors, $i18n, $shoppingCart, $normal, $recurring, $shipping, $total);
$errors = shift;
@ -196,7 +196,7 @@ sub www_checkoutConfirm {
#-------------------------------------------------------------------
sub www_checkoutSubmit {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($plugin, $shoppingCart, $transaction, $var, $amount, @cartItems, $i18n, @transactions,
@normal, $currentPurchase, $checkoutError, @resultLoop, %param, $normal, $recurring,
$formError, $shipping, $shippingCost, $shippingDescription);
@ -326,7 +326,7 @@ sub www_checkoutSubmit {
#-------------------------------------------------------------------
sub www_completePendingTransaction {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::Commerce::Transaction->new($session, $session->form->process("tid"))->completeTransaction;
@ -336,7 +336,7 @@ sub www_completePendingTransaction {
#-------------------------------------------------------------------
sub www_confirmRecurringTransaction {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my($plugin, %var);
$plugin = WebGUI::Commerce::Payment->load($session, $session->form->process("gateway"));
@ -347,7 +347,7 @@ sub www_confirmRecurringTransaction {
#-------------------------------------------------------------------
sub www_confirmTransaction {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my($plugin, %var);
$plugin = WebGUI::Commerce::Payment->load($session, $session->form->process("pg"));
@ -358,7 +358,7 @@ sub www_confirmTransaction {
#-------------------------------------------------------------------
sub www_deleteCartItem {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
WebGUI::Commerce::ShoppingCart->new($session)->delete($session->form->process("itemId"), $session->form->process("itemType"));
return WebGUI::Operation::execute('viewCart');
@ -366,7 +366,7 @@ sub www_deleteCartItem {
#-------------------------------------------------------------------
sub www_editCommerceSettings {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (%tabs, $tabform, $currentPlugin, $ac, $jscript, $i18n,
$paymentPlugin, @paymentPlugins, %paymentPlugins, @failedPaymentPlugins, $plugin,
$shippingPlugin, @shippingPlugins, %shippingPlugins, @failedShippingPlugins);
@ -510,7 +510,7 @@ sub www_editCommerceSettings {
#-------------------------------------------------------------------
sub www_editCommerceSettingsSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
foreach ($session->request->params) {
@ -533,7 +533,7 @@ sub www_editCommerceSettingsSave {
#-------------------------------------------------------------------
sub www_listPendingTransactions {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($p, $transactions, $output, $properties, $i18n);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -566,7 +566,7 @@ sub www_listPendingTransactions {
#-------------------------------------------------------------------
sub www_listTransactions {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($output, %criteria, $transaction, @transactions);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
@ -662,7 +662,7 @@ sub www_listTransactions {
#-------------------------------------------------------------------
sub www_selectPaymentGateway {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($plugins, $f, $i18n, @pluginLoop, %var);
_clearPaymentScratch;
@ -695,7 +695,7 @@ sub www_selectPaymentGateway {
#-------------------------------------------------------------------
sub www_selectPaymentGatewaySave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
if (WebGUI::Commerce::Payment->load($session, $session->form->process("paymentGateway"))->enabled) {
$session->scratch->set('paymentGateway', $session->form->process("paymentGateway"));
} else {
@ -707,7 +707,7 @@ sub www_selectPaymentGatewaySave {
#-------------------------------------------------------------------
sub www_selectShippingMethod {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($plugins, $f, $i18n, @pluginLoop, %var);
_clearShippingScratch;
@ -741,7 +741,7 @@ sub www_selectShippingMethod {
#-------------------------------------------------------------------
sub www_selectShippingMethodSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $shipping = WebGUI::Commerce::Shipping->load($session, $session->form->process("shippingMethod"));
$shipping->processOptionsForm;
@ -759,13 +759,13 @@ sub www_selectShippingMethodSave {
#-------------------------------------------------------------------
sub www_transactionComplete {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return WebGUI::Operation::execute('viewPurchaseHistory');
}
#-------------------------------------------------------------------
sub www_updateCart {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $shoppingCart = WebGUI::Commerce::ShoppingCart->new($session);
foreach my $formElement ($session->request->params) {
@ -779,7 +779,7 @@ my $shoppingCart = WebGUI::Commerce::ShoppingCart->new($session);
#-------------------------------------------------------------------
sub www_viewCart {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($shoppingCart, $normal, $recurring, %var, $total, $i18n);
$i18n = WebGUI::International->new($session, 'Commerce');

14
lib/WebGUI/Operation/DatabaseLink.pm
View file

@ -18,7 +18,7 @@ use WebGUI::International;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -40,7 +40,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_copyDatabaseLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
WebGUI::DatabaseLink->new($session,$session->form->process("dlid"))->copy;
return www_listDatabaseLinks();
@ -48,7 +48,7 @@ sub www_copyDatabaseLink {
#-------------------------------------------------------------------
sub www_deleteDatabaseLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session);
my ($output);
@ -63,7 +63,7 @@ sub www_deleteDatabaseLink {
#-------------------------------------------------------------------
sub www_deleteDatabaseLinkConfirm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
WebGUI::DatabaseLink->new($session,$session->form->process("dlid"))->delete;
return www_listDatabaseLinks();
@ -71,7 +71,7 @@ sub www_deleteDatabaseLinkConfirm {
#-------------------------------------------------------------------
sub www_editDatabaseLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my ($output, %db, $f);
tie %db, 'Tie::CPHash';
@ -128,7 +128,7 @@ sub www_editDatabaseLink {
#-------------------------------------------------------------------
sub www_editDatabaseLinkSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my $params = {
title=>$session->form->process("title"),
@ -146,7 +146,7 @@ sub www_editDatabaseLinkSave {
#-------------------------------------------------------------------
sub www_listDatabaseLinks {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless($session->user->isInGroup(3));
my $links = WebGUI::DatabaseLinks->getList($session);
my $output = '<table border="1" cellpadding="3" cellspacing="0" align="center">';

16
lib/WebGUI/Operation/FormHelpers.pm
View file

@ -16,8 +16,8 @@ use WebGUI::HTMLForm;
#-------------------------------------------------------------------
sub www_formAssetTree {
my $session = shift;
my $base = WebGUI::Asset->newByUrl || WebGUI::Asset->getRoot;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $base = WebGUI::Asset->newByUrl($session) || WebGUI::Asset->getRoot($session);
my @crumb;
my $ancestors = $base->getLineage(["self","ancestors"],{returnObjects=>1});
foreach my $ancestor (@{$ancestors}) {
@ -46,7 +46,7 @@ sub www_formAssetTree {
#-------------------------------------------------------------------
sub www_richEditPageTree {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session);
my $f = WebGUI::HTMLForm->new($session,-action=>"#",-extras=>'name"linkchooser"');
$f->text(
@ -80,7 +80,7 @@ window.opener.tinyMCE.insertLink("^" + "/" + ";" + document.getElementById("url_
}
}
</script><fieldset><legend>Pages</legend> ';
my $base = WebGUI::Asset->newByUrl || WebGUI::Asset->getRoot;
my $base = WebGUI::Asset->newByUrl($session) || WebGUI::Asset->getRoot($session);
my @crumb;
my $ancestors = $base->getLineage(["self","ancestors"],{returnObjects=>1});
foreach my $ancestor (@{$ancestors}) {
@ -100,8 +100,8 @@ window.opener.tinyMCE.insertLink("^" + "/" + ";" + document.getElementById("url_
#-------------------------------------------------------------------
sub www_richEditImageTree {
my $session = shift;
my $base = WebGUI::Asset->newByUrl || WebGUI::Asset->getRoot;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $base = WebGUI::Asset->newByUrl($session) || WebGUI::Asset->getRoot($session);
my @crumb;
my $ancestors = $base->getLineage(["self","ancestors"],{returnObjects=>1});
foreach my $ancestor (@{$ancestors}) {
@ -125,8 +125,8 @@ sub www_richEditImageTree {
#-------------------------------------------------------------------
sub www_richEditViewThumbnail {
my $session = shift;
my $image = WebGUI::Asset->newByUrl;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $image = WebGUI::Asset->newByUrl($session);
$session->style->useEmptyStyle("1");
if ($image->get("className") =~ /WebGUI::Asset::File::Image/) {
my $output = '<div align="center">';

98
lib/WebGUI/Operation/Group.pm
View file

@ -25,7 +25,7 @@ use WebGUI::Utility;
#-------------------------------------------------------------------
sub _hasSecondaryPrivilege {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return 0 unless ($session->user->isInGroup(11));
my $group = WebGUI::Group->new($session,$_[0]);
return $group->userIsAdmin($session->user->userId);
@ -34,7 +34,7 @@ sub _hasSecondaryPrivilege {
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -65,7 +65,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub doGroupSearch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $op = shift;
my $returnPaginator = shift;
my $groupFilter = shift;
@ -94,7 +94,7 @@ sub doGroupSearch {
#-------------------------------------------------------------------
sub getGroupSearchForm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $op = shift;
my $params = shift;
$session->scratch->set("groupSearchKeyword",$session->form->process("keyword"));
@ -139,7 +139,7 @@ sub getGroupSearchForm {
#-------------------------------------------------------------------
sub walkGroups {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $parentId = shift;
my $indent = shift;
my $output;
@ -157,8 +157,8 @@ sub walkGroups {
#-------------------------------------------------------------------
sub www_addGroupsToGroupSave {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $group = WebGUI::Group->new($session,$_[0]);
my @groups = $session->form->group('groups');
$group->addGroups(\@groups);
@ -167,8 +167,8 @@ sub www_addGroupsToGroupSave {
#-------------------------------------------------------------------
sub www_addUsersToGroupSave {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my @users = $session->form->selectList('users');
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
$group->addUsers(\@users);
@ -177,7 +177,7 @@ sub www_addUsersToGroupSave {
#-------------------------------------------------------------------
sub www_autoAddToGroup {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return WebGUI::AdminConsole->new($session,"groups")->render($session->privilege->insufficient()) unless ($session->user->userId ne 1);
my $group = WebGUI::Group->new($session->form->process("groupId"));
if ($group->autoAdd) {
@ -188,7 +188,7 @@ sub www_autoAddToGroup {
#-------------------------------------------------------------------
sub www_autoDeleteFromGroup {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return WebGUI::AdminConsole->new($session,"groups")->render($session->privilege->insufficient()) unless ($session->user->userId ne 1);
my $group = WebGUI::Group->new($session->form->process("groupId"));
if ($group->autoDelete) {
@ -199,8 +199,8 @@ sub www_autoDeleteFromGroup {
#-------------------------------------------------------------------
sub www_deleteGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
return $session->privilege->vitalComponent() if (isIn($session->form->process("gid"), qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)));
my $i18n = WebGUI::International->new($session);
my ($output);
@ -209,13 +209,13 @@ sub www_deleteGroup {
'">'.$i18n->get(44).'</a>';
$output .= '&nbsp;&nbsp;&nbsp;&nbsp;<a href="'.$session->url->page('op=listGroups').'">'
.$i18n->get(45).'</a></div>';
return _submenu($output, '42',"group delete");
return _submenu($session,$output, '42',"group delete");
}
#-------------------------------------------------------------------
sub www_deleteGroupConfirm {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
return $session->privilege->vitalComponent() if (isIn($session->form->process("gid"), qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)));
my $g = WebGUI::Group->new($session->form->process("gid"));
$g->delete;
@ -224,8 +224,8 @@ sub www_deleteGroupConfirm {
#-------------------------------------------------------------------
sub www_deleteGroupGrouping {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup('3') || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup('3') || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
$group->deleteGroups([$session->form->process("delete")]);
return www_manageGroupsInGroup();
@ -243,15 +243,15 @@ perform this operation, and the
=cut
sub www_deleteGrouping {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
if (($session->user->userId eq $session->form->process("uid") || $session->form->process("uid") eq '3') && $session->form->process("gid") eq '3') {
return $session->privilege->vitalComponent();
}
my @users = $session->form->selectList('uid');
my @groups = $session->form->group("gid");
foreach my $user (@users) {
my $u = WebGUI::User->new($user);
my $u = WebGUI::User->new($session,$user);
$u->deleteFromGroups(\@groups);
}
return WebGUI::Operation::Group::www_manageUsersInGroup();
@ -260,11 +260,11 @@ sub www_deleteGrouping {
#-------------------------------------------------------------------
sub www_editGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my ($output, $f, $g);
if ($session->form->process("gid") eq "new") {
$g = WebGUI::Group->new("");
$g = WebGUI::Group->new($session,"");
} else {
$g = WebGUI::Group->new($session->form->process("gid"));
}
@ -403,13 +403,13 @@ sub www_editGroup {
);
$f->submit;
$output .= $f->print;
return _submenu($output,'87',"group add/edit");
return _submenu($session,$output,'87',"group add/edit");
}
#-------------------------------------------------------------------
sub www_editGroupSave {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $g = WebGUI::Group->new($session->form->process("gid"));
$g->description($session->form->process("description"));
$g->name($session->form->process("groupName"));
@ -434,8 +434,8 @@ sub www_editGroupSave {
#-------------------------------------------------------------------
sub www_editGrouping {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $i18n = WebGUI::International->new($session);
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
@ -476,13 +476,13 @@ sub www_editGrouping {
-value=>$group->userIsAdmin($session->form->process("uid"))
);
$f->submit;
return _submenu($f->print,'370','grouping edit');
return _submenu($session,$f->print,'370','grouping edit');
}
#-------------------------------------------------------------------
sub www_editGroupingSave {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
$group->userGroupExpireDate($session->form->process("uid"),$session->datetime->setToEpoch($session->form->process("expireDate")));
$group->userIsAdmin($session->form->process("uid"),$session->form->process("groupAdmin"));
@ -491,8 +491,8 @@ sub www_editGroupingSave {
#-------------------------------------------------------------------
sub www_emailGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my ($output,$f);
my $i18n = WebGUI::International->new($session);
$f = WebGUI::HTMLForm->new($session);
@ -523,13 +523,13 @@ sub www_emailGroup {
);
$f->submit($i18n->get(810));
$output = $f->print;
return _submenu($output,'809');
return _submenu($session,$output,'809');
}
#-------------------------------------------------------------------
sub www_emailGroupSend {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my ($sth, $email);
$sth = $session->db->read("select b.fieldData from groupings a left join userProfileData b
on a.userId=b.userId and b.fieldName='email' where a.groupId=".$session->db->quote($session->form->process("gid")));
@ -540,17 +540,17 @@ sub www_emailGroupSend {
}
$sth->finish;
my $i18n = WebGUI::International->new($session);
return _submenu($i18n->get(812));
return _submenu($session,$i18n->get(812));
}
#-------------------------------------------------------------------
sub www_listGroups {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session);
if ($session->user->isInGroup(3)) {
my $output = getGroupSearchForm("listGroups");
my ($groupCount) = $session->db->quickArray("select count(*) from groups where isEditable=1");
return _submenu($output) unless ($session->form->process("doit") || $groupCount<250 || $session->form->process("pn") > 1);
return _submenu($session,$output) unless ($session->form->process("doit") || $groupCount<250 || $session->form->process("pn") > 1);
$output .= '<table border="1" cellpadding="5" cellspacing="0" align="center">';
$output .= '<tr><td class="tableHeader">'.$i18n->get(84).'</td><td class="tableHeader">'
.$i18n->get(85).'</td><td class="tableHeader">'
@ -568,7 +568,7 @@ sub www_listGroups {
}
$output .= '</table>';
$output .= $p->getBarTraditional;
return _submenu($output,'',"groups manage");
return _submenu($session,$output,'',"groups manage");
} elsif ($session->user->isInGroup(11)) {
my ($output, $p, $sth, @data, @row, $i, $userCount);
my @editableGroups = $session->db->buildArray("select groupId from groupings where userId=".$session->db->quote($session->user->userId)." and groupAdmin=1");
@ -595,7 +595,7 @@ sub www_listGroups {
$output .= $p->getPage($session->form->process("pn"));
$output .= '</table>';
$output .= $p->getBarTraditional($session->form->process("pn"));
return _submenu($output,'89');
return _submenu($session,$output,'89');
}
return $session->privilege->adminOnly();
}
@ -603,8 +603,8 @@ sub www_listGroups {
#-------------------------------------------------------------------
sub www_manageGroupsInGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
@ -631,13 +631,13 @@ sub www_manageGroupsInGroup {
my $output = $f->print;
$output .= '<p />';
$output .= $session->walkGroups($session->form->process("gid"));
return _submenu($output,'813');
return _submenu($session,$output,'813');
}
#-------------------------------------------------------------------
sub www_manageUsersInGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $i18n = WebGUI::International->new($session);
my $output = WebGUI::Form::formHeader($session,)
.WebGUI::Form::hidden({
@ -673,7 +673,7 @@ sub www_manageUsersInGroup {
$output .= '<p><h1>'.$i18n->get(976).'</h1>';
$output .= WebGUI::Operation::User::getUserSearchForm("manageUsersInGroup",{gid=>$session->form->process("gid")});
my ($userCount) = $session->db->quickArray("select count(*) from users");
return _submenu($output) unless ($session->form->process("doit") || $userCount < 250 || $session->form->process("pn") > 1);
return _submenu($session,$output) unless ($session->form->process("doit") || $userCount < 250 || $session->form->process("pn") > 1);
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "gid",
@ -703,7 +703,7 @@ sub www_manageUsersInGroup {
);
$f->submit;
$output .= $f->print;
return _submenu($output,'88');
return _submenu($session,$output,'88');
}

22
lib/WebGUI/Operation/Help.pm
View file

@ -20,7 +20,7 @@ use WebGUI::Utility;
#-------------------------------------------------------------------
sub _load {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $namespace = shift;
$namespace =~ s/[^\w\d\s]//g;
my $cmd = "WebGUI::Help::".$namespace;
@ -37,7 +37,7 @@ sub _load {
#-------------------------------------------------------------------
sub _get {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $id = shift;
my $namespace = shift;
my $help = _load($namespace);
@ -51,19 +51,19 @@ sub _get {
#-------------------------------------------------------------------
sub _link {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->url->page('op=viewHelp;hid='.$session->url->escape($_[0]).';namespace='.$_[1]);
}
#-------------------------------------------------------------------
sub _linkTOC {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->url->page('op=viewHelpChapter;namespace='.$_[0]);
}
#-------------------------------------------------------------------
sub _getHelpFilesList {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $dir = join '/', $session->config->getWebguiRoot,"lib","WebGUI","Help";
opendir (DIR,$dir) or $session->errorHandler->fatal("Can't open Help directory!");
my @files;
@ -79,7 +79,7 @@ sub _getHelpFilesList {
#-------------------------------------------------------------------
sub _getHelpName {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $file = shift;
my $helpName;
if ($file =~ /^Asset_/) {
@ -108,7 +108,7 @@ sub _related {
#-------------------------------------------------------------------
sub www_viewHelp {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient() unless ($session->user->isInGroup(7));
my $ac = WebGUI::AdminConsole->new($session,"help");
my $namespace = $session->form->process("namespace") || "WebGUI";
@ -126,7 +126,7 @@ sub www_viewHelp {
{ 'title' => $i18n->get($row->{title},$row->{namespace}),
'description' => $i18n->get($row->{description},$row->{namespace}), }
}
my $body = WebGUI::Asset::Template->new("PBtmplHelp000000000001")->process(\%vars);
my $body = WebGUI::Asset::Template->new($session,"PBtmplHelp000000000001")->process(\%vars);
$ac->addSubmenuItem($session->url->page('op=viewHelpIndex'),$i18n->get(95, 'WebGUI'));
$ac->addSubmenuItem($session->url->page('op=viewHelpTOC'),$i18n->get('help contents', 'WebGUI'));
WebGUI::Macro::process($session,\$body);
@ -138,7 +138,7 @@ sub www_viewHelp {
#-------------------------------------------------------------------
sub www_viewHelpIndex {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient() unless ($session->user->isInGroup(7));
my $i18n = WebGUI::International->new($session);
my @helpIndex;
@ -173,7 +173,7 @@ sub www_viewHelpIndex {
#-------------------------------------------------------------------
sub www_viewHelpTOC {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient() unless ($session->user->isInGroup(7));
my @helpIndex;
my $i;
@ -204,7 +204,7 @@ sub www_viewHelpTOC {
#-------------------------------------------------------------------
sub www_viewHelpChapter {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient() unless ($session->user->isInGroup(7));
my $namespace = $session->form->process("namespace");
my $help = _load($namespace);

12
lib/WebGUI/Operation/LDAPLink.pm
View file

@ -20,7 +20,7 @@ use WebGUI::SQL;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session,"AuthLDAP");
@ -46,7 +46,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_copyLDAPLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my (%db);
tie %db, 'Tie::CPHash';
@ -60,7 +60,7 @@ sub www_copyLDAPLink {
#-------------------------------------------------------------------
sub www_deleteLDAPLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
$session->db->write("delete from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
$session->form->process("op") = "listLDAPLinks";
@ -69,7 +69,7 @@ sub www_deleteLDAPLink {
#-------------------------------------------------------------------
sub www_editLDAPLink {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my ($output, %db, $f);
tie %db, 'Tie::CPHash';
@ -182,7 +182,7 @@ sub www_editLDAPLink {
#-------------------------------------------------------------------
sub www_editLDAPLinkSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
my $properties = {};
$properties->{ldapLinkId} = $session->form->process("llid");
@ -208,7 +208,7 @@ sub www_editLDAPLinkSave {
#-------------------------------------------------------------------
sub www_listLDAPLinks {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless($session->user->isInGroup(3));
my ($output, $p, $sth, $data, @row, $i);
my $i18n = WebGUI::International->new($session,"AuthLDAP");

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

@ -34,7 +34,7 @@ they used.
=cut
sub www_viewLoginHistory {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $p, @row, $i, $sth, %data);
my $i18n = WebGUI::International->new($session);

6
lib/WebGUI/Operation/MessageLog.pm
View file

@ -39,7 +39,7 @@ returns a hashref with internationalized values for message status.
=cut
sub _status {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session);
return {"notice"=>$i18n->get(551),"pending"=>$i18n->get(552),"completed"=>$i18n->get(350)};
}
@ -53,7 +53,7 @@ Templated display all messages for the current user.
=cut
sub www_viewMessageLog {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (@msg, $vars);
return $session->privilege->insufficient() unless ($session->user->isInGroup(2,$session->user->userId));
my $i18n = WebGUI::International->new($session);
@ -99,7 +99,7 @@ Templated display of a single message for the user.
=cut
sub www_viewMessageLogMessage {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($data, $vars);
return $session->privilege->insufficient() unless ($session->user->isInGroup(2,$session->user->userId));
my $i18n = WebGUI::International->new($session);

36
lib/WebGUI/Operation/ProductManager.pm
View file

@ -12,7 +12,7 @@ use WebGUI::HTML;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session, "ProductManager");
my $workarea = shift;
@ -36,7 +36,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_deleteProductParameterOption {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $optionId = $session->form->process("optionId");
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -48,7 +48,7 @@ sub www_deleteProductParameterOption {
#-------------------------------------------------------------------
sub www_deleteProductParameter {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $parameterId = $session->form->process("parameterId");
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -60,7 +60,7 @@ sub www_deleteProductParameter {
#-------------------------------------------------------------------
sub www_deleteProduct {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $productId = $session->form->process("productId");
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -72,7 +72,7 @@ sub www_deleteProduct {
#-------------------------------------------------------------------
sub www_editProduct {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($productId, $product, $f, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -148,7 +148,7 @@ sub www_editProduct {
#-------------------------------------------------------------------
sub www_editProductSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($self, @error, $productId, $product, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -180,7 +180,7 @@ sub www_editProductSave {
#-------------------------------------------------------------------
sub www_editProductParameter {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($parameterId, $product, $productId, $parameter, $f, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -227,7 +227,7 @@ sub www_editProductParameter {
#-------------------------------------------------------------------
sub www_editProductParameterSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (@error, $parameterId, $product, $i18n, $skuTemplate, $oldName, $newName);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -266,7 +266,7 @@ sub www_editProductParameterSave {
#-------------------------------------------------------------------
sub www_editProductParameterOption {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($self, $optionId, $option, $f, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -330,7 +330,7 @@ sub www_editProductParameterOption {
#-------------------------------------------------------------------
sub www_editProductParameterOptionSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($self, @error, $optionId, $product, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -357,7 +357,7 @@ sub www_editProductParameterOptionSave {
#-------------------------------------------------------------------
sub www_editProductVariant {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($variantId, $variant, $f, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -411,7 +411,7 @@ sub www_editProductVariant {
#-------------------------------------------------------------------
sub www_editProductVariantSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $variantId = $session->form->process("variantId");
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -423,7 +423,7 @@ my $variantId = $session->form->process("variantId");
#-------------------------------------------------------------------
sub www_editSkuTemplate {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($product, $productId, $output, $f, $name, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -463,7 +463,7 @@ sub www_editSkuTemplate {
#-------------------------------------------------------------------
sub www_editSkuTemplateSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($productId) = $session->form->process("productId");
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -477,7 +477,7 @@ sub www_editSkuTemplateSave {
#-------------------------------------------------------------------
sub www_listProducts {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($self, $sth, $output, $row, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -505,7 +505,7 @@ sub www_listProducts {
#-------------------------------------------------------------------
sub www_listProductVariants {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($productId, $product, @variants, %parameters, %options, $output, %composition, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -568,7 +568,7 @@ sub www_listProductVariants {
#-------------------------------------------------------------------
sub www_listProductVariantsSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
@ -587,7 +587,7 @@ sub www_listProductVariantsSave {
#-------------------------------------------------------------------
sub www_manageProduct {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($productId, $product, $output, $parameter, $option, $optionId, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));

14
lib/WebGUI/Operation/Profile.pm
View file

@ -27,7 +27,7 @@ use WebGUI::Operation::Shared;
#-------------------------------------------------------------------
# Builds Extra form requirements for anonymous registration.
sub getRequiredProfileFields {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my @array;
foreach my $field (@{WebGUI::ProfileField->getRequiredFields}) {
push(@array, {
@ -51,7 +51,7 @@ sub getRequiredProfileFields {
=cut
sub isDuplicateEmail {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $email = shift;
my ($otherEmail) = $session->db->quickArray("select count(*) from userProfileData where fieldName='email' and fieldData = ".$session->db->quote($email)." and userId <> ".$session->db->quote($session->user->userId));
return ($otherEmail > 0);
@ -59,7 +59,7 @@ sub isDuplicateEmail {
#-------------------------------------------------------------------
sub saveProfileFields {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $u = shift;
my $profile = shift;
@ -70,7 +70,7 @@ sub saveProfileFields {
#-------------------------------------------------------------------
sub validateProfileData {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my %data = ();
my $error = "";
my $warning = "";
@ -93,7 +93,7 @@ sub validateProfileData {
#-------------------------------------------------------------------
sub www_editProfile {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return WebGUI::Operation::Auth::www_auth("init") if($session->user->userId eq '1');
my $i18n = WebGUI::International->new($session);
my $vars = {};
@ -130,7 +130,7 @@ sub www_editProfile {
#-------------------------------------------------------------------
sub www_editProfileSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($profile, $fieldName, $error, $u, $warning);
return WebGUI::Operation::Auth::www_auth("init") if ($session->user->userId eq '1');
@ -149,7 +149,7 @@ sub www_editProfileSave {
#-------------------------------------------------------------------
sub www_viewProfile {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $u = WebGUI::User->new($session->form->process("uid"));
my $i18n = WebGUI::International->new($session);
my $vars = {};

26
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -21,7 +21,7 @@ use WebGUI::ProfileCategory;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $help = shift;
@ -48,7 +48,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_deleteProfileCategoryConfirm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $category = WebGUI::ProfileCategory->new($session,$session->form->process("cid"));
return WebGUI::AdminConsole->new($session,"userProfiling")->render($session->privilege->vitalComponent()) if ($category->isProtected);
@ -58,7 +58,7 @@ sub www_deleteProfileCategoryConfirm {
#-------------------------------------------------------------------
sub www_deleteProfileFieldConfirm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $field = WebGUI::ProfileField->new($session,$session->form->process("fid"));
return WebGUI::AdminConsole->new($session,"userProfiling")->render($session->privilege->vitalComponent()) if ($field->isProtected);
@ -68,7 +68,7 @@ sub www_deleteProfileFieldConfirm {
#-------------------------------------------------------------------
sub www_editProfileCategory {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $data = {};
my $i18n = WebGUI::International->new($session,"WebGUIProfile");
@ -117,7 +117,7 @@ sub www_editProfileCategory {
#-------------------------------------------------------------------
sub www_editProfileCategorySave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my %data = (
label=>$session->form->text("label"),
@ -135,7 +135,7 @@ sub www_editProfileCategorySave {
#-------------------------------------------------------------------
sub www_editProfileField {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session,"WebGUIProfile");
my $f = WebGUI::HTMLForm->new($session);
@ -190,7 +190,7 @@ sub www_editProfileField {
-hoverHelp=>$i18n->get('474 description'),
-value=>$data->{required}
);
my $fieldType = WebGUI::Form::FieldType->new(
my $fieldType = WebGUI::Form::FieldType->new($session,
-name=>"fieldType",
-label=>$i18n->get(486),
-hoverHelp=>$i18n->get('486 description'),
@ -237,7 +237,7 @@ sub www_editProfileField {
#-------------------------------------------------------------------
sub www_editProfileFieldSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my %data = (
label=>$session->form->text("label"),
@ -262,7 +262,7 @@ sub www_editProfileFieldSave {
#-------------------------------------------------------------------
sub www_editProfileSettings {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session,"WebGUIProfile");
my $output = "";
@ -287,7 +287,7 @@ sub www_editProfileSettings {
#-------------------------------------------------------------------
sub www_moveProfileCategoryDown {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::ProfileCategory->new($session,$session->form->process("cid"))->moveDown;
return www_editProfileSettings();
@ -295,7 +295,7 @@ sub www_moveProfileCategoryDown {
#-------------------------------------------------------------------
sub www_moveProfileCategoryUp {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::ProfileCategory->new($session,$session->form->process("cid"))->moveUp;
return www_editProfileSettings();
@ -303,7 +303,7 @@ sub www_moveProfileCategoryUp {
#-------------------------------------------------------------------
sub www_moveProfileFieldDown {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::ProfileField->new($session,$session->form->process("fid"))->moveDown;
return www_editProfileSettings();
@ -311,7 +311,7 @@ sub www_moveProfileFieldDown {
#-------------------------------------------------------------------
sub www_moveProfileFieldUp {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::ProfileField->new($session,$session->form->process("fid"))->moveUp;
return www_editProfileSettings();

10
lib/WebGUI/Operation/Replacements.pm
View file

@ -18,7 +18,7 @@ use WebGUI::SQL;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -36,7 +36,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_deleteReplacement {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
$session->db->write("delete from replacements where replacementId=".$session->db->quote($session->form->process("replacementId")));
return www_listReplacements();
@ -44,7 +44,7 @@ sub www_deleteReplacement {
#-------------------------------------------------------------------
sub www_editReplacement {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $data = $session->db->getRow("replacements","replacementId",$session->form->process("replacementId"));
my $i18n = WebGUI::International->new($session);
@ -79,7 +79,7 @@ sub www_editReplacement {
#-------------------------------------------------------------------
sub www_editReplacementSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
$session->db->setRow("replacements","replacementId",{
replacementId=>$session->form->process("replacementId"),
@ -91,7 +91,7 @@ sub www_editReplacementSave {
#-------------------------------------------------------------------
sub www_listReplacements {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session);
my $output = '<table>';

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

@ -32,7 +32,7 @@ variable, scratchName.
=cut
sub www_deleteScratch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->scratch->delete("www_".$session->form->process("scratchName"));
return "";
}
@ -49,7 +49,7 @@ the value the variable should take.
=cut
sub www_setScratch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->scratch->set("www_".$session->form->process("scratchName"),$session->form->process("scratchValue"));
return "";
}

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

@ -19,7 +19,7 @@ use WebGUI::SQL;
#-------------------------------------------------------------------
sub www_editSettings {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session, "WebGUI");
my %tabs;
@ -288,7 +288,7 @@ sub www_editSettings {
#-------------------------------------------------------------------
sub www_saveSettings {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($key, $value);
foreach $key ($session->request->params) {

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

@ -18,7 +18,7 @@ use Safe;
#-------------------------------------------------------------------
sub accountOptions {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session);
my @array;
if ($session->user->isInGroup(12)) {
@ -69,7 +69,7 @@ use Safe;
#-------------------------------------------------------------------
# This function is here to replace the dangerous eval calls in the User Profile System.
sub secureEval {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $code = shift;
# Handle WebGUI function calls

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

@ -18,7 +18,7 @@ use WebGUI::SQL;
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -33,7 +33,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_viewStatistics {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $data);
my $i18n = WebGUI::International->new($session);

6
lib/WebGUI/Operation/Style.pm
View file

@ -33,7 +33,7 @@ the printableStyleId is used instead of the normal styleId for the page.
=cut
sub www_makePrintable {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
if ($session->form->process("styleId") ne "") {
$session->asset->{_properties}{printableStyleTemplateId} = $session->form->process("styleId");
}
@ -52,7 +52,7 @@ overriding the style without setting a printable style and on a per user basis.
=cut
sub www_setPersonalStyle {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->scratch->set("personalStyleId",$session->form->process("styleId"));
return "";
}
@ -66,7 +66,7 @@ Clears the personalStyleId from the scratch area of the session variable.
=cut
sub www_unsetPersonalStyle {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->scratch->delete("personalStyleId");
return "";
}

28
lib/WebGUI/Operation/Subscription.pm
View file

@ -14,7 +14,7 @@ use WebGUI::International;
#-------------------------------------------------------------------
sub _generateCode {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($codeLength, @codeElements, $code, $i);
$codeLength = shift || 64;
@codeElements = ('A'..'Z', 'a'..'z', 0..9, '-');
@ -28,7 +28,7 @@ sub _generateCode {
#-------------------------------------------------------------------
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session, "Subscription");
my $workarea = shift;
@ -49,7 +49,7 @@ sub _submenu {
#-------------------------------------------------------------------
sub www_createSubscriptionCodeBatch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (%subscriptions, $f, $error, $errorMessage);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -107,7 +107,7 @@ sub www_createSubscriptionCodeBatch {
#-------------------------------------------------------------------
sub www_createSubscriptionCodeBatchSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($numberOfCodes, $description, $expires, $batchId, @codeElements, $currentCode, $code, $i, @subscriptions,
@error, $creationEpoch);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -148,7 +148,7 @@ sub www_createSubscriptionCodeBatchSave {
#-------------------------------------------------------------------
sub www_deleteSubscription {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::Subscription->new($session,$session->form->process("sid"))->delete;
@ -157,7 +157,7 @@ sub www_deleteSubscription {
#-------------------------------------------------------------------
sub www_deleteSubscriptionCodeBatch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
$session->db->write("delete from subscriptionCodeBatch where batchId=".$session->db->quote($session->form->process("bid")));
@ -168,7 +168,7 @@ sub www_deleteSubscriptionCodeBatch {
#-------------------------------------------------------------------
sub www_deleteSubscriptionCodes {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
if ($session->form->process("selection") eq 'dc') {
@ -184,7 +184,7 @@ sub www_deleteSubscriptionCodes {
#-------------------------------------------------------------------
sub www_editSubscription {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($properties, $subscriptionId, $durationInterval, $durationUnits, $f);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -261,7 +261,7 @@ sub www_editSubscription {
#-------------------------------------------------------------------
sub www_editSubscriptionSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (@relevantFields);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -272,7 +272,7 @@ sub www_editSubscriptionSave {
#-------------------------------------------------------------------
sub www_listSubscriptionCodeBatches {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($p, $batches, $output);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -302,7 +302,7 @@ sub www_listSubscriptionCodeBatches {
#-------------------------------------------------------------------
sub www_listSubscriptionCodes {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($p, $codes, $output, $where, $ops, $delete);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -384,7 +384,7 @@ sub www_listSubscriptionCodes {
#-------------------------------------------------------------------
sub www_listSubscriptions {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($p, $subscriptions, $output);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
@ -413,7 +413,7 @@ sub www_listSubscriptions {
#-------------------------------------------------------------------
sub www_purchaseSubscription {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
WebGUI::Commerce::ShoppingCart->new($session)->add($session->form->process("sid"), 'Subscription');
return $session->http->setRedirect($session->url->page('op=checkout'));
@ -421,7 +421,7 @@ sub www_purchaseSubscription {
#-------------------------------------------------------------------
sub www_redeemSubscriptionCode {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (%codeProperties, @subscriptions, %var, $f);
my $i18n = WebGUI::International->new($session, "Subscription");

8
lib/WebGUI/Operation/TransactionLog.pm
View file

@ -29,7 +29,7 @@ This error message will be added to the template variables.
=cut
sub www_viewPurchaseHistory {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (@history, @historyLoop, %var, %properties);
$var{errorMessage} = shift;
@ -63,7 +63,7 @@ $session->form->process("tid").
=cut
sub www_cancelRecurringTransaction {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($transaction, $error, $message);
my $i18n = WebGUI::International->new($session, "TransactionLog");
@ -89,7 +89,7 @@ Afterward, it calls www_listTransactions
=cut
sub www_deleteTransaction {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $transactionId;
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
@ -103,7 +103,7 @@ sub www_deleteTransaction {
#-------------------------------------------------------------------
sub www_deleteTransactionItem {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->insufficient unless ($session->user->isInGroup(3));
WebGUI::Commerce::Transaction->new($session, $session->form->process("tid"))->deleteItem($session->form->process("iid"), $session->form->process("itype"));

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

@ -56,7 +56,7 @@ Help topic. If set, then a Help icon will be displayed as a link to that topic.
=cut
sub _submenu {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -105,7 +105,7 @@ Array reference, used to screen out user names via a SQL "not in ()" clause.
#-------------------------------------------------------------------
sub doUserSearch {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $op = shift;
my $returnPaginator = shift;
my $userFilter = shift;
@ -157,7 +157,7 @@ Hashref. A set of key,value pairs that will be hidden in the user search form.
#-------------------------------------------------------------------
sub getUserSearchForm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $op = shift;
my $params = shift;
$session->scratch->set("userSearchKeyword",$session->form->process("keyword"));
@ -220,7 +220,7 @@ Allows an administrator to assume another user.
=cut
sub www_becomeUser {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
$session->user({userId=>$session->form->process("uid")});
return "";
@ -238,7 +238,7 @@ of the user to delete is expected in a URL param names 'uid'.
=cut
sub www_deleteUser {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($output);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session);
@ -265,7 +265,7 @@ after this.
=cut
sub www_deleteUserConfirm {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($u);
if ($session->form->process("uid") eq '1' || $session->form->process("uid") eq '3') {
@ -279,7 +279,7 @@ sub www_deleteUserConfirm {
#-------------------------------------------------------------------
sub www_editUser {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(11));
my $error = shift;
my $i18n = WebGUI::International->new($session, "WebGUI");
@ -387,7 +387,7 @@ sub www_editUser {
#-------------------------------------------------------------------
sub www_editUserSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $isAdmin = $session->user->isInGroup(3);
my $isSecondary;
unless ($isAdmin) {
@ -427,7 +427,7 @@ sub www_editUserSave {
#-------------------------------------------------------------------
sub www_editUserKarma {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory);
my $i18n = WebGUI::International->new($session);
@ -457,7 +457,7 @@ sub www_editUserKarma {
#-------------------------------------------------------------------
sub www_editUserKarmaSave {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($u);
$u = WebGUI::User->new($session->form->process("uid"));
@ -467,7 +467,7 @@ sub www_editUserKarmaSave {
#-------------------------------------------------------------------
sub www_listUsers {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
unless ($session->user->isInGroup(3)) {
if ($session->user->isInGroup(11)) {
$session->form->process("uid") = "new";

8
lib/WebGUI/Operation/WebGUI.pm
View file

@ -24,7 +24,7 @@ The beginning of WebGUI.
=cut
sub www_genesis {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->style->useEmptyStyle("1");
my $output = '<html><head><title>About WebGUI</title>
<style>.big {font-size: 23px;}</style>
@ -51,7 +51,7 @@ password and email address, as well as some other WebGUI settings.
#-------------------------------------------------------------------
sub www_setup {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->http->setMimeType("text/html");
return "" unless ($session->setting->get("specialState") eq "init");
my $i18n = WebGUI::International->new($session, "WebGUI");
@ -68,7 +68,7 @@ sub www_setup {
<body><div style="font-family: georgia, helvetica, arial, sans-serif; color: white; z-index: 10; width: 550px; height: 400px; top: 20%; left: 20%; position: absolute;"><h1>WebGUI Initial Configuration</h1><fieldset>';
if ($session->form->process("step") eq "2") {
$output .= '<legend align="left">Company Information</legend>';
my $u = WebGUI::User->new("3");
my $u = WebGUI::User->new($session,"3");
$u->username($session->form->process("username","text","Admin"));
$u->profileField("email",$session->form->email("email"));
$u->identifier(Digest::MD5::md5_base64($session->form->process("identifier","password","123qwe")));
@ -160,7 +160,7 @@ to work, even superseding the session variable.
#-------------------------------------------------------------------
sub www_theWg {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
$session->style->useEmptyStyle("1");
my $output = '<html><head><title>WebGUI</title></head><body BGCOLOR="black"><center>
<nobr><font SIZE="1" FACE="Courier New, Courier"><font COLOR="white"></font><font COLOR="#1A1108">p</font><font COLOR="#24130C">a</font><font COLOR="#5C2605">c</font><font COLOR="#642206">kageW</font><font COLOR="#5C1F04">e</font><font COLOR="#642206">bGUI;ou</font><font COLOR="#5C2605">r</font><font COLOR="#642206">$VERSION="5.5.0</font><font COLOR="#5C2605">"</font><font COLOR="#642206">;usestr</font><font COLOR="#5C1F04">i</font><font COLOR="#642206">ctqw(v</font><font COLOR="#68290C">a</font><font COLOR="#5C1F04">r</font><font COLOR="#5C2605">s</font><font COLOR="#642206">s</font><font COLOR="#541604">u</font><font COLOR="#481404">b</font><font COLOR="#380B04">s</font><font COLOR="#0B0204">);useTie::CPHash;useW