loncom/interface/lonnavdisplay.pm - diff

Return to lonnavdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavdisplay.pm between versions 1.17 and 1.20

version 1.17, 2010/03/29 14:50:46	version 1.20, 2011/12/25 20:41:53
Line 37 use Apache::lonnavmaps();	Line 37 use Apache::lonnavmaps();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::londocs();
use Time::HiRes qw( gettimeofday tv_interval );	use Time::HiRes qw( gettimeofday tv_interval );

sub handler {	sub handler {
Line 100 sub real_handler {	Line 101 sub real_handler {
}	}
$r->print($start_page.	$r->print($start_page.
'<script type="text/javascript">window.focus();</script>');	'<script type="text/javascript">window.focus();</script>');
	&startContentScreen($r,'navmaps');
$r->rflush();	$r->rflush();

# Check that it's defined	# Check that it's defined
Line 220 sub real_handler {	Line 222 sub real_handler {
}	}

my %selected=($env{'form.sort'} => ' selected="selected"');	my %selected=($env{'form.sort'} => ' selected="selected"');
my $sort_html=('<form name="sortForm">	my $sort_html=('<form name="sortForm" action="">
<span class="LC_nobreak">	<span class="LC_nobreak">
<input type="hidden" name="showOnlyHomework" value="'.$env{'form.showOnlyHomework'}.'" />	<input type="hidden" name="showOnlyHomework" value="'.$env{'form.showOnlyHomework'}.'" />
'.&mt('Sort by:').'	'.&mt('Sort by:').'
<select name="sort" onChange="document.sortForm.submit()">	<select name="sort" onchange="document.sortForm.submit()">
<option value="default"'.$selected{'default'}.'>'.&mt('Default').'</option>	<option value="default"'.$selected{'default'}.'>'.&mt('Default').'</option>
<option value="title"'.$selected{'title'}.'>'.&mt('Title').'</option>	<option value="title"'.$selected{'title'}.'>'.&mt('Title').'</option>
<option value="duedate"'.$selected{'duedate'}.'>'.&mt('Duedate').'</option>	<option value="duedate"'.$selected{'duedate'}.'>'.&mt('Duedate').'</option>
Line 259 sub real_handler {	Line 261 sub real_handler {
}	}
#my $td=&tv_interval($t0);	#my $td=&tv_interval($t0);
#$r->print("<br />$td");	#$r->print("<br />$td");
	&endContentScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
$r->rflush();	$r->rflush();

return OK;	return OK;
}	}

	sub startContentScreen {
	my ($r,$mode)=@_;

	$r->print("\n".'<ul class="LC_TabContentBigger" id="mainnav">'."\n");
	$r->print('<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>    '.&mt('Main Content').'    </b></a></li>'."\n");
	$r->print('<li '.(($mode eq 'supplemental')?' class="active"':'').'><a href="/adm/supplemental"><b>'.&mt('Supplemental Content').'</b></a></li>');
	$r->print('<li'.(($mode eq 'coursesearch')?' class="active"':'').'><a href="/adm/searchcourse"><b>     '.&mt('Content Search').'     </b></a></li>'."\n");
	$r->print('<li'.(($mode eq 'courseindex')?' class="active"':'').'><a href="/adm/indexcourse"><b>      '.&mt('Content Index').'      </b></a></li>'."\n");
	$r->print("\n".'</ul>'."\n");
	$r->print('<div class="LC_Box" style="clear:both;margin:0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');
	}

	sub endContentScreen {
	my ($r)=@_;
	$r->print('</div></div></div>');
	}

1;	1;
__END__	__END__

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

Removed from v.1.17
changed lines
	Added in v.1.20