fixed some bugs.

This commit is contained in:
Matthew Wilson 2005-11-08 21:38:51 +00:00
parent 43941e58b0
commit dcafd7780a

View file

@ -24,16 +24,16 @@ use WebGUI::Session;
$|=1; $|=1;
my ($configFile, $pageId, $userId, $styleId, $toFile, $stripHTML, $help, $relativeUrls); my ($configFile, $assetId, $userId, $styleId, $toFile, $stripHtml, $help, $relativeUrls);
$userId = 1; $userId = 1;
GetOptions( GetOptions(
'configFile:s'=>\$configFile, 'configFile:s'=>\$configFile,
'pageId:s'=>\$pageId, 'assetId:s'=>\$assetId,
'userId:s'=>\$userId, 'userId:s'=>\$userId,
'toFile:s'=>\$toFile, 'toFile:s'=>\$toFile,
'stripHTML'=>\$stripHTML, 'stripHTML'=>\$stripHtml,
'help'=>\$help, 'help'=>\$help,
'relativeUrls'=>\$relativeUrls, 'relativeUrls'=>\$relativeUrls,
); );
@ -73,15 +73,12 @@ STOP
# Open WebGUI session # Open WebGUI session
WebGUI::Session::open($webguiRoot,$configFile); WebGUI::Session::open($webguiRoot,$configFile);
WebGUI::Session::refreshUserInfo($userId,$session{dbh});
my $asset = WebGUI::Asset->newByDynamicClass($assetId);
my $asset = WebGUI::Asset->new($pageId); die "Asset not defined" unless $asset;
$asset->{_properties}{styleTemplateId} = $styleId if ($styleId); $asset->{_properties}{styleTemplateId} = $styleId if ($styleId);
my $content = $asset->www_view; my $content = $asset->exportAsHtml({stripHtml => $stripHtml});
$content = WebGUI::HTML::filter($content,"all") if ($stripHTML);
my $content = $e->generate;
if ($toFile) { if ($toFile) {
open (TOFILE, ">$toFile") or die "Can't open file $toFile for writing. $!"; open (TOFILE, ">$toFile") or die "Can't open file $toFile for writing. $!";
print TOFILE $content; print TOFILE $content;
@ -95,3 +92,4 @@ WebGUI::Session::end($session{var}{sessionId});
WebGUI::Session::close(); WebGUI::Session::close();
exit; exit;