version 1.358.2.9, 2016/10/31 21:00:49
|
version 1.358.2.13, 2018/09/03 20:37:00
|
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 671 ENDJS
|
Line 671 ENDJS
|
my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />}; |
my $minuteselector = qq{<input type="text" name="$dname\_minute" $special $state value="$min" size="3" />}; |
my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />}; |
my $secondselector= qq{<input type="text" name="$dname\_second" $special $state value="$sec" size="3" />}; |
my $cal_link; |
my $cal_link; |
if (!$nolink) { |
unless (($nolink) || ($state eq 'disabled')) { |
$cal_link = qq{<a href="javascript:$dname\_opencalendar()">}; |
$cal_link = qq{<a href="javascript:$dname\_opencalendar()">}; |
} |
} |
# |
# |
Line 696 ENDJS
|
Line 696 ENDJS
|
$hourselector,$minuteselector,$secondselector). |
$hourselector,$minuteselector,$secondselector). |
$tzone; |
$tzone; |
} |
} |
if (!$nolink) { |
unless (($nolink) || ($state eq 'disabled')) { |
$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>'); |
$result .= &mt('[_1]Select Date[_2]',$cal_link,'</a>'); |
} |
} |
$result .= "</span>\n<!-- end $dname date setting form -->\n"; |
$result .= "</span>\n<!-- end $dname date setting form -->\n"; |
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'; |