version 1.355, 2011/10/30 22:15:20
|
version 1.367, 2012/01/13 17:35:13
|
Line 153 use Apache::lonhtmlcommon();
|
Line 153 use Apache::lonhtmlcommon();
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonenc(); |
use Apache::lonenc(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonmsg(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use HTML::Entities(); |
use HTML::Entities(); |
use Apache::lonwishlist(); |
use Apache::lonwishlist(); |
Line 334 sub secondary_menu {
|
Line 335 sub secondary_menu {
|
and ( $env{'request.noversionuri'} eq '' |
and ( $env{'request.noversionuri'} eq '' |
|| !defined($env{'request.noversionuri'}))) |
|| !defined($env{'request.noversionuri'}))) |
{ |
{ |
($escurl = $env{'request.filename'}) =~ s{^/home/httpd/html}{}; |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
|
($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{}; |
$escurl = &escape($escurl); |
$escurl = &escape($escurl); |
} |
} |
$menu =~ s/\[url\]/$escurl/g; |
$menu =~ s/\[url\]/$escurl/g; |
Line 409 sub innerregister {
|
Line 411 sub innerregister {
|
|
|
my $hwkadd=''; |
my $hwkadd=''; |
if ($env{'request.symb'} ne '' && |
if ($env{'request.symb'} ne '' && |
$env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) { |
$env{'request.filename'}=~/$LONCAPA::assess_re/) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
if (&Apache::lonnet::allowed('mgr',$crs)) { |
$hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
$hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]', |
"gocmd('/adm/grades','gradingmenu')", |
"gocmd('/adm/grades','gradingmenu')", |
Line 426 sub innerregister {
|
Line 428 sub innerregister {
|
"gocmd('/adm/parmset','set')", |
"gocmd('/adm/parmset','set')", |
'Content Settings'); |
'Content Settings'); |
} |
} |
|
if ($env{'request.symb'}=~/^uploaded/ && |
|
&Apache::lonnet::allowed('mdc',$crs)) { |
|
$hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]', |
|
"gocmd('/adm/coursedocs','direct')", |
|
'Folder/Page Content'); |
|
} |
# -- End Homework |
# -- End Homework |
### |
### |
### Determine whether or not to display the 'cstr' button for this |
### Determine whether or not to display the 'cstr' button for this |
Line 491 sub innerregister {
|
Line 499 sub innerregister {
|
$uploaded = &is_course_upload($file,$cnum,$cdom); |
$uploaded = &is_course_upload($file,$cnum,$cdom); |
} |
} |
if (!$uploaded) { |
if (!$uploaded) { |
$file=~s/^($match_domain)\/($match_username)/\/priv\/$1\/$2/; |
|
|
$file=~s{^(priv/$match_domain/$match_username)}{/$1}; |
|
$file=~s{^($match_domain/$match_username)}{/priv/$1}; |
|
|
# Check that the user has permission to edit this resource |
# Check that the user has permission to edit this resource |
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file); |
my $setpriv = 1; |
|
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv); |
if (defined($cfudom)) { |
if (defined($cfudom)) { |
$home=&Apache::lonnet::homeserver($cfuname,$cfudom); |
$home=&Apache::lonnet::homeserver($cfuname,$cfudom); |
my $allowed=0; |
my $allowed=0; |
Line 703 ENDMENUITEMS
|
Line 715 ENDMENUITEMS
|
|
|
unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) { |
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,74,92]); |
} |
} |
} |
} |
} |
} |
Line 1218 function golist(url) {
|
Line 1230 function golist(url) {
|
|
|
|
|
function catalog_info() { |
function catalog_info() { |
loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'); |
openMyModal(window.location.pathname+'.meta',500,400,'yes'); |
} |
} |
|
|
function chat_win() { |
function chat_win() { |
Line 1244 function annotate() {
|
Line 1256 function annotate() {
|
annotator.document.close(); |
annotator.document.close(); |
} |
} |
|
|
function set_wishlistlink(title, path) { |
|
if (!title) { |
|
title = document.title; |
|
title = title.replace(/^LON-CAPA /,''); |
|
} |
|
if (!path) { |
|
path = location.pathname; |
|
} |
|
Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path, |
|
'wishlistNewLink','width=560,height=350,scrollbars=0'); |
|
} |
|
|
|
function open_Wishlist_Import(rat) { |
function open_Wishlist_Import(rat) { |
var newWin; |
var newWin; |
if (rat) { |
if (rat) { |
Line 1656 sub required_privs {
|
Line 1656 sub required_privs {
|
'/adm/populate' => 'cst', |
'/adm/populate' => 'cst', |
'/adm/trackstudent' => 'vsa', |
'/adm/trackstudent' => 'vsa', |
'/adm/statistics' => 'vgr', |
'/adm/statistics' => 'vgr', |
|
'/adm/setblock' => 'dcm', |
|
'/adm/coursedocs' => 'mdc', |
}; |
}; |
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') { |
unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') { |
$privs->{'/adm/classcalc'} => 'vgr', |
$privs->{'/adm/classcalc'} = 'vgr', |
$privs->{'/adm/assesscalc'} => 'vgr', |
$privs->{'/adm/assesscalc'} = 'vgr', |
$privs->{'/adm/studentcalc'} => 'vgr'; |
$privs->{'/adm/studentcalc'} = 'vgr'; |
} |
} |
return $privs; |
return $privs; |
} |
} |