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

oodles of fixes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-15 15:56:17 +00:00
parent 029dca1f2e
commit 65823b1f53
38 changed files with 87 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Macro/Include.pm
View file

@ -36,7 +36,7 @@ The complete path to a file in the local filesystem.
#-------------------------------------------------------------------
sub process {
my $self = shift;
my $session = shift;
my (@param, $temp, $file);
@param = @_;
my $i18n = WebGUI::International->new($session,'Macro_Include');

14
lib/WebGUI/Macro/L_loginBox.pm
View file

@ -17,7 +17,7 @@ use WebGUI::Asset::Template;
=head1 NAME
Package WebGUI::Macro::AOIHits
Package WebGUI::Macro::L_loginBox
=head1 DESCRIPTION
@ -61,7 +61,7 @@ The ID of a template for custom layout of the login box and text.
=cut
sub process {
my $self = shift;
my $session = shift;
my @param = @_;
my $templateId = $param[2] || "PBtmpl0000000000000044";
my %var;
@ -84,27 +84,27 @@ sub process {
$action =~ s/http:/https:/;
}
$var{'form.header'} = WebGUI::Form::formHeader($session,{action=>$action})
.WebGUI::Form::hidden({
.WebGUI::Form::hidden($session,{
name=>"op",
value=>"auth"
})
.WebGUI::Form::hidden({
.WebGUI::Form::hidden($session,{
name=>"method",
value=>"login"
});
$var{'username.label'} = $i18n->get(50, 'WebGUI');
$var{'username.form'} = WebGUI::Form::text({
$var{'username.form'} = WebGUI::Form::text($session,{
name=>"username",
size=>$boxSize,
extras=>'class="loginBoxField"'
});
$var{'password.label'} = $i18n->get(51, 'WebGUI');
$var{'password.form'} = WebGUI::Form::password({
$var{'password.form'} = WebGUI::Form::password($session,{
name=>"identifier",
size=>$boxSize,
extras=>'class="loginBoxField"'
});
$var{'form.login'} = WebGUI::Form::submit({
$var{'form.login'} = WebGUI::Form::submit($session,{
value=>$i18n->get(52, 'WebGUI'),
extras=>'class="loginBoxButton"'
});

2
lib/WebGUI/Macro/PageTitle.pm
View file

@ -30,7 +30,7 @@ no asset cached in the session variable, nothing is returned.
#-------------------------------------------------------------------
sub process {
my $self = shift;
my $session = shift;
if ($session->asset) {
if ($session->form->process("op") || $session->form->process("func")) {
return '<a href="'.$session->asset->getUrl.'">'.$session->asset->get("title").'</a>';