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

internationalize Asset export report

Browse source
This commit is contained in:
Colin Kuskie 2005-10-16 04:21:31 +00:00
parent 47b95413f4
commit 20a36e272e
2 changed files with 28 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/AssetExportHtml.pm
View file

@ -230,9 +230,9 @@ sub www_exportGenerate {
my $assets = $self->getLineage(["self","descendants"],{returnObjects=>1,endingLineageLength=>$self->getLineageLength+$session{form}{depth}});
foreach my $asset (@{$assets}) {
my $url = $asset->get("url");
print WebGUI::International::get('exporting page', 'Asset').' '.$url."......";
printf WebGUI::International::get('exporting page', 'Asset'), $url;
unless ($asset->canView($userId)) {
print WebGUI::International::get('bad user privileges', 'Asset')."<br />\n";
print WebGUI::International::get('bad user privileges', 'Asset')."\n";
next;
}
my $path;
@ -253,15 +253,14 @@ sub www_exportGenerate {
$path = $session{config}{exportPath} . "/" . $path;
eval { mkpath($path) };
if($@) {
print "Couldn't create $path because $@ <br />\n";
print "This most likely means that you have a page with the same name as folder that you're trying to create.<br />\n";
printf WebGUI::International::get('could not create path', 'Asset'), $path, $@;
return;
}
}
$path .= "/".$filename;
eval { open(FILE, "> $path") or die "$!" };
if ($@) {
print "Couldn't open $path because $@ <br />\n";
printf WebGUI::International::get('could not open path', 'Asset'), $path, $@;
return;
} else {
print FILE $self->exportAsHtml({userId=>$userId,extrasUrl=>$extrasURL,uploadsUrl=>$uploadsURL});
@ -269,7 +268,7 @@ sub www_exportGenerate {
}
print WebGUI::International::get('done','Asset');
}
print "<p>Exported ".scalar(@{$assets})." pages in ".(time()-$startTime)." seconds.</p>";
printf WebGUI::International::get('export information','Asset'), scalar(@{$assets}), (time()-$startTime);
print '<a target="_parent" href="'.$self->getUrl.'">'.WebGUI::International::get(493,"Asset").'</a>';
return;
}

25
lib/WebGUI/i18n/English/Asset.pm
View file

@ -792,15 +792,36 @@ config file must be enabled for this function to be available.</p>
},
'exporting page' => {
message => q|Exporting page|,
message => q|Exporting page %-s ......|,
lastUpdated => 1129420080,
},
'bad user privileges' => {
message => q|User has no privileges to view this page.|,
message => q|User has no privileges to view this page.<br />|,
lastUpdated => 1129420080,
},
'could not create path' => {
message => q|
Couldn't create %-s because %-s <br />
This most likely means that you have a page with the same name as folder that you're trying to create.<br />
|,
lastUpdated => 1129436410,
},
'could not open path' => {
message => q|
Couldn't open %-s because %-s <br />
|,
lastUpdated => 1129436544,
},
'export information' => {
message => q|
<p>Exported %d pages in %d seconds.</p>|,
lastUpdated => 1129436684,
},
'done' => {
message => q|DONE<br />|,
lastUpdated => 1129420080,