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

removal of dumpSession.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-26 05:39:16 +00:00
parent 7d1dfed519
commit 4a3121960f
199 changed files with 379 additions and 404 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI.pm
View file

@ -217,28 +217,4 @@ sub upgrading {
close(FILE);
}
sub dumpSession {
my $session = shift;
if ($session) {
if (ref $session eq 'WebGUI::Session') {
return;
} else {
use Data::Dumper; print '<html><body><pre>$session is '.Dumper($session).' (not a WebGUI::Session!) at ';
}
} else {
print '<html><body><pre>$session is empty at ';
}
my $i = 1;
my $output;
while (my @data = caller($i)) {
print "\t".join(",",@data)."\n";
$i++;
}
print '</pre></body></html>';
exit;
}
1;

2
lib/WebGUI/AdminConsole.pm
View file

@ -368,7 +368,7 @@ If supplied, updates the _function of the AdminFunction.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $id = shift;
my $self;
$self->{_session} = $session;

2
lib/WebGUI/Affiliate.pm
View file

@ -49,7 +49,7 @@ A reference to the current session.
=cut
sub grabReferral {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
if ($session->user->userId ne "1" && $session->user->referringAffiliate) {
return "";
} elsif ($session->user->userId ne "1" && (($session->user->referringAffiliate eq "0" && $session->scratch->process("referringAffiliate")) || $session->form->process("affiliateId"))) {

20
lib/WebGUI/Asset.pm
View file

@ -78,7 +78,7 @@ Only developers extending this method should use this parameter. By default WebG
sub canAdd {
my $className = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $userId = shift || $session->user->userId;
my $subclassGroupId = shift;
my $groupId = $session->config->get("assetAddPrivilege")->{$className} || $subclassGroupId || '12';
@ -152,7 +152,7 @@ An array reference containing additional information to include with the default
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, "Asset");
push(@{$definition}, {
@ -472,7 +472,7 @@ A reference to the current session.
sub getDefault {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return $class->newByDynamicClass($session, $session->setting->get("defaultPage"));
}
@ -740,7 +740,7 @@ A reference to the current session.
sub getImportNode {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return WebGUI::Asset->newByDynamicClass($session, "PBasset000000000000002");
}
@ -792,7 +792,7 @@ A reference to the current session.
sub getNotFound {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
if ($session->url->getRequestedUrl eq "*give-credit-where-credit-is-due*") {
my $content = "";
open(FILE,"<".$session->config->getWebguiRoot."/docs/credits.txt");
@ -829,7 +829,7 @@ A reference to the current session.
sub getRoot {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return WebGUI::Asset->new($session, "PBasset000000000000001");
}
@ -1267,7 +1267,7 @@ An epoch date that represents a specific version of an asset. By default the mos
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $assetId = shift;
return undef unless ($assetId);
my $className = shift;
@ -1336,7 +1336,7 @@ A specific revision date for the asset to retrieve. If not specified, the most r
sub newByDynamicClass {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $assetId = shift;
my $revisionDate = shift;
return undef unless defined $assetId;
@ -1370,7 +1370,7 @@ A properties hash reference. The className of the properties hash must be valid.
sub newByPropertyHashRef {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $properties = shift;
return undef unless defined $properties;
return undef unless exists $properties->{className};
@ -1406,7 +1406,7 @@ A specific revision to instanciate. By default we instanciate the newest publish
sub newByUrl {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $url = shift || $session->url->getRequestedUrl;
my $revisionDate = shift;
$url = lc($url);

2
lib/WebGUI/Asset/Event.pm
View file

@ -25,7 +25,7 @@ our @ISA = qw(WebGUI::Asset);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Event");
push(@{$definition}, {

2
lib/WebGUI/Asset/File.pm
View file

@ -75,7 +75,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_File");
push(@{$definition}, {

2
lib/WebGUI/Asset/File/Image.pm
View file

@ -60,7 +60,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Image");
push(@{$definition}, {

2
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -103,7 +103,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_ZipArchive");
push(@{$definition}, {

4
lib/WebGUI/Asset/Post.pm
View file

@ -53,7 +53,7 @@ sub addRevision {
#-------------------------------------------------------------------
sub canAdd {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$class->SUPER::canAdd($session, undef, '7');
}
@ -103,7 +103,7 @@ sub chopTitle {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Post");
push(@{$definition}, {

2
lib/WebGUI/Asset/Post/Thread.pm
View file

@ -67,7 +67,7 @@ sub decrementReplies {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Thread");
push(@{$definition}, {

2
lib/WebGUI/Asset/Redirect.pm
View file

@ -56,7 +56,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Redirect");
push(@{$definition}, {

2
lib/WebGUI/Asset/RichEdit.pm
View file

@ -58,7 +58,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Asset_RichEdit');
push(@{$definition}, {

2
lib/WebGUI/Asset/Shortcut.pm
View file

@ -155,7 +155,7 @@ sub canManage {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Shortcut");
push(@{$definition}, {

2
lib/WebGUI/Asset/Snippet.pm
View file

@ -57,7 +57,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Snippet");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject.pm
View file

@ -60,7 +60,7 @@ An array of hashes to prepend to the list
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Wobject');
my %properties;

2
lib/WebGUI/Asset/Wobject/Article.pm
View file

@ -67,7 +67,7 @@ text will come out formatted as paragraphs.
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Asset_Article');
my %properties;

2
lib/WebGUI/Asset/Wobject/Collaboration.pm
View file

@ -253,7 +253,7 @@ sub decrementThreads {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Collaboration");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/Dashboard.pm
View file

@ -38,7 +38,7 @@ sub canPersonalize {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my %properties;
tie %properties, 'Tie::IxHash';

2
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -131,7 +131,7 @@ sub defaultViewForm {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_DataForm");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/EventsCalendar.pm
View file

@ -35,7 +35,7 @@ our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_EventsCalendar");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/Folder.pm
View file

@ -55,7 +55,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Folder");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/HttpProxy.pm
View file

@ -28,7 +28,7 @@ our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_HttpProxy");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/InOutBoard.pm
View file

@ -59,7 +59,7 @@ sub _fetchDepartments {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_InOutBoard");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -55,7 +55,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Layout");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/Matrix.pm
View file

@ -17,7 +17,7 @@ our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Matrix");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/MessageBoard.pm
View file

@ -22,7 +22,7 @@ our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_MessageBoard");
my %properties;

2
lib/WebGUI/Asset/Wobject/MultiSearch.pm
View file

@ -39,7 +39,7 @@ defines wobject properties for MultiSearch instances
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session, "Asset_MultiSearch");
my $properties = {

2
lib/WebGUI/Asset/Wobject/Navigation.pm
View file

@ -25,7 +25,7 @@ our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Navigation");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/Poll.pm
View file

@ -33,7 +33,7 @@ sub _hasVoted {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Poll");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/Product.pm
View file

@ -92,7 +92,7 @@ sub addRevision {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_Product");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/SQLReport.pm
View file

@ -26,7 +26,7 @@ our @ISA = qw(WebGUI::Asset::Wobject);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,"Asset_SQLReport");
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/StockData.pm
View file

@ -269,7 +269,7 @@ defines wobject properties for Stock Data instances
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $properties = {
templateId =>{

2
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -55,7 +55,7 @@ sub completeResponse {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session,'Asset_Survey');
push(@{$definition}, {

2
lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
View file

@ -63,7 +63,7 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my %properties;
tie %properties, 'Tie::IxHash';

2
lib/WebGUI/Asset/Wobject/WSClient.pm
View file

@ -31,7 +31,7 @@ sub _create_cache_key {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $httpHeaderFieldType;
if ($session->config->get('soapHttpHeaderOverride')) {

2
lib/WebGUI/Asset/Wobject/WeatherData.pm
View file

@ -41,7 +41,7 @@ defines wobject properties for WeatherData instances
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session, "Asset_WeatherData");
my $properties = {

2
lib/WebGUI/AssetLineage.pm
View file

@ -516,7 +516,7 @@ Lineage string.
sub newByLineage {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $lineage = shift;
my $assetLineage = $session->stow->get("assetLineage");
my $id = $assetLineage->{$lineage}{id};

2
lib/WebGUI/Auth/LDAP.pm
View file

@ -411,7 +411,7 @@ sub login {
#-------------------------------------------------------------------
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $authMethod = $_[0];
my $userId = $_[1];
my @callable = ('createAccount','deactivateAccount','displayAccount','displayLogin','login','logout','createAccountSave','deactivateAccountConfirm');

2
lib/WebGUI/Auth/WebGUI.pm
View file

@ -504,7 +504,7 @@ sub login {
#-------------------------------------------------------------------
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $authMethod = $_[0];
my $userId = $_[1];
my @callable = ('validateEmail','createAccount','deactivateAccount','displayAccount','displayLogin','login','logout','recoverPassword','resetExpiredPassword','recoverPasswordFinish','createAccountSave','deactivateAccountConfirm','resetExpiredPasswordSave','updateAccount');

2
lib/WebGUI/Cache.pm
View file

@ -116,7 +116,7 @@ A subdivider to store this cache under. When building your own cache plug-in def
sub new {
my $cache;
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
if ($session->config->get("memcached_servers")) {
require WebGUI::Cache::Memcached;
return WebGUI::Cache::Memcached->new($session,@_);

2
lib/WebGUI/Cache/FileCache.pm
View file

@ -210,7 +210,7 @@ Defaults to the config filename for the current site. The only reason to overrid
sub new {
my $cache;
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $key = $class->parseKey(shift);
my $namespace = shift || $session->config->getFilename;
bless {_session=>$session, _key=>$key, _namespace=>$namespace}, $class;

2
lib/WebGUI/Cache/Memcached.pm
View file

@ -115,7 +115,7 @@ Defaults to the config filename for the current site. The only reason to overrid
sub new {
my $cache;
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $key = $class->parseKey(shift);
my $namespace = shift || $session->config->getFilename;

2
lib/WebGUI/Commerce.pm
View file

@ -4,7 +4,7 @@ use strict;
#-------------------------------------------------------------------
sub setCommerceSetting {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my ($entry);
$entry = shift;
$session->db->write("delete from commerceSettings where ".

4
lib/WebGUI/Commerce/Payment.pm
View file

@ -200,7 +200,7 @@ The namespace of the plugin.
sub init {
my ($class, $session, $namespace, $properties);
$class = shift;
$session = shift; use WebGUI; WebGUI::dumpSession($session);
$session = shift;
$namespace = shift;
$properties = $session->db->buildHashRef("select fieldName, fieldValue from commerceSettings where namespace=".$session->db->quote($namespace)." and type='Payment'");
@ -280,7 +280,7 @@ The namespace of the plugin.
sub load {
my ($class, $namespace, $load, $cmd, $plugin);
$class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$namespace = shift;
$cmd = "WebGUI::Commerce::Payment::$namespace";

2
lib/WebGUI/Commerce/Payment/ITransact.pm
View file

@ -501,7 +501,7 @@ sub confirmTransaction {
sub init {
my ($class, $self);
$class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$self = $class->SUPER::init($session,'ITransact');
return $self;

2
lib/WebGUI/Commerce/Shipping.pm
View file

@ -206,7 +206,7 @@ The namespace of the plugin.
sub load {
my ($class, $namespace, $load, $cmd, $plugin);
$class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$namespace = shift;
$session->errorHandler->fatal('No namespace passed to load.') unless ($namespace);

2
lib/WebGUI/Commerce/Transaction.pm
View file

@ -414,7 +414,7 @@ sub new {
my ($class, $transactionId, $gatewayId, $userId, $properties, $sth, $row, @items);
$class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$transactionId = shift;
$gatewayId = shift;
$userId = shift || $session->user->userId;

6
lib/WebGUI/DatabaseLink.pm
View file

@ -77,7 +77,7 @@ A hash reference containing the list of params to set. See the set() method for
sub create {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $params = shift;
$params->{databaseLinkId} = "new";
my $id = $session->db->setRow("databaseLink","databaseLinkId",$params);
@ -193,7 +193,7 @@ A reference to the current session.
sub getList {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $list = $session->db->buildHashRef("select databaseLinkId, title from databaseLink order by title");
my $i18n = WebGUI::International->new($session);
$list->{'0'} = $i18n->get(1076);
@ -221,7 +221,7 @@ sub new {
my ($class, $databaseLinkId, %databaseLink);
tie %databaseLink, 'Tie::CPHash';
$class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$databaseLinkId = shift;
unless ($databaseLinkId eq "") {
if ($databaseLinkId eq "0") {

4
lib/WebGUI/Form.pm
View file

@ -60,7 +60,7 @@ Dynamically creates functions on the fly for all the different form control type
sub AUTOLOAD {
our $AUTOLOAD;
my $name = ucfirst((split /::/, $AUTOLOAD)[-1]);
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my @params = @_;
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
@ -123,7 +123,7 @@ If you want to add anything special to the form header like javascript actions o
=cut
sub formHeader {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $params = shift;
my $action = $params->{action} || $session->url->page();
my $hidden;

2
lib/WebGUI/Form/Asset.pm
View file

@ -65,7 +65,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, "Asset");
push(@{$definition}, {

2
lib/WebGUI/Form/Button.pm
View file

@ -54,7 +54,7 @@ The default text to appear on the button. Defaults to an internationalized versi
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session,"WebGUI");
push(@{$definition}, {

2
lib/WebGUI/Form/CheckList.pm
View file

@ -58,7 +58,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Checkbox.pm
View file

@ -61,7 +61,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Codearea.pm
View file

@ -55,7 +55,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Color.pm
View file

@ -46,7 +46,7 @@ See the super class for additional details.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Combo.pm
View file

@ -59,7 +59,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/ContentType.pm
View file

@ -62,7 +62,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

6
lib/WebGUI/Form/Control.pm
View file

@ -149,7 +149,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
push(@{$definition}, {
formName=>{
@ -304,7 +304,7 @@ Returns a human readable name for this form control type. You MUST override this
sub getName {
my $self = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = $self->definition($session);
return $definition->[0]->{formName}->{defaultValue};
}
@ -430,7 +430,7 @@ Please note that an id attribute is automatically added to every form element wi
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my %raw;
# deal with a hash reference full of properties
if (ref $_[0] eq "HASH") {

2
lib/WebGUI/Form/DatabaseLink.pm
View file

@ -71,7 +71,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Date.pm
View file

@ -72,7 +72,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/DateTime.pm
View file

@ -67,7 +67,7 @@ If no value is specified, this will be used. Defaults to today and now.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

4
lib/WebGUI/Form/DynamicField.pm
View file

@ -55,7 +55,7 @@ Defaults to "Text". Should be any valid field type.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
@ -97,7 +97,7 @@ array will be used.
sub new {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my %raw = @_;
my $param = \%raw;
my $fieldType = ucfirst($param->{fieldType});

2
lib/WebGUI/Form/Email.pm
View file

@ -54,7 +54,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

4
lib/WebGUI/Form/FieldType.pm
View file

@ -60,7 +60,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {
@ -90,7 +90,7 @@ and DynamicField, the form class dispatcher.
sub getTypes {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
opendir(DIR,$session->config->getWebguiRoot."/lib/WebGUI/Form/");
my @rawTypes = readdir(DIR);
closedir(DIR);

2
lib/WebGUI/Form/File.pm
View file

@ -63,7 +63,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/FilterContent.pm
View file

@ -63,7 +63,7 @@ A tooltip for what to do with this field. Defaults to a general explaination of
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Float.pm
View file

@ -66,7 +66,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Group.pm
View file

@ -71,7 +71,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/HTMLArea.pm
View file

@ -69,7 +69,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Hidden.pm
View file

@ -54,7 +54,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/HiddenList.pm
View file

@ -62,7 +62,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Image.pm
View file

@ -64,7 +64,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Integer.pm
View file

@ -66,7 +66,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Interval.pm
View file

@ -63,7 +63,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/LdapLink.pm
View file

@ -75,7 +75,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/List.pm
View file

@ -145,7 +145,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Password.pm
View file

@ -62,7 +62,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Phone.pm
View file

@ -54,7 +54,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Radio.pm
View file

@ -58,7 +58,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/RadioList.pm
View file

@ -70,7 +70,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/ReadOnly.pm
View file

@ -55,7 +55,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/SelectBox.pm
View file

@ -68,7 +68,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/SelectList.pm
View file

@ -62,7 +62,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Submit.pm
View file

@ -46,7 +46,7 @@ See the super class for additional details.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Template.pm
View file

@ -63,7 +63,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session, 'Asset_Template');
push(@{$definition}, {

2
lib/WebGUI/Form/Text.pm
View file

@ -62,7 +62,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Textarea.pm
View file

@ -66,7 +66,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/TimeField.pm
View file

@ -64,7 +64,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/TimeZone.pm
View file

@ -46,7 +46,7 @@ See the super class for additional details.
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Url.pm
View file

@ -58,7 +58,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/WhatNext.pm
View file

@ -58,7 +58,7 @@ A text label that will be displayed if toHtmlWithWrapper() is called. Defaults t
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/YesNo.pm
View file

@ -59,7 +59,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

2
lib/WebGUI/Form/Zipcode.pm
View file

@ -58,7 +58,7 @@ Flag that tells the User Profile system that this is a valid form element in a U
sub definition {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $definition = shift || [];
my $i18n = WebGUI::International->new($session);
push(@{$definition}, {

4
lib/WebGUI/Group.pm
View file

@ -431,7 +431,7 @@ The name of the group you wish to instantiate.
sub find {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $name = shift;
my ($groupId) = $session->db->quickArray("select groupId from groups where groupName=".$session->db->quote($name));
return WebGUI::Group->new($session,$groupId);
@ -697,7 +697,7 @@ sub new {
tie %group, 'Tie::CPHash';
$class = shift;
my $self = {};
$self->{_session} = shift; use WebGUI; WebGUI::dumpSession($self->{_session});
$self->{_session} = shift;
$self->{_groupId} = shift;
bless $self, $class;
$self->_create() if ($self->{_groupId} eq "new");

4
lib/WebGUI/HTML.pm
View file

@ -242,7 +242,7 @@ The base URL to use. Defaults to current page's url.
my $absolute = "";
sub makeAbsolute {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $html = shift;
my $baseURL = shift;
@ -321,7 +321,7 @@ The content to be processed through the replacements filter.
=cut
sub processReplacements {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my ($content) = @_;
my $replacements = $session->stow->get("replacements");
if (defined $replacements) {

2
lib/WebGUI/HTMLForm.pm
View file

@ -142,7 +142,7 @@ If you want to add anything special to the form's table like a name or styleshee
sub new {
my ($header, $footer);
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my %param = @_;
$header = "\n\n".WebGUI::Form::formHeader($session,{
action=>($param{action} || $param{'-action'} || $session->url->page),

2
lib/WebGUI/Help/Macros.pm
View file

@ -22,7 +22,7 @@ our $HELP = {
fields => [
],
related => sub { ##Hey, you gotta pass in the session var, right?
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
sort { $a->{tag} cmp $b->{tag} }
map {
$tag = $_;

1
lib/WebGUI/International.pm
View file

@ -207,7 +207,6 @@ Specify a default language. Defaults to user preference or "English".
sub new {
my ($class, $session, $namespace, $language) = @_;
use WebGUI; WebGUI::dumpSession($session);
bless( {
_session => $session,
_namespace => $namespace,

4
lib/WebGUI/LDAPLink.pm
View file

@ -152,7 +152,7 @@ A reference to the current session.
sub getList {
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my %list;
tie %list, "Tie::IxHash";
%list = $session->db->buildHash("select ldapLinkId, ldapLinkName from ldapLink order by ldapLinkName");
@ -195,7 +195,7 @@ The ldapLinkId of the ldapLink you're creating an object reference for.
sub new {
my ( $ldapLinkId, $ldapLink);
my $class = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
$ldapLinkId = shift;
return undef unless $ldapLinkId;
$ldapLink = $session->db->quickHash("select * from ldapLink where ldapLinkId=".$session->db->quote($ldapLinkId));

2
lib/WebGUI/Macro.pm
View file

@ -118,7 +118,7 @@ A scalar reference of HTML to be processed.
=cut
sub process {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $content = shift;
while ($$content =~ /$nestedMacro/gs) {
my ($macro, $searchString, $params) = ($1, $2, $3);

Some files were not shown because too many files have changed in this diff Show more