[interchange-cvs] interchange - ton modified dist/lib/UI/pages/admin/wizard/do_launch.html
interchange-core@interchange.redhat.com
interchange-core@interchange.redhat.com
Tue Sep 18 10:03:00 2001
User: ton
Date: 2001-09-18 14:02:13 GMT
Modified: dist/lib/UI/pages/admin/wizard Tag: STABLE_4_8-branch
Modified: do_launch.html
Log:
Prepared for translation.
Revision Changes Path
No revision
No revision
2.1.2.1 +7 -7 interchange/dist/lib/UI/pages/admin/wizard/do_launch.html
rev 2.1.2.1, prev_rev 2.1
Index: do_launch.html
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/pages/admin/wizard/do_launch.html,v
retrieving revision 2.1
retrieving revision 2.1.2.1
diff -u -r2.1 -r2.1.2.1
--- do_launch.html 2001/07/27 20:56:01 2.1
+++ do_launch.html 2001/09/18 14:02:13 2.1.2.1
@@ -46,28 +46,28 @@
next unless $val = $doit{$_};
if( ref($val) =~ /CODE/) {
my $status = $val->();
- push @messages, "$_ subroutine returned $status.";
+ push @messages, errmsg("%s subroutine returned %s.", $_, $status);
}
elsif($val =~ /\w+/) {
$vdb->set_field($val, 'Variable', $Values->{$_});
- push @messages, "$_ set $val to '$Values->{$_}' in variable.";
+ push @messages, errmsg("%s set %s to '%s' in variable.", $_, $val, $Values->{$_});
}
else {
- @errors, "Don't know what to do with $_=$val";
+ @errors, errmsg("Don't know what to do with %s=%s", $_, $val);
}
}
- $out = "Messages: <BR>";
+ $out = errmsg("Messages") . ": <BR>";
$out .= join "<BR>", @messages;
- $out .= "<P>Errors: <BR>";
+ $out .= "<P>" . errmsg("Errors") . ": <BR>";
$out .= join "<BR>", @errors;
[/perl]
-->
<P>
-Congratulations! Your site has been activated!
+[L]Congratulations! Your site has been activated![/L]
</P>
<blockquote>
-<LARGE><A HREF="[area index]">Go to catalog home page</P></LARGE>
+<LARGE><A HREF="[area index]">[L]Go to catalog home page[/L]</P></LARGE>
</blockquote>
@_UI_STD_FOOTER_@