loncom/interface/lonsyllabus.pm - diff

Return to lonsyllabus.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsyllabus.pm between versions 1.138.2.8.2.2 and 1.154

version 1.138.2.8.2.2, 2023/01/21 21:34:08	version 1.154, 2023/09/27 14:52:26
Line 152 sub handler {	Line 152 sub handler {
&Apache::structuretags::reset_problem_globals();	&Apache::structuretags::reset_problem_globals();
my $oldfile = $env{'request.filename'};	my $oldfile = $env{'request.filename'};
$env{'request.filename'} = $item;	$env{'request.filename'} = $item;
	my $oldinhibit;
	if ($env{'form.only_body'}) {
	$oldinhibit = $env{'form.inhibitmenu'};
	$env{'form.inhibitmenu'} = 'yes';
	}
my $result = &Apache::lonxml::xmlparse($r,$target,$filecontents,	my $result = &Apache::lonxml::xmlparse($r,$target,$filecontents,
'',%mystyle);	'',%mystyle);
	if ($env{'form.only_body'}) {
	if ($oldinhibit ne '') {
	$env{'form.inhibitmenu'} = $oldinhibit;
	} else {
	delete($env{'form.inhibitmenu'});
	}
	}
&Apache::structuretags::reset_problem_globals();	&Apache::structuretags::reset_problem_globals();
&Apache::lonhomework::finished_parsing();	&Apache::lonhomework::finished_parsing();
$env{'request.filename'} = $oldfile;	$env{'request.filename'} = $oldfile;
Line 317 sub handler {	Line 329 sub handler {
if ($allowed) {	if ($allowed) {
#---------------------------------- Print External URL Syllabus Info if editing	#---------------------------------- Print External URL Syllabus Info if editing
if ($target ne 'tex') {	if ($target ne 'tex') {
my $hostname = &Apache::lonnet::hostname($homeserver);	my $link = &Apache::lonnet::url_prefix($r,$cdom,$homeserver,'web').
my $protocol = $Apache::lonnet::protocol{$homeserver};	$r->uri;
$protocol = 'http' if ($protocol ne 'https');
my $alias = &Apache::lonnet::use_proxy_alias($r,$homeserver);
$hostname = $alias if ($alias ne '');
my $link = $protocol.'://'.$hostname.$r->uri;
$r->print('<div class="LC_left_float">'	$r->print('<div class="LC_left_float">'
.'<span class="LC_help_open_topic LC_info">'	.'<span class="LC_help_open_topic LC_info">'
.'<span class="LC_info">'	.'<span class="LC_info">'
Line 770 sub get_breadcrumbs{	Line 778 sub get_breadcrumbs{
my ($cdom,$cnum,$crstype,$args) = @_;	my ($cdom,$cnum,$crstype,$args) = @_;
return unless (ref($args) eq 'HASH');	return unless (ref($args) eq 'HASH');
if ($env{'form.folderpath'} =~ /^supplemental/) {	if ($env{'form.folderpath'} =~ /^supplemental/) {
&Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);	&Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
my $title = $env{'form.title'};	my $title = $env{'form.title'};
if ($title eq '') {	if ($title eq '') {
$title = &mt('Syllabus');	$title = &mt('Syllabus');
Line 779 sub get_breadcrumbs{	Line 787 sub get_breadcrumbs{
&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);	&Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
if (ref($brcrum) eq 'ARRAY') {	if (ref($brcrum) eq 'ARRAY') {
$args->{'bread_crumbs'} = $brcrum;	$args->{'bread_crumbs'} = $brcrum;
	$args->{'bread_crumbs_nomenu'} = 1;
}	}
} else {	} else {
if ((&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus"))	if ((&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus"))

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.138.2.8.2.2
changed lines
	Added in v.1.154