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

added some extra export information

Browse source
This commit is contained in:
JT Smith 2003-01-23 04:52:13 +00:00
parent 2a06184526
commit e97c4b2d14
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -36,13 +36,15 @@ sub _export {
my ($sth, %data, $export); my ($sth, %data, $export);
tie %data, 'Tie::CPHash'; tie %data, 'Tie::CPHash';
%data = WebGUI::SQL->quickHash("select * from language where languageId=".$_[0]); %data = WebGUI::SQL->quickHash("select * from language where languageId=".$_[0]);
$export = "#".$data{language}." translation export for WebGUI ".$WebGUI::VERSION.".\n\n"; $export = "#Exported from ".$session{setting}{companyName}." (http://".$session{env}{SERVER_NAME}.") by "
.$session{user}{username}." (".$session{user}{email}.")\n";
$export .= "#".$data{language}." translation export for WebGUI ".$WebGUI::VERSION.".\n\n";
$export .= "#language\n\n"; $export .= "#language\n\n";
$export .= "delete from language where languageId=".$_[0].";\n"; $export .= "delete from language where languageId=".$_[0].";\n";
$export .= "insert into language (languageId,language,characterSet,toolbar) values (" $export .= "insert into language (languageId,language,characterSet,toolbar) values ("
.$data{languageId}.", ".quote($data{language}).", ".quote($data{characterSet}).", " .$data{languageId}.", ".quote($data{language}).", ".quote($data{characterSet}).", "
.quote($data{toolbar}).");\n"; .quote($data{toolbar}).");\n";
$export .= "\n#international\n\n"; $export .= "\n#international messages\n\n";
$sth = WebGUI::SQL->read("select * from international where languageId=".$_[0]." order by lastUpdated desc"); $sth = WebGUI::SQL->read("select * from international where languageId=".$_[0]." order by lastUpdated desc");
while (%data = $sth->hash) { while (%data = $sth->hash) {
$export .= "delete from international where languageId=".$_[0]." and namespace=" $export .= "delete from international where languageId=".$_[0]." and namespace="