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

simplify and optimise

Browse source
This commit is contained in:
John W. Krahn 2003-02-04 23:49:19 +00:00
parent 37e67acc17
commit 71c4bf0d64
1 changed files with 10 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -130,7 +130,6 @@ sub www_deleteLanguageConfirm {
#-------------------------------------------------------------------
sub www_editInternationalMessage {
my ( $output, $message, $f, $language );
return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup( 3 );
my ( $language ) = WebGUI::SQL->quickArray( 'select language from language where languageId=' . $session{ form }{ lid } );
my $output = '<h1>' . WebGUI::International::get( 597 ) . '</h1>';
@ -251,34 +250,20 @@ sub www_listInternationalMessages {
$sth = WebGUI::SQL->read( 'select * from international where languageId=1' );
while ( %data = $sth->hash ) {
my $key = $data{ namespace } . '-' . $data{ internationalId };
if ( $session{ form }{ search } ne '' ) {
if ( $list{ 'z-' . $key } ) {
if ( $list{ 'z-' . $key }{ lastUpdated } < $data{ lastUpdated } ) {
$list{ 'o-' . $key } = delete $list{ 'z-' . $key };
$list{ 'o-' . $key }{ status } = 'updated';
}
else {
$list{ 'q-' . $key } = delete $list{ 'z-' . $key };
$list{ 'q-' . $key }{ status } = 'ok';
}
}
}
else {
unless ( $list{ 'z-' . $key } ) {
@{ $list{ 'a-' . $key } }{ qw[namespace id status] }
= ( @data{ qw[namespace internationalId] }, 'missing' );
if ( $list{ 'z-' . $key } ) {
if ( $list{ 'z-' . $key }{ lastUpdated } < $data{ lastUpdated } ) {
$list{ 'o-' . $key } = delete $list{ 'z-' . $key };
$list{ 'o-' . $key }{ status } = 'updated';
}
else {
if ( $list{ 'z-' . $key }{ lastUpdated } < $data{ lastUpdated } ) {
$list{ 'o-' . $key } = delete $list{ 'z-' . $key };
$list{ 'o-' . $key }{ status } = 'updated';
}
else {
$list{ 'q-' . $key } = delete $list{ 'z-' . $key };
$list{ 'q-' . $key }{ status } = 'ok';
}
$list{ 'q-' . $key } = delete $list{ 'z-' . $key };
$list{ 'q-' . $key }{ status } = 'ok';
}
}
elsif ( $session{ form }{ search } eq '' ) {
@{ $list{ 'a-' . $key } }{ qw[namespace id status] }
= ( @data{ qw[namespace internationalId] }, 'missing' );
}
}
$sth->finish;