version 1.248, 2008/12/08 23:07:03
|
version 1.257, 2009/04/01 14:43:06
|
Line 174 sub initlittle {
|
Line 174 sub initlittle {
|
'Courses':'Roles'), |
'Courses':'Roles'), |
'other' => 'Other Roles', |
'other' => 'Other Roles', |
'docs' => 'Edit Course', |
'docs' => 'Edit Course', |
'exit' => 'Exit', |
'exit' => 'Logout', |
'login' => 'Log In', |
'login' => 'Log In', |
'launch' => 'Launch Remote Control', |
'launch' => 'Launch Remote Control', |
'groups' => 'Groups', |
'groups' => 'Groups', |
Line 206 sub menubuttons {
|
Line 206 sub menubuttons {
|
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); |
|
|
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); |
$logo = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'. |
$logo = '<a href="/adm/about.html"><img src="'. |
$logo.'" alt="LON-CAPA Logo" class="noBorder" /></a></td>'; |
$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>'; |
|
|
if ($env{'request.state'} eq 'construct') { |
if ($env{'request.state'} eq 'construct') { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { |
Line 292 ENDMAINMENU
|
Line 292 ENDMAINMENU
|
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<table id="LC_top_nav"> |
<table id="LC_top_nav"> |
<tr> |
<tr> |
$logo |
<td>$logo</td> |
<td></td> |
<td></td> |
<td class="LC_top_nav_login"> |
<td class="LC_top_nav_login"> |
<a href="/adm/roles" target="_top">$lt{'login'}</a> |
<a href="/adm/roles" target="_top">$lt{'login'}</a> |
Line 301 ENDMAINMENU
|
Line 301 ENDMAINMENU
|
</table> |
</table> |
ENDINLINEMENU |
ENDINLINEMENU |
} |
} |
$roles = '<td><a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a></td>'; |
$roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>'; |
# Do we have a NAV link? |
# Do we have a NAV link? |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
my $link='/adm/navmaps?postdata='.$escurl.'&postsymb='. |
Line 310 ENDINLINEMENU
|
Line 310 ENDINLINEMENU
|
$link="javascript:gonav('".$link."')"; |
$link="javascript:gonav('".$link."')"; |
} |
} |
$navmaps=(<<ENDNAV); |
$navmaps=(<<ENDNAV); |
<td><a href="$link" target="_top">$lt{'nav'}</a></td> |
<li><a href="$link" target="_top">$lt{'nav'}</a></li> |
ENDNAV |
ENDNAV |
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
my $is_group = (&Apache::loncommon::course_type() eq 'Group'); |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { |
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'}; |
my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'}; |
$docs=(<<ENDDOCS); |
$docs=(<<ENDDOCS); |
<td><a href="/adm/coursedocs" target="_top">$text</a></td> |
<li><a href="/adm/coursedocs" target="_top">$text</a></li> |
ENDDOCS |
ENDDOCS |
} |
} |
if ($showgroups) { |
if ($showgroups) { |
$groups =(<<ENDGROUPS); |
$groups =(<<ENDGROUPS); |
<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td> |
<li><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></li> |
ENDGROUPS |
ENDGROUPS |
} |
} |
if (&show_return_link()) { |
if (&show_return_link()) { |
my $escreload=&escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDRELOAD); |
$reloadlink=(<<ENDRELOAD); |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li> |
ENDRELOAD |
ENDRELOAD |
} |
} |
if ($role_selector) { |
if ($role_selector) { |
$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>'; |
#$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>'; |
|
$role_selector = '<li>'.$role_selector.'</li>'; |
} |
} |
} |
} |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) { |
my $escreload=&escape('return:'); |
my $escreload=&escape('return:'); |
$reloadlink=(<<ENDCRELOAD); |
$reloadlink=(<<ENDCRELOAD); |
<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td> |
<li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li> |
ENDCRELOAD |
ENDCRELOAD |
} |
} |
my $reg=''; |
my $reg=''; |
Line 347 ENDCRELOAD
|
Line 348 ENDCRELOAD
|
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
|
|
|
my $messagelink = ""; |
|
if(&Apache::lonmsg::mynewmail()){ |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message(new)</a>' |
|
}else{ |
|
$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message</a>' |
|
} |
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
<script type="text/javascript"> |
<script type="text/javascript"> |
Line 355 ENDCRELOAD
|
Line 362 ENDCRELOAD
|
$utility |
$utility |
// ]]> |
// ]]> |
</script> |
</script> |
<table id="LC_top_nav"> |
<ol class="LC_smallMenu LC_right"> |
<tr> |
<li>$logo</li> |
$logo |
<li>$messagelink</li> |
<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td> |
<li>$roles</li> |
|
<li>$helplink</li> |
|
<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li> |
|
</ol> |
|
<ol id="LC_TabMainMenuContent"> |
|
<li><a href="/adm/menu" target="_top">$lt{'main'}</a></li> |
$reloadlink |
$reloadlink |
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
$roles |
$role_selector |
<td style="width: 2.0em;">$helplink</td> |
</ol> |
<td style="width: 2.0em;"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td> |
|
</tr> |
|
</table> |
|
$form |
$form |
<script type="text/javascript"> |
<script type="text/javascript"> |
// END LON-CAPA Internal |
// END LON-CAPA Internal |
</script> |
</script> |
|
<br clear="all" /> |
$reg |
$reg |
ENDINLINEMENU |
ENDINLINEMENU |
} else { |
} else { |
Line 622 $menuitems.="Make notes and annotations
|
Line 632 $menuitems.="Make notes and annotations
|
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
if (!$env{'request.enc'}) { |
if (!$env{'request.enc'}) { |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information |
s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show Metadata |
ENDREALRES |
ENDREALRES |
} |
} |
$menuitems.=(<<ENDREALRES); |
$menuitems.=(<<ENDREALRES); |
Line 1027 sub switch {
|
Line 1037 sub switch {
|
my $pic= |
my $pic= |
'<img alt="'.$text.'" src="'. |
'<img alt="'.$text.'" src="'. |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img). |
&Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img). |
'" align="'.($nobreak==3?'right':'left').'" class="noBorder" />'; |
'" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />'; |
if ($env{'browser.interface'} eq 'faketextual') { |
if ($env{'browser.interface'} eq 'faketextual') { |
# Accessibility |
# Accessibility |
if ($nobreak==3) { |
if ($nobreak==3) { |
Line 1094 sub inlinemenu {
|
Line 1104 sub inlinemenu {
|
foreach my $cat (keys(%category_members)) { |
foreach my $cat (keys(%category_members)) { |
if ($category_positions{$cat} ne "$col,$row") { next; } |
if ($category_positions{$cat} ne "$col,$row") { next; } |
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
#$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
$output.='<div class="ContentBoxSpecial">'; |
$output.='<div class="LC_ContentBoxSpecial">'; |
$output.='<h4 class="hcell">'.&mt($category_names{$cat}).'</h4>'; |
$output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>'; |
$output.='<table>'; |
$output.='<table>'; |
my %active=(); |
my %active=(); |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
Line 1227 sub rawconfig {
|
Line 1237 sub rawconfig {
|
} elsif ($pro eq 'tools') { |
} elsif ($pro eq 'tools') { |
my @tools = ('aboutme','blog','portfolio'); |
my @tools = ('aboutme','blog','portfolio'); |
if (grep(/^\Q$prt\E$/,@tools)) { |
if (grep(/^\Q$prt\E$/,@tools)) { |
if (defined($env{'environment.tools.'.$prt}) && |
if (!&Apache::lonnet::usertools_access($env{'user.name'}, |
($env{'environment.tools.'.$prt} == 0)) { |
$env{'user.domain'}, |
|
$prt,undef,'tools')) { |
|
$output.=&clear($row,$col); |
|
next; |
|
} |
|
} elsif ($prt eq 'reqcrs') { |
|
my $showreqcrs = 0; |
|
foreach my $type ('official','unofficial') { |
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$type,undef,'requestcourses')) { |
|
$showreqcrs = 1; |
|
last; |
|
} |
|
} |
|
if (!$showreqcrs) { |
$output.=&clear($row,$col); |
$output.=&clear($row,$col); |
next; |
next; |
} |
} |
Line 1459 function set_bookmark() {
|
Line 1484 function set_bookmark() {
|
+"type='text' name='title' size=45 value='"+clienttitle+"' />" |
+"type='text' name='title' size=45 value='"+clienttitle+"' />" |
+"<br />Address:<br /><input type='text' name='address' size='45' " |
+"<br />Address:<br /><input type='text' name='address' size='45' " |
+"value='"+clienthref+"' /><br /><center><input type='submit' " |
+"value='"+clienthref+"' /><br /><center><input type='submit' " |
+"value='Save' /> <input type='button' value='Close (no save)' " |
+"value='Save' /> <input type='button' value='Close' " |
+"onclick='javascript:window.close();' /><\\/center><\\/td>" |
+"onclick='javascript:window.close();' /><\\/center><\\/td>" |
+"<\\/tr><\\/table><\\/form><\\/center>" |
+"<\\/tr><\\/table><\\/form><\\/center>" |
+'$end_page_bookmark' ); |
+'$end_page_bookmark' ); |