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

newByDynamicClass changed to newById

Browse source
This commit is contained in:
Colin Kuskie 2009-12-27 19:08:15 -08:00
parent 0fd922daed
commit 49bd7f5032
41 changed files with 94 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Workflow/Activity/CalendarUpdateFeeds.pm
View file

@ -394,7 +394,7 @@ sub execute {
# If this event already exists, update
if ($assetId) {
$session->log->info( "Updating existing asset $assetId" );
my $event = WebGUI::Asset->newByDynamicClass($session,$assetId);
my $event = WebGUI::Asset->newById($session,$assetId);
if ($event) {
$event->update($properties);
@ -403,7 +403,7 @@ sub execute {
}
else {
$session->log->info( "Creating new Event!" );
my $calendar = WebGUI::Asset->newByDynamicClass($session,$feed->{assetId});
my $calendar = WebGUI::Asset->newById($session,$feed->{assetId});
my $event = $calendar->addChild($properties, undef, undef, { skipAutoCommitWorkflows => 1});
$feed->{added}++;
if ($recur) {
@ -425,7 +425,7 @@ sub execute {
}
for my $feedId (keys %$feedList) {
my $feed = $feedList->{$feedId};
my $calendar = WebGUI::Asset->newByDynamicClass($session, $feed->{assetId});
my $calendar = WebGUI::Asset->newById($session, $feed->{assetId});
my $feedData = $calendar->getFeed($feedId);
$feedData->{lastResult} = "Success! $feed->{added} added, $feed->{updated} updated, $feed->{errored} parsing errors";
$feedData->{lastUpdated} = $dt;

2
lib/WebGUI/Workflow/Activity/ExpireIncompleteSurveyResponses.pm
View file

@ -142,7 +142,7 @@ END_SQL
deleted => $self->get("deleteExpired"),
companyName => $self->session->setting->get("companyName"),
};
my $template = WebGUI::Asset->newByDynamicClass($self->session,$self->get('emailTemplateId'));
my $template = WebGUI::Asset->newById($self->session,$self->get('emailTemplateId'));
my $message = $template->processTemplate($var, $self->get("emailTemplateId"));
WebGUI::Macro::process($self->session,\$message);
my $mail = WebGUI::Mail::Send->create($self->session,{

2
lib/WebGUI/Workflow/Activity/ExpirePurchasedThingyRecords.pm
View file

@ -132,7 +132,7 @@ sub execute {
my $asset;
if ( !$asset{$record->get('assetId')} ) {
$asset = $asset{$record->get('assetId')}
= WebGUI::Asset->newByDynamicClass( $self->session, $record->get('assetId') );
= WebGUI::Asset->newById( $self->session, $record->get('assetId') );
}
else {
$asset = $asset{$record->get('assetId')};

2
lib/WebGUI/Workflow/Activity/GetCsMail.pm
View file

@ -204,7 +204,7 @@ sub execute {
my $post = undef;
if ($message->{inReplyTo} && $message->{inReplyTo} =~ m/cs\-([\w_-]{22})\@/) {
my $id = $1;
my $repliedPost = WebGUI::Asset->newByDynamicClass($self->session, $id);
my $repliedPost = WebGUI::Asset->newById($self->session, $id);
if ($repliedPost
&& $repliedPost->isa('WebGUI::Asset::Post')
&& $repliedPost->getThread->getParent->getId eq $cs->getId) {

2
lib/WebGUI/Workflow/Activity/RequestApprovalForVersionTag/ByLineage.pm
View file

@ -83,7 +83,7 @@ sub execute {
my $self = shift;
my $tag = shift;
my $instance = shift;
my $ancestor = WebGUI::Asset->newByDynamicClass( $self->session, $self->get( 'assetId' ) );
my $ancestor = WebGUI::Asset->newById( $self->session, $self->get( 'assetId' ) );
my $lineage = $ancestor->get( 'lineage' );
# Descendant has at least the ancestors lineage plus 6 more character
my $isDescendant = qr{^$lineage.{6}};