version 1.67, 2004/04/23 17:49:25
|
version 1.69, 2004/05/06 17:54:11
|
Line 163 sub textbox {
|
Line 163 sub textbox {
|
############################################## |
############################################## |
############################################## |
############################################## |
sub checkbox { |
sub checkbox { |
my ($name,$value) = @_; |
my ($name,$checked,$value) = @_; |
my $Str = '<input type="checkbox" name="'.$name.'"'. |
my $Str = '<input type="checkbox" name="'.$name.'" '; |
($value?' checked="1"':'').' />'; |
if (defined($value)) { |
|
$Str .= 'value="'.$value.'"'; |
|
} |
|
if ($checked) { |
|
$Str .= ' checked="1"'; |
|
} |
|
$Str .= ' />'; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 974 returns: nothing
|
Line 980 returns: nothing
|
if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') { |
if ($menulink && exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') { |
my $cid = $ENV{'request.course.id'}; |
my $cid = $ENV{'request.course.id'}; |
unshift(@Crumbs,{ |
unshift(@Crumbs,{ |
href=>'/adm/menu', |
href =>'/adm/menu', |
title=>'Go to main menu', |
title =>'Go to main menu', |
text=>$ENV{'course.'.$cid.'.description'}, |
target =>'_top', |
|
text =>$ENV{'course.'.$cid.'.description'}, |
}); |
}); |
} |
} |
my $links .= |
my $links .= |
Line 984 returns: nothing
|
Line 991 returns: nothing
|
map { |
map { |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
'<a href="'.$_->{'href'}.'" title="'.&mt($_->{'title'}).'">'. |
my $result = '<a href="'.$_->{'href'}.'" '; |
&mt($_->{'text'}).'</a>' |
if (defined($_->{'target'}) && $_->{'target'} ne '') { |
|
$result .= 'target="'.$_->{'target'}.'" '; |
|
} |
|
$result .='title="'.&mt($_->{'title'}).'">'. |
|
&mt($_->{'text'}).'</a>'; |
|
$result; |
} @Crumbs |
} @Crumbs |
); |
); |
$links .= '->' if ($links ne ''); |
$links .= '->' if ($links ne ''); |