version 1.307, 2009/11/30 06:23:32
|
version 1.309.2.24, 2010/12/07 04:33:49
|
Line 131 use Apache::lonhtmlcommon();
|
Line 131 use Apache::lonhtmlcommon();
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonenc(); |
use Apache::lonenc(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::loncoursequeueadmin; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use HTML::Entities(); |
use HTML::Entities(); |
|
|
Line 150 sub prep_menuitem {
|
Line 151 sub prep_menuitem {
|
} else { # textual Link |
} else { # textual Link |
$link = &mt($$menuitem[3]); |
$link = &mt($$menuitem[3]); |
} |
} |
return '<li><a href="'.$$menuitem[0].'">'.$link.'</a></li>'; |
return '<li><a' |
|
# highlighting for new messages |
|
. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') |
|
. qq| href="$$menuitem[0]" target="_top">$link</a></li>|; |
} |
} |
|
|
# primary_menu() evaluates @primary_menu and returns XHTML for the menu |
# primary_menu() evaluates @primary_menu and returns XHTML for the menu |
Line 160 sub prep_menuitem {
|
Line 164 sub prep_menuitem {
|
# entries from mydesk.tab |
# entries from mydesk.tab |
sub primary_menu { |
sub primary_menu { |
my $menu; |
my $menu; |
|
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
|
my $numdc = &Apache::loncommon::check_for_gci_dc(); |
|
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
# each element of @primary contains following array: |
# each element of @primary contains following array: |
# (link url, icon path, alt text, link text, condition) |
# (link url, icon path, alt text, link text, condition) |
|
my ($public,$faculty); |
|
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
|
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
|
$public = 1; |
|
} elsif (ref($allnums{$env{'user.domain'}}) eq 'HASH') { |
|
$faculty = 1; |
|
} |
foreach my $menuitem (@primary_menu) { |
foreach my $menuitem (@primary_menu) { |
# evaluate conditions |
# evaluate conditions |
next if ref($menuitem) ne 'ARRAY'; # |
next if ref($menuitem) ne 'ARRAY'; # |
Line 170 sub primary_menu {
|
Line 184 sub primary_menu {
|
next if $$menuitem[4] eq 'newmsg' # arrived or not |
next if $$menuitem[4] eq 'newmsg' # arrived or not |
&& !&Apache::lonmsg::mynewmail(); # |
&& !&Apache::lonmsg::mynewmail(); # |
next if $$menuitem[4] !~ /public/ ##we've a public user, |
next if $$menuitem[4] !~ /public/ ##we've a public user, |
&& $env{'user.name'} eq 'public' ##who should not see all |
&& $public; ##who should not see all |
&& $env{'user.domain'} eq 'public'; ##links |
##links |
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
next if $$menuitem[4] eq 'onlypublic'# hide links which are |
&& $env{'user.name'} ne 'public' # only visible to public |
&& !$public; # only visible to public |
&& $env{'user.domain'} ne 'public'; # users |
# users |
|
next if $$menuitem[4] eq 'ci' |
|
&& (!$custommenu || $env{'request.role'} =~ m{^st\./\w+citest/}); |
|
next if $$menuitem[4] eq 'home' |
|
&& (($custommenu) || ($env{'user.domain'} =~ /^\w+citest$/) || |
|
($faculty && !$numdc)); |
|
next if $$menuitem[4] eq 'citest' |
|
&& ($faculty || ($env{'request.role'} eq 'cm')); |
|
next if $$menuitem[4] eq 'roles' # hide links which are |
|
&& $custommenu; # not visible when GCI |
|
next if $$menuitem[4] eq 'courses' # tabbed interface in use |
|
&& $custommenu; # |
next if $$menuitem[4] eq 'roles' ##show links depending on |
next if $$menuitem[4] eq 'roles' ##show links depending on |
&& &Apache::loncommon::show_course(); ##term 'Courses' or |
&& &Apache::loncommon::show_course(); ##term 'Courses' or |
next if $$menuitem[4] eq 'courses' ##'Roles' wanted |
next if $$menuitem[4] eq 'courses' ##'Roles' wanted |
Line 182 sub primary_menu {
|
Line 207 sub primary_menu {
|
|
|
|
|
if ($$menuitem[3] eq 'Help') { # special treatment for helplink |
if ($$menuitem[3] eq 'Help') { # special treatment for helplink |
$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>'; |
if ($public) { |
|
my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
|
my $defdom = &Apache::lonnet::default_login_domain(); |
|
my $to = &Apache::loncommon::build_recipient_list(undef, |
|
'helpdeskmail', |
|
$defdom,$origmail); |
|
if ($to ne '') { |
|
$menu .= &prep_menuitem($menuitem); |
|
} |
|
} else { |
|
$menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>'; |
|
} |
} else { |
} else { |
my @items = @{$menuitem}; |
$menu .= &prep_menuitem($menuitem); |
$items[0] = 'javascript:'.$menuitem->[0].';'; |
|
$menu .= &prep_menuitem(\@items); |
|
} |
} |
} |
} |
|
|
Line 207 sub secondary_menu {
|
Line 241 sub secondary_menu {
|
$env{'user.domain'}, $env{'user.name'}, |
$env{'user.domain'}, $env{'user.name'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.num'}); |
$env{'course.' . $env{'request.course.id'} . '.num'}); |
|
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
|
my $numdc = &Apache::loncommon::check_for_gci_dc(); |
|
my $role = $env{'request.role'}; |
foreach my $menuitem (@secondary_menu) { |
foreach my $menuitem (@secondary_menu) { |
# evaluate conditions |
# evaluate conditions |
next if ref($menuitem) ne 'ARRAY'; |
next if ref($menuitem) ne 'ARRAY'; |
next if $$menuitem[4] ne 'always' |
next if $$menuitem[4] eq 'showmenu' |
|
&& ($custommenu || (!$numdc && $role eq 'cm')); |
|
next if $$menuitem[4] ne 'showmenu' |
|
&& $$menuitem[4] ne 'author' |
&& !$env{'request.course.id'}; |
&& !$env{'request.course.id'}; |
next if $$menuitem[4] eq 'showreturn' |
next if $$menuitem[4] eq 'showreturn' |
&& !$showlink |
&& !$showlink |
Line 232 sub secondary_menu {
|
Line 272 sub secondary_menu {
|
next if $$menuitem[4] =~ /showgroups$/ |
next if $$menuitem[4] =~ /showgroups$/ |
&& !$canviewgrps |
&& !$canviewgrps |
&& !%groups; |
&& !%groups; |
|
next if $$menuitem[4] eq 'showroles' |
if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) { |
&& ($custommenu || !$numdc || ($numdc && $env{'request.noversionuri'} eq '/adm/roles')); |
|
if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'} && !$custommenu) { |
# special treatment for role selector |
# special treatment for role selector |
my $roles_selector = &roles_selector( |
my $roles_selector = &roles_selector( |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
$env{'course.' . $env{'request.course.id'} . '.domain'}, |
Line 277 sub secondary_menu {
|
Line 318 sub secondary_menu {
|
return "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
return "<ul id=\"LC_secondary_menu\">$menu</ul>"; |
} |
} |
|
|
|
sub gci_secondary_menu { |
|
my %courses; |
|
my $inventory; |
|
if ($env{'user.domain'} =~ /^(\w+ci)test$/) { |
|
$inventory = $1; |
|
} else { |
|
$inventory = $env{'user.domain'}; |
|
} |
|
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
|
if (($inventory ne '') && (ref($allnums{$inventory}) eq 'HASH')) { |
|
foreach my $key (keys(%{$allnums{$inventory}})) { |
|
$courses{$key} = $inventory.'_'.$allnums{$inventory}->{$key}; |
|
} |
|
} |
|
|
|
my %linktext = ( |
|
'review' => 'Review Questions', |
|
'submit' => 'Submit Questions', |
|
'managetest' => 'Manage Tests', |
|
'tutorial' => 'Tutorials', |
|
); |
|
my (%links,@menutabs,$current,%can_request,%request_domains); |
|
my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc'); |
|
my $canreq = &Apache::lonnet::check_can_request($env{'user.domain'}.'test', |
|
\%can_request,\%request_domains); |
|
if (($canreq) || (keys(%concepttests) > 0)) { |
|
%links = ( |
|
'managetest' => '/adm/menu', |
|
); |
|
$current = 'managetest'; |
|
} |
|
if ($env{'form.destinationurl'} eq '/adm/ci_info') { |
|
undef($current); |
|
} |
|
foreach my $key (keys(%courses)) { |
|
$links{$key} = "javascript:switchpage('$key');"; |
|
if ($env{'request.course.id'} eq $courses{$key}) { |
|
if ($env{'environment.remotenavmap'} eq 'on') { |
|
$links{$key} = "javascript:gonav('/adm/navmaps')"; |
|
} else { |
|
$links{$key} = '/adm/navmaps'; |
|
} |
|
$current = $key; |
|
if (($canreq) || (keys(%concepttests) > 0) { |
|
$links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; |
|
} |
|
} |
|
} |
|
my @posstabs = ('review','submit','managetest','tutorial'); |
|
my $tabs; |
|
foreach my $item (@posstabs) { |
|
next if ($links{$item} eq ''); |
|
push(@menutabs,$item); |
|
if ($item eq $current) { |
|
$tabs .= '<li id="current"><a href="'.$links{$item}.'">'. |
|
$linktext{$item}.'</a></li>'; |
|
} else { |
|
$tabs .= '<li><a href="'.$links{$item}.'">'. |
|
$linktext{$item}.'</a></li>'; |
|
} |
|
} |
|
return '<div id="gciheader">'. |
|
'<ul>'.$tabs.'</ul></div><br />'; |
|
} |
|
|
# |
# |
# This routine returns a translated hash for the menu items in the top inline menu row |
# This routine returns a translated hash for the menu items in the top inline menu row |
Line 470 ENDINLINEMENU
|
Line 575 ENDINLINEMENU
|
} |
} |
|
|
sub show_return_link { |
sub show_return_link { |
|
return unless ($env{'request.course.id'}); |
|
if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist|navmaps)($|\?)}) |
|
|| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($|\?)})) { |
|
return if ($env{'form.register'}); |
|
} |
return (($env{'request.noversionuri'}=~m{^/(res|public)/} && |
return (($env{'request.noversionuri'}=~m{^/(res|public)/} && |
$env{'request.symb'} eq '') |
$env{'request.symb'} eq '') |
|| |
|| |
Line 478 sub show_return_link {
|
Line 588 sub show_return_link {
|
(($env{'request.noversionuri'}=~/^\/adm\//) && |
(($env{'request.noversionuri'}=~/^\/adm\//) && |
($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && |
($env{'request.noversionuri'}!~ |
($env{'request.noversionuri'}!~ |
m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)]) |
m[^/adm/.*/(smppg|bulletinboard)($|\?)]) |
)); |
)); |
} |
} |
|
|
Line 512 sub registerurl {
|
Line 622 sub registerurl {
|
} |
} |
|
|
sub innerregister { |
sub innerregister { |
my ($forcereg, $titletable) = @_; |
my ($forcereg,$titletable,$bread_crumbs) = @_; |
my $result = ''; |
my $result = ''; |
my ($uname,$thisdisfn); |
my ($uname,$thisdisfn); |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $const_space = ($env{'request.state'} eq 'construct'); |
Line 551 sub innerregister {
|
Line 661 sub innerregister {
|
} else { |
} else { |
$contentstext = &mt('Course Contents'); |
$contentstext = &mt('Course Contents'); |
} |
} |
my @crumbs = ({text => $contentstext, |
my @crumbs; |
href => "Javascript:gonav('/adm/navmaps')"}); |
unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps') |
|
&& ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) { |
|
my $link = "javascript:gopost('/adm/navmaps','')"; |
|
if ($env{'environment.remotenavmap'} eq 'on') { |
|
$link = "javascript:gonav('/adm/navmaps','')" |
|
} |
|
@crumbs = ({text => Apache::loncommon::course_type() |
|
. ' Contents', |
|
href => $link}); |
|
} |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { |
push(@crumbs, {text => '...', |
push(@crumbs, {text => '...', |
no_mt => 1}); |
no_mt => 1}); |
Line 753 s&7&1&del.gif&delete[_1]&resource[_2]&go
|
Line 871 s&7&1&del.gif&delete[_1]&resource[_2]&go
|
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document |
ENDMENUITEMS |
ENDMENUITEMS |
} |
} |
|
if ($noremote) { |
|
if (ref($bread_crumbs) eq 'ARRAY') { |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
foreach my $crumb (@{$bread_crumbs}){ |
|
&Apache::lonhtmlcommon::add_breadcrumb($crumb); |
|
} |
|
} |
|
} |
} elsif ( defined($env{'request.course.id'}) && |
} elsif ( defined($env{'request.course.id'}) && |
$env{'request.symb'} ne '' ) { |
$env{'request.symb'} ne '' ) { |
# |
# |
Line 789 $menuitems.="Make notes and annotations
|
Line 915 $menuitems.="Make notes and annotations
|
"&go('/adm/requestcourse')&Course requests\n"; |
"&go('/adm/requestcourse')&Course requests\n"; |
} |
} |
} |
} |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|portfolio)(\?|$)/) { |
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) { |
if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
Line 829 ENDMENUITEMS
|
Line 955 ENDMENUITEMS
|
my $addremote=0; |
my $addremote=0; |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} } |
my $inlinebuttons=''; |
my $inlinebuttons=''; |
|
|
if ($addremote) { |
if ($addremote) { |
|
|
#SD START (work in progress!) |
|
Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
Apache::lonhtmlcommon::clear_breadcrumb_tools(); |
# Arrows for navigation |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[21] ); |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[23] ); |
|
if(hidden_button_check() ne 'yes'){ |
|
# notes |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[93]); |
|
# bookmark |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[91]); |
|
# evaluate |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[81]); |
|
# feedback |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[82]); |
|
# print |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[83]); |
|
# metadata |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[63]); |
|
|
|
# ? |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[61]); |
|
# ? |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[71]); |
|
# ? |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[72]); |
|
# ? |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[73]); |
|
# ? |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[92]); |
|
|
|
|
Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'navigation', @inlineremote[21,23]); |
|
if(hidden_button_check() ne 'yes') { |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'tools', @inlineremote[93,91,81,82,83]); |
|
|
|
#publish button in construction space |
|
if ($env{'request.state'} eq 'construct'){ |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', @inlineremote[63]); |
|
}else{ |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'tools', @inlineremote[63]); |
|
} |
|
|
|
unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
|
Apache::lonhtmlcommon::add_breadcrumb_tool( |
|
'advtools', @inlineremote[61,71,72,73,92]); |
|
} |
} |
} |
|
|
#SD END |
|
# # Registered, textual output |
# # Registered, textual output |
# if ( $env{'environment.icons'} eq 'iconsonly' ) { |
# if ( $env{'environment.icons'} eq 'iconsonly' ) { |
# $inlinebuttons = (<<ENDARROWSINLINE); |
# $inlinebuttons = (<<ENDARROWSINLINE); |
Line 1324 sub openmenu {
|
Line 1441 sub openmenu {
|
} |
} |
|
|
sub inlinemenu { |
sub inlinemenu { |
|
my ($context) = @_; |
undef(@inlineremote); |
undef(@inlineremote); |
undef(%category_members); |
undef(%category_members); |
# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control |
my $output; |
&rawconfig(1); |
if ($context eq 'gcicustom') { |
my $output='<table id="LC_mainmenu"><tr>'; |
my (%can_request,%request_domains,$canreq,$createtext); |
for (my $col=1; $col<=2; $col++) { |
my $role = 'st'; |
$output.='<td class="LC_mainmenu_col_fieldset">'; |
my $custommenu = &Apache::loncommon::needs_gci_custom(); |
for (my $row=1; $row<=8; $row++) { |
if ($custommenu) { |
foreach my $cat (keys(%category_members)) { |
$role = 'cc'; |
if ($category_positions{$cat} ne "$col,$row") { next; } |
} |
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
my %courses = &Apache::loncommon::existing_gcitest_courses($role); |
$output.='<div class="LC_Box">'; |
my $numcourses = keys(%courses); |
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>'; |
my ($switcher_js,$switcher); |
$output.='<table>'; |
my $formname = 'testpicker'; |
my %active=(); |
if ($numcourses > 0) { |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
$switcher = &Apache::loncommon::gcitest_switcher($role,$formname,%courses); |
if ($inlineremote[$menu_item]) { |
my $current; |
$active{$menu_item}=1; |
my $cid = $env{'request.course.id'}; |
} |
if ($cid) { |
} |
$current = $role.'./'.$env{'course.'.$cid.'.domain'}. |
foreach my $item (sort(keys(%active))) { |
'/'.$env{'course.'.$cid.'.num'}; |
$output.=$inlineremote[$item]; |
} |
} |
$switcher_js = &Apache::loncommon::gcitest_switcher_js($current,$numcourses,$formname); |
$output.='</table>'; |
if ($switcher_js) { |
$output.='</div>'; |
$switcher_js= <<"ENDSCRIPT"; |
|
<script type="text/javascript"> |
|
// <![CDATA[ |
|
|
|
$switcher_js |
|
|
|
// ]]> |
|
</script> |
|
|
|
ENDSCRIPT |
} |
} |
} |
$switcher = $switcher_js.$switcher; |
$output.="</td>"; |
} |
|
if ($env{'user.domain'} !~ /^\w+citest$/) { |
|
$canreq = |
|
&Apache::lonnet::check_can_request($env{'user.domain'}.'test',\%can_request,\%request_domains); |
|
$createtext = &mt('Create Concept Test'); |
|
if ($numcourses) { |
|
$createtext = &mt('Create New Test'); |
|
} |
|
} |
|
if ($env{'request.course.id'}) { |
|
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
|
my $navlink; |
|
if ($env{'environment.remotenavmap'} eq 'on') { |
|
$navlink = "javascript:gonav('/adm/navmaps')"; |
|
} else { |
|
$navlink = '/adm/navmaps'; |
|
} |
|
$output .= |
|
'<br /><br clear="all" /><div class="LC_Box LC_GCI_Menu">'. |
|
'<h3 class="LC_hcell">'.&mt('Management').'</h3>'. |
|
'<div class="LC_GCI_Menu_left">'. |
|
'<dl class="LC_GCI_Menu">'. |
|
'<dt><a href="'.$navlink.'">'.&mt('Concept Test Contents').'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/nav.png\');"><a class="LC_menubuttons_link" href="'.$navlink.'">'.&mt('Display the table of contents for your Concept Test.').'</a></dd>'. |
|
'<dt><a href="/adm/coursedocs">'.&mt('Assemble Concept Test').'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/docs.png\');"><a class="LC_menubuttons_link" href="/adm/coursedocs">'.&mt('If no students have attempted the Concept Test you will be able to modify it. You can also change the start and end date of the test itself.').'</a></dd>'. |
|
'<dt><a href="/adm/createuser">'.&mt('Enrollment and Student Activity').'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/cprv.png\');"><a class="LC_menubuttons_link" href="/adm/createuser">'.&mt('Display or download a course roster, and view information about completion status and last login. You can also add new students, or change access dates for existing students.').'</a></dd></dl></div>'. |
|
'<div class="LC_GCI_Menu_right"><dl class="LC_GCI_Menu">'. |
|
'<dt><a href="/adm/whatsnew">'.&mt("What's New?").'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/new.png\');"><a class="LC_menubuttons_link" href="/adm/whatsnew">'.&mt('View information about changes in your Concept Test course.').'</a></dd>'. |
|
'<dt><a href="/adm/printout">'.&mt('Prepare Printable Concept Test').'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/prnt.png\');"><a class="LC_menubuttons_link" href="/adm/printout">'.&mt('Create a PDF which you can send to a printer to create a hardcopy of the Concept Test.').'</a></dd>'. |
|
'<dt><a href="/adm/statistics">'.&mt('Concept Test Statistics').'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/chrt.png\');"><a class="LC_menubuttons_link" href="/adm/statistics">'.&mt('After the closing date of the Concept Test you can view and download statistics for the test, as well as anonymized submission data.').'</a></dd>'; |
|
if ($canreq) { |
|
$output .= '<dt><a href="javascript:switchpage('."'createtest'".');">'.&mt('Create New Test').'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/rcrs.png\');"><a class="LC_menubuttons_link" href="javascript:switchpage('."'createtest'".');">'. |
|
&mt('Create a new Concept Test Course Container. Choose GCI questions to include in the test and upload a student roster.').'</a></dd>'; |
|
} |
|
$output .= '</dl></div></div><br clear="all"/>'; |
|
} else { |
|
my $navtext = &mt('Table of Contents'); |
|
my $navdesc = &mt('Display Table of Contents for Geoscience Concept Inventory'); |
|
if ($env{'request.role.domain'} =~ /^\w+citest$/) { |
|
$navtext = &mt('Display Test Contents'); |
|
$navdesc = &mt('Display the table of contents for this Concept Test'); |
|
} |
|
my $navlink; |
|
if ($env{'environment.remotenavmap'} eq 'on') { |
|
$navlink = "javascript:gonav('/adm/navmaps');" |
|
} else { |
|
$navlink = '/adm/navmaps'; |
|
} |
|
$output .= |
|
'<div class="LC_Box LC_GCI_Menu">'. |
|
'<h3 class="LC_hcell">'.&mt('Utilities').'</h3>'. |
|
'<div class="LC_GCI_Menu_left">'. |
|
'<dl class="LC_GCI_Menu">'. |
|
'<dt><a href="'.$navlink.'">'.$navtext.'</dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/nav.png\');">'. |
|
'<a class="LC_menubuttons_link" href="'.$navlink.'">'.$navdesc.'</a></dd></dl></div>'; |
|
if ($canreq) { |
|
$output .= '<div class="LC_GCI_Menu_right">'. |
|
'<dl class="LC_GCI_Menu">'. |
|
'<dt><a href="javascript:switchpage('."'createtest'".');">'.$createtext.'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/rcrs.png\');"><a class="LC_menubuttons_link" href="javascript:switchpage('."'createtest'".');">'.&mt('Create a new Concept Test Course Container').'</a>. '.&mt('Choose GCI questions to include in the test and upload a student roster.').'</dd></dl></div>'; |
|
} |
|
$output .= '</div><br clear="all"/>'; |
|
} |
|
} elsif ($switcher || $canreq) { |
|
$output .= '<br /><br />'. |
|
'<div class="LC_Box LC_GCI_Menu">'. |
|
'<h3 class="LC_hcell">'.&mt('Utilities').'</h3>'. |
|
'<div class="LC_GCI_Menu_left">'. |
|
'<dl class="LC_GCI_Menu">'; |
|
if ($canreq) { |
|
$output .= '<dt><a href="javascript:switchpage('."'createtest'".');">'.$createtext.'</a></dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/rcrs.png\');"><a class="LC_menubuttons_link" href="javascript:switchpage('."'createtest'".');">'.&mt('Create a new Concept Test Course Container. Choose GCI questions to include in the test and upload a student roster.').'</a></dd></dl></div>'; |
|
if ($switcher) { |
|
$output .= '<div class="LC_GCI_Menu_right">'. |
|
'<dl class="LC_GCI_Menu">'; |
|
} |
|
} |
|
if ($switcher) { |
|
$output .= '<dt>'.&mt('Select Concept Test').'</dt>'. |
|
'<dd style="background-image:url(\'/res/adm/pages/roles.png\');">'.$switcher.'<br /><br /></dd></dl></div>'; |
|
} |
|
$output .= '</div><br clear="all"/>'; |
|
} |
|
} elsif ($context eq 'gcinorole') { |
|
my $queued = &Apache::loncoursequeueadmin::queued_selfenrollment('notitle'); |
|
if ($queued) { |
|
$output .= |
|
'<div class="LC_Box">'. |
|
'<h3 class="LC_hcell">'.&mt('Pending Enrollment Requests').'</h3>'. |
|
$queued. |
|
'</div>'; |
|
} |
|
} else { |
|
# calling rawconfig with "1" will evaluate mydesk.tab, |
|
# even if there is no active remote control |
|
&rawconfig(1); |
|
$output='<table><tr>'; |
|
for (my $col=1; $col<=2; $col++) { |
|
$output.='<td class="LC_mainmenu_col_fieldset">'; |
|
for (my $row=1; $row<=8; $row++) { |
|
foreach my $cat (keys(%category_members)) { |
|
if ($category_positions{$cat} ne "$col,$row") { next; } |
|
$output.='<div class="LC_Box LC_400Box">'; |
|
$output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>'; |
|
$output.='<table>'; |
|
my %active=(); |
|
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
|
if ($inlineremote[$menu_item]) { |
|
$active{$menu_item}=1; |
|
} |
|
} |
|
foreach my $item (sort(keys(%active))) { |
|
$output.=$inlineremote[$item]; |
|
} |
|
$output.='</table>'; |
|
$output.='</div>'; |
|
} |
|
} |
|
$output.="</td>"; |
|
} |
|
$output.="</tr></table>"; |
} |
} |
$output.="</tr></table>"; |
|
return $output; |
return $output; |
} |
} |
|
|
Line 1648 END
|
Line 1901 END
|
} |
} |
|
|
sub utilityfunctions { |
sub utilityfunctions { |
my $caller = shift; |
my ($caller,$custommenu) = @_; |
unless ($env{'environment.remote'} eq 'off' || |
unless ($env{'environment.remote'} eq 'off' || |
$caller eq '/adm/menu') { |
$caller eq '/adm/menu') { |
return ''; } |
return ''; } |
|
|
|
my $gcimenujs; |
|
if ($custommenu) { |
|
my %concepttests = &Apache::loncommon::existing_gcitest_courses('cc'); |
|
my (@calls,%switchpage_call,%canrequest,%request_domains); |
|
my $canreq = &Apache::lonnet::check_can_request($env{'user.domain'}.'test', |
|
\%canrequest,\%request_domains); |
|
if ($canreq) { |
|
foreach my $call ('createtest','managetest') { |
|
push(@calls,$call); |
|
} |
|
$switchpage_call{'managetest'} = '/adm/menu'; |
|
$switchpage_call{'createtest'} = '/adm/requestcourse'; |
|
if ($env{'request.course.id'}) { |
|
$switchpage_call{'createtest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2frequestcourse'; |
|
} |
|
} |
|
if (($env{'request.course.id'}) && |
|
($env{'course.'.$env{'request.course.id'}.'.domain'} !~ /^\w+citest$/)) { |
|
my @items = keys(%concepttests); |
|
if (@items==1) { |
|
my $newrole = $items[0]; |
|
$newrole =~ s{_}{/}; |
|
$switchpage_call{'managetest'} = '/adm/roles?selectrole=1&cc./'.$newrole.'=1'; |
|
} else { |
|
$switchpage_call{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu'; |
|
} |
|
} |
|
my %allnums = &Apache::loncommon::get_faculty_cnums(); |
|
my $udom = $env{'user.domain'}; |
|
if (ref($allnums{$udom}) eq 'HASH') { |
|
foreach my $key (keys(%{$allnums{$udom}})) { |
|
$switchpage_call{$key} = '/adm/roles?selectrole=1&'. |
|
'st./'.$udom.'/'.$allnums{$udom}->{$key}.'=1'; |
|
push(@calls,$key); |
|
} |
|
} |
|
if (@calls > 0) { |
|
$gcimenujs = ' |
|
function switchpage(caller) { |
|
'; |
|
foreach my $call (@calls) { |
|
$gcimenujs .= " |
|
if (caller == '$call') { |
|
document.location.href = '$switchpage_call{$call}'; |
|
}"; |
|
} |
|
$gcimenujs .= ' |
|
return; |
|
} |
|
'; |
|
} |
|
} |
|
|
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0])); |
if ($currenturl =~ m{^/adm/wrapper/ext/}) { |
if ($currenturl =~ m{^/adm/wrapper/ext/}) { |
if ($env{'request.external.querystring'}) { |
if ($env{'request.external.querystring'}) { |
Line 1700 return (<<ENDUTILITY)
|
Line 2006 return (<<ENDUTILITY)
|
$nav_control |
$nav_control |
$dc_popup_cid |
$dc_popup_cid |
|
|
|
$gcimenujs |
|
|
function go(url) { |
function go(url) { |
if (url!='' && url!= null) { |
if (url!='' && url!= null) { |
currentURL = null; |
currentURL = null; |
Line 1708 function go(url) {
|
Line 2016 function go(url) {
|
} |
} |
} |
} |
|
|
function gotop(url) { |
|
if (url!='' && url!= null) { |
|
top.location.href = url; |
|
} |
|
} |
|
|
|
function gopost(url,postdata) { |
function gopost(url,postdata) { |
if (url!='') { |
if (url!='') { |
this.document.server.action=url; |
this.document.server.action=url; |
Line 1890 sub hidden_button_check {
|
Line 2192 sub hidden_button_check {
|
return; |
return; |
} |
} |
if ($env{'request.role.adv'}) { |
if ($env{'request.role.adv'}) { |
return; |
unless (&Apache::loncommon::needs_gci_custom()) { |
|
return; |
|
} |
} |
} |
my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide'); |
my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide'); |
return $buttonshide; |
return $buttonshide; |