version 1.358.2.9, 2016/10/31 21:00:49
|
version 1.358.2.12, 2018/04/29 16:28:25
|
Line 92 sub raw_href_to_link {
|
Line 92 sub raw_href_to_link {
|
|
|
sub entity_encode { |
sub entity_encode { |
my ($text)=@_; |
my ($text)=@_; |
return &HTML::Entities::encode($text, '<>&"'); |
return &HTML::Entities::encode($text, '\'<>&"'); |
} |
} |
|
|
sub direct_parm_link { |
sub direct_parm_link { |
Line 407 sub textbox {
|
Line 407 sub textbox {
|
############################################## |
############################################## |
############################################## |
############################################## |
sub checkbox { |
sub checkbox { |
my ($name,$checked,$value) = @_; |
my ($name,$checked,$value,$special) = @_; |
my $Str = '<input type="checkbox" name="'.$name.'" '; |
my $Str = '<input type="checkbox" name="'.$name.'" '; |
if (defined($value)) { |
if (defined($value)) { |
$Str .= 'value="'.$value.'"'; |
$Str .= 'value="'.$value.'"'; |
Line 415 sub checkbox {
|
Line 415 sub checkbox {
|
if ($checked) { |
if ($checked) { |
$Str .= ' checked="checked"'; |
$Str .= ' checked="checked"'; |
} |
} |
$Str .= ' />'; |
$Str .= $special.' />'; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 1162 sub Close_PrgWin {
|
Line 1162 sub Close_PrgWin {
|
sub crumbs { |
sub crumbs { |
my ($uri,$target,$prefix,$form,$skiplast,$onclick)=@_; |
my ($uri,$target,$prefix,$form,$skiplast,$onclick)=@_; |
# You cannot crumbnify uploaded or adm resources |
# You cannot crumbnify uploaded or adm resources |
if ($uri=~/^\/*(uploaded|adm)\//) { return &mt('(Internal Course/Group Content)'); } |
if ($uri=~/^\/*(uploaded|adm)\//) { return &mt('(Internal Course/Community Content)'); } |
if ($target) { |
if ($target) { |
$target = ' target="'. |
$target = ' target="'. |
&Apache::loncommon::escape_single($target).'"'; |
&Apache::loncommon::escape_single($target).'"'; |
Line 1182 sub crumbs {
|
Line 1182 sub crumbs {
|
} else { |
} else { |
$path.='/'; |
$path.='/'; |
} |
} |
|
if ($path eq '/res/') { |
|
unless (&Apache::lonnet::allowed('bre',$path)) { |
|
$output.="$dir/"; |
|
next; |
|
} |
|
} |
my $href_path = &HTML::Entities::encode($path,'<>&"'); |
my $href_path = &HTML::Entities::encode($path,'<>&"'); |
&Apache::loncommon::inhibit_menu_check(\$href_path); |
&Apache::loncommon::inhibit_menu_check(\$href_path); |
if ($form) { |
if ($form) { |
Line 1824 returns: nothing
|
Line 1830 returns: nothing
|
$env{'course.'.$env{'request.course.id'}.'.description'}; |
$env{'course.'.$env{'request.course.id'}.'.description'}; |
$no_mt_descr = 1; |
$no_mt_descr = 1; |
if ($env{'request.noversionuri'} =~ |
if ($env{'request.noversionuri'} =~ |
m{^/public/($match_domain)/($match_courseid)/syllabus$}) { |
m{^/?public/($match_domain)/($match_courseid)/syllabus$}) { |
unless (($env{'course.'.$env{'request.course.id'}.'.domain'} eq $1) && |
unless (($env{'course.'.$env{'request.course.id'}.'.domain'} eq $1) && |
($env{'course.'.$env{'request.course.id'}.'.num'} eq $2)) { |
($env{'course.'.$env{'request.course.id'}.'.num'} eq $2)) { |
$description = 'Menu'; |
$description = 'Menu'; |