version 1.317, 2010/03/11 16:35:12
|
version 1.328, 2010/05/30 18:30:52
|
Line 109 Same as primary_menu() but operates on @
|
Line 109 Same as primary_menu() but operates on @
|
|
|
=item show_return_link() |
=item show_return_link() |
|
|
=item registerurl() |
|
|
|
This gets called in the header section |
|
|
|
=item innerregister() |
=item innerregister() |
|
|
This gets called in order to register a URL, both with the Remote |
This gets called in order to register a URL in the body of the document |
and in the body of the document |
|
|
|
=item loadevents() |
|
|
|
=item unloadevents() |
|
|
|
=item get_menu_name() |
|
|
|
=item clear() |
=item clear() |
|
|
Line 188 sub prep_menuitem {
|
Line 177 sub prep_menuitem {
|
return '<li><a' |
return '<li><a' |
# highlighting for new messages |
# highlighting for new messages |
. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') |
. ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') |
. qq| href="$$menuitem[0]">$link</a></li>|; |
. 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 200 sub primary_menu {
|
Line 189 sub primary_menu {
|
my $menu; |
my $menu; |
# 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; |
|
if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) |
|
|| (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) { |
|
$public = 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 207 sub primary_menu {
|
Line 201 sub primary_menu {
|
&& &Apache::lonmsg::mynewmail(); # whether a new msg |
&& &Apache::lonmsg::mynewmail(); # whether a new msg |
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 '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 222 sub primary_menu {
|
Line 216 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>'; |
$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); |
|
} |
} |
} |
} |
|
$menu =~ s/\[domain\]/$env{'user.domain'}/g; |
|
$menu =~ s/\[user\]/$env{'user.name'}/g; |
|
|
return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>"; |
return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>"; |
} |
} |
Line 236 sub secondary_menu {
|
Line 230 sub secondary_menu {
|
my $menu; |
my $menu; |
|
|
my $crstype = &Apache::loncommon::course_type(); |
my $crstype = &Apache::loncommon::course_type(); |
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'}); |
my $crs_sec = $env{'request.course.id'} . ($env{'request.course.sec'} |
my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'} |
? "/$env{'request.course.sec'}" |
. ($env{'request.course.sec'} ? "/$env{'request.course.sec'}" |
: ''); |
: '')); |
my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'}); |
|
my $canviewgrps = &Apache::lonnet::allowed('vcg', $crs_sec); |
|
my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); |
|
my $canviewwnew = &Apache::lonnet::allowed('whn', $crs_sec); |
|
my $canmodpara = &Apache::lonnet::allowed('opa', $crs_sec); |
|
|
my $showlink = &show_return_link(); |
my $showlink = &show_return_link(); |
my %groups = &Apache::lonnet::get_active_groups( |
my %groups = &Apache::lonnet::get_active_groups( |
$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'}); |
|
|
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'; |
Line 259 sub secondary_menu {
|
Line 259 sub secondary_menu {
|
&& $crstype eq 'Community'; |
&& $crstype eq 'Community'; |
next if $$menuitem[4] eq 'mdcCommunity' |
next if $$menuitem[4] eq 'mdcCommunity' |
&& $crstype ne 'Community'; |
&& $crstype ne 'Community'; |
next if $$menuitem[4] =~ /^remotenav/ |
next if $$menuitem[4] eq 'cst' |
&& $env{'environment.remotenavmap'} ne 'on'; |
&& !$canmodifyuser; |
next if $$menuitem[4] =~ /noremotenav/ |
next if $$menuitem[4] eq 'whn' |
&& $env{'environment.remotenavmap'} eq 'on'; |
&& !$canviewwnew; |
next if $$menuitem[4] =~ /^(no|)remotenav$/ |
next if $$menuitem[4] eq 'opa' |
&& $crstype eq 'Community'; |
&& !$canmodpara; |
next if $$menuitem[4] =~ /^(no|)remotenavCommunity$/ |
|
&& $crstype ne 'Community'; |
|
next if $$menuitem[4] =~ /showgroups$/ |
next if $$menuitem[4] =~ /showgroups$/ |
&& !$canviewgrps |
&& !$canviewgrps |
&& !%groups; |
&& !%groups; |
Line 279 sub secondary_menu {
|
Line 277 sub secondary_menu {
|
|
|
$menu .= $roles_selector ? "<li>$roles_selector</li>" |
$menu .= $roles_selector ? "<li>$roles_selector</li>" |
: ''; |
: ''; |
} elsif ($env{'environment.remotenavmap'} eq 'on') { |
|
# open link using javascript when remote navmap is activated |
|
my @items = @{$menuitem}; |
|
if ($menuitem->[4] eq 'remotenav') { |
|
$items[0] = "javascript:gonav('$menuitem->[0]');"; |
|
} else { |
|
$items[0] = "javascript:go('$menuitem->[0]');"; |
|
} |
|
$menu .= &prep_menuitem(\@items); |
|
} else { |
} else { |
$menu .= &prep_menuitem(\@$menuitem); |
$menu .= &prep_menuitem(\@$menuitem); |
} |
} |
Line 316 sub secondary_menu {
|
Line 305 sub secondary_menu {
|
} |
} |
|
|
sub show_return_link { |
sub show_return_link { |
|
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 324 sub show_return_link {
|
Line 318 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)($|\?)}) |
)); |
)); |
} |
|
|
|
|
|
sub registerurl { |
|
my ($forcereg) = @_; |
|
my $result = ''; |
|
if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
|
my $force_title=''; |
|
if ($env{'request.state'} eq 'construct') { |
|
$force_title=&Apache::lonxml::display_title(); |
|
} |
|
return |
|
$result |
|
.'<script type="text/javascript">'."\n" |
|
.'// <![CDATA['."\n" |
|
.'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n" |
|
.'// ]]>'."\n" |
|
.'</script>' |
|
.$force_title; |
|
} |
} |
|
|
sub innerregister { |
sub innerregister { |
my ($forcereg,$titletable,$bread_crumbs) = @_; |
my ($forcereg,$bread_crumbs) = @_; |
my ($uname,$thisdisfn); |
|
my $const_space = ($env{'request.state'} eq 'construct'); |
my $const_space = ($env{'request.state'} eq 'construct'); |
my $is_const_dir = 0; |
my $is_const_dir = 0; |
|
|
Line 366 sub innerregister {
|
Line 340 sub innerregister {
|
|
|
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
my $maptitle = &Apache::lonnet::gettitle($mapurl); |
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread()); |
my $contentstext; |
|
if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') { |
|
$contentstext = &mt('Community Contents'); |
|
} else { |
|
$contentstext = &mt('Course Contents'); |
|
} |
|
my @crumbs = ({text => $contentstext, |
|
href => "Javascript:gonav('/adm/navmaps')"}); |
|
|
|
|
#SD |
|
#course_type only Course and Community? |
|
# |
|
my @crumbs; |
|
unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps') |
|
&& ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) { |
|
@crumbs = ({text => Apache::loncommon::course_type() |
|
. ' Contents', |
|
href => "Javascript:gopost('/adm/navmaps','')"}); |
|
} |
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 388 sub innerregister {
|
Line 364 sub innerregister {
|
|
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
&Apache::lonhtmlcommon::add_breadcrumb(@crumbs); |
|
}elsif (! $const_space){ |
|
#a situation when we're looking at a resource outside of context of a |
|
#course or construction space (e.g. with cumulative rights) |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
&Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'}); |
} |
} |
# ============================================================================= |
# ============================================================================= |
# ============================ This is for URLs that actually can be registered |
# ============================ This is for URLs that actually can be registered |
Line 598 if(length($annotation) > 0){
|
Line 579 if(length($annotation) > 0){
|
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
$menuitems.="Make notes and annotations about this resource&&1\n"; |
|
|
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|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.png&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
s&6&3&catalog.png&catalog[_2]&info[_1]&catalog_info()&Show Metadata |
Line 656 ENDMENUITEMS
|
Line 637 ENDMENUITEMS
|
'tools', @inlineremote[63]); |
'tools', @inlineremote[63]); |
} |
} |
|
|
|
unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
Apache::lonhtmlcommon::add_breadcrumb_tool( |
Apache::lonhtmlcommon::add_breadcrumb_tool( |
'advtools', @inlineremote[61,71,72,73,92]); |
'advtools', @inlineremote[61,71,72,73,92]); |
|
} |
} |
} |
} |
} |
|
|
Line 703 sub edit_course_upload {
|
Line 685 sub edit_course_upload {
|
return $cfile; |
return $cfile; |
} |
} |
|
|
sub loadevents() { |
|
if ($env{'request.state'} eq 'construct' || |
|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
|
return 'LONCAPAreg();'; |
|
} |
|
|
|
sub unloadevents() { |
|
if ($env{'request.state'} eq 'construct' || |
|
$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; } |
|
return 'LONCAPAstale();'; |
|
} |
|
|
|
sub get_menu_name { |
|
my $hostid = $Apache::lonnet::perlvar{'lonHostID'}; |
|
$hostid =~ s/\W//g; |
|
return 'LCmenu'.$hostid; |
|
} |
|
|
|
# ================================================================== Raw Config |
# ================================================================== Raw Config |
|
|
#SD |
|
#this is called by |
|
#lonmenu |
|
# |
|
sub clear { |
sub clear { |
my ($row,$col)=@_; |
my ($row,$col)=@_; |
$inlineremote[10*$row+$col]=''; |
$inlineremote[10*$row+$col]=''; |
Line 747 sub switch {
|
Line 707 sub switch {
|
my $idx=10*$row+$col; |
my $idx=10*$row+$col; |
$category_members{$cat}.=':'.$idx; |
$category_members{$cat}.=':'.$idx; |
|
|
# Inline Remote |
# Inline Menu |
#RC $img=~s/\.gif$/\.png/; |
|
if ($nobreak==2) { return ''; } |
if ($nobreak==2) { return ''; } |
my $text=$top.' '.$bot; |
my $text=$top.' '.$bot; |
$text=~s/\s*\-\s*//gs; |
$text=~s/\s*\-\s*//gs; |
Line 778 sub switch {
|
Line 737 sub switch {
|
} |
} |
} else { |
} else { |
# Inline Menu |
# Inline Menu |
#SD look here |
|
if ($env{'environment.icons'} eq 'iconsonly') { |
|
$inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>'; |
|
} else { |
|
$inlineremote[$idx]= |
$inlineremote[$idx]= |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic. |
'<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic. |
'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>'; |
'<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>'; |
} |
|
} |
} |
return ''; |
return ''; |
} |
} |
Line 1045 sub check_for_rcrs {
|
Line 999 sub check_for_rcrs {
|
return $showreqcrs; |
return $showreqcrs; |
} |
} |
|
|
# ====================================================================== Footer |
|
|
|
sub nav_control_js { |
|
my $nav=($env{'environment.remotenavmap'} eq 'on'); |
|
return (<<NAVCONTROL); |
|
var w_loncapanav_flag="$nav"; |
|
|
|
|
|
function gonav(url) { |
|
if (w_loncapanav_flag != 1) { |
|
gopost(url,''); |
|
} else { |
|
navwindow=window.open(url, |
|
"loncapanav","height=600,width=400,scrollbars=1"); |
|
} |
|
} |
|
NAVCONTROL |
|
} |
|
|
|
sub dc_popup_js { |
sub dc_popup_js { |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
more => '(More ...)', |
more => '(More ...)', |
Line 1098 sub utilityfunctions {
|
Line 1033 sub utilityfunctions {
|
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
$currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl)); |
|
|
my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'}); |
my $nav_control=&nav_control_js(); |
|
|
|
my $dc_popup_cid; |
my $dc_popup_cid; |
if ($env{'user.adv'} && exists($env{'user.role.dc./'. |
if ($env{'user.adv'} && exists($env{'user.role.dc./'. |
Line 1133 return (<<ENDUTILITY)
|
Line 1067 return (<<ENDUTILITY)
|
var reloadURL="$currenturl"; |
var reloadURL="$currenturl"; |
var currentSymb="$currentsymb"; |
var currentSymb="$currentsymb"; |
|
|
$nav_control |
|
$dc_popup_cid |
$dc_popup_cid |
|
|
function go(url) { |
function go(url) { |
Line 1144 function go(url) {
|
Line 1077 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 1239 function edit_bookmarks() {
|
Line 1166 function edit_bookmarks() {
|
go(''); |
go(''); |
w_BookmarkPal_flag=1; |
w_BookmarkPal_flag=1; |
bookmarkpal=window.open("/adm/bookmarks", |
bookmarkpal=window.open("/adm/bookmarks", |
"BookmarkPal", "width=400,height=505,scrollbars=0"); |
"BookmarkPal", "width=500,height=505,scrollbars=0"); |
} |
} |
|
|
function annotate() { |
function annotate() { |
Line 1309 sub constspaceform {
|
Line 1236 sub constspaceform {
|
ENDCONSTSPACEFORM |
ENDCONSTSPACEFORM |
} |
} |
|
|
|
|
sub get_nav_status { |
|
my $navstatus="swmenu.w_loncapanav_flag="; |
|
if ($env{'environment.remotenavmap'} eq 'on') { |
|
$navstatus.="1"; |
|
} else { |
|
$navstatus.="-1"; |
|
} |
|
return $navstatus; |
|
} |
|
|
|
sub hidden_button_check { |
sub hidden_button_check { |
my $hidden; |
|
if ( $env{'request.course.id'} eq '' |
if ( $env{'request.course.id'} eq '' |
|| $env{'request.role.adv'} ) { |
|| $env{'request.role.adv'} ) { |
|
|