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 13:03:40 +00:00
parent a3bf55626a
commit 37e67acc17
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -64,7 +64,7 @@ sub _submenu {
if ( $session{ form }{ lid } == 1 ) {
$menu{ WebGUI::URL::page( 'op=addInternationalMessage&lid=1' ) } = 'Add a new message.';
}
if ( $session{ form }{ lid } ne "new" && $session{ form }{ lid } ne '' ) {
if ( $session{ form }{ lid } ne 'new' && $session{ form }{ lid } ne '' ) {
$menu{ WebGUI::URL::page( 'op=listInternationalMessages&lid=' . $session{ form }{ lid } ) } =
WebGUI::International::get( 594 );
$menu{ WebGUI::URL::page( 'op=exportTranslation&lid=' . $session{ form }{ lid } ) } = WebGUI::International::get( 718 );
@ -284,7 +284,7 @@ sub www_listInternationalMessages {
my @row;
for my $key ( sort keys %list ) {
my $status;
my $status = $ok;
if ( $list{ $key }{ status } eq 'updated' ) {
$status = $outOfDate;
}
@ -294,9 +294,6 @@ sub www_listInternationalMessages {
elsif ( $list{ $key }{ status } eq 'deleted' ) {
$status = $deprecated;
}
else {
$status = $ok;
}
push @row, '<tr valign="top"><td nowrap="1">' . $status . '</td><td>'
. editIcon( 'op=editInternationalMessage&lid=' . $session{ form }{ lid }
. '&iid=' . $list{ $key }{ id } . '&namespace=' . $list{ $key }{ namespace } . '&pn=' . $session{ form }{ pn }