--- loncom/interface/lonblockingmenu.pm 2025/01/17 14:01:50 1.14.2.3.6.3
+++ loncom/interface/lonblockingmenu.pm 2016/10/22 02:03:31 1.21
@@ -2,7 +2,7 @@
# Routines for configuring blocking of access to collaborative functions,
# and specific resources during an exam
#
-# $Id: lonblockingmenu.pm,v 1.14.2.3.6.3 2025/01/17 14:01:50 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.21 2016/10/22 02:03:31 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -116,7 +116,7 @@ Outputs: 2
$readonly - true if modification of blocking events is prohibited.
$allowed - true if blocking events information can be shown.
-
+
=item &get_timed_items()
@@ -252,7 +252,7 @@ Inputs: 8
- $blockcount - number of existing blocking events in course
- $readonly - if true, modification not allowed.
-
+
Output: None
@@ -344,31 +344,6 @@ Outputs: 1 - $intervalform - web form el
=item &interval_details()
-Creates name/scope of current interval and expandable/collapsible
-showing which interval parameters apply to the current folder/resource
-
-Inputs: 6
-
- - $item - course, map url, or resource symb
-
- - $type - course, map, or resource
-
- - $url - url of item (null if item is course).
-
- - $navmap - navmaps object
-
- - $intervals - Reference to hash of parameters for timed intervals
-
- - $parmcount - unique ID for current element.
-
-
-Outputs: 2
-
- - $itemname - name/scope of interval (timer) parameter
-
- - $iteminfo - Expandable/collapsible block showing which interval
- (timer) parameters affect the current folder or resource.
-
=item &trigger_details_toggle()
@@ -435,10 +410,10 @@ containing details about item with timed
Inputs: none
Output: 1 Javascript (with <script></script> tags) for functions used to:
- toggle visibility of unordered list for display of detailed
+ toggle visibility of unordered list for display of detailed
information about intervals.
-
-=back
+
+=back
=cut
@@ -527,8 +502,7 @@ sub handler {
$r->print(&Apache::loncourserespicker::create_picker($navmap,
'examblock','resourceblocks',$crstype,
\%blockedmaps,\%blockedresources,
- $env{'form.block'},'','',undef,undef,undef,
- $readonly));
+ $env{'form.block'},'','',undef,$readonly));
} else {
$r->print($errormsg);
}
@@ -579,7 +553,6 @@ sub handler {
my %lt=&Apache::lonlocal::texthash (
'cbds' => 'Blocking communication and/or content access during exams',
'prev' => "For the duration of an exam, or a timed quiz, students in this course can be prevented from:",
- 'flow' => "For the duration of an exam, or a timed quiz, event-driven interruptions to a student's workflow can be suppressed:",
'blca' => "Blocks can potentially interrupt legitimate communication between $usertype who are also both enrolled in a different LON-CAPA $lctype.",
'pobl' => "Portfolio blocking can impact a student's ability to complete assignments in courses besides your own. Please use this feature wisely.",
'actt' => "Action to take:",
@@ -619,26 +592,19 @@ sub handler {
'<ul>'."\n".
'<li>'.&mt("displaying LON-CAPA messages sent by other $usertype in the $lctype").'</li>'."\n".
'<li>'.&mt("displaying or posting to LON-CAPA discussion boards or live chat in the $lctype").'</li>'."\n".
- '<li>'.&mt('accessing content in LON-CAPA portfolios, blogs, or user information pages').'</li>'."\n".
+ '<li>'.&mt('accessing content in LON-CAPA portfolios or blogs').'</li>'."\n".
'<li>'.&mt("generating printouts of $lctype content").'</li>'.
- '<li>'.&mt("displaying the LON-CAPA gradebook in the $lctype").'</li>'.
- '<li>'.&mt("searching $lctype content by keyword").'</li>'.
'<li>'.&mt("accessing $lctype content in specified folders or resources").'</li>'.
'<li>'.&mt("changing user's own password").'</li>'.
'</ul>'.
- $lt{'flow'}.
- '<ul>'."\n".
- '<li>'.&mt("re-initialization of cached course structure, when a change has been made to $lctype content by a Coordinator").'</li>'.
- '<li>'.&mt('display of Critical Messages when navigation arrows used to move to the adjacent resource').'</li>'.
- '</ul>'.
'<p class="LC_warning">'.$lt{'blca'}.'<br />'.$lt{'pobl'}.'</p>'
);
}
# ------------------------ Choose between modifying existing block or adding new
$r->print('<form name="blockform" method="post" action="/adm/setblock?action=store">');
-
- unless ($readonly) {
+
+ unless ($readonly) {
if ($blockcount > 0) {
$r->print(<<"END");
<div class="LC_left_float">
@@ -667,19 +633,20 @@ END
&Apache::loncourserespicker::get_navmap_object($crstype,'examblock');
# --------------------------------------------- Interface for adding a new block
- unless ($readonly) {
+ if ($readonly) {
+ if (!$blockcount) {
+ $r->print($lt{'ncbc'}.'<br />');
+ }
+ } else {
&display_addblocker_table($r,$blockcount,\%ltext,\%intervals,
$navmap,$errormsg);
if ($blockcount > 0) {
$r->print('</div>');
}
}
+
# ------------------------------------------------ Interface for existing blocks
- if (!$blockcount) {
- if ($readonly) {
- $r->print($lt{'ncbc'}.'<br />');
- }
- } else {
+ if ($blockcount > 0) {
&display_blocker_status($r,\%records,\%ltext,\%intervals,
$navmap,$errormsg,$blockcount,$readonly);
}
@@ -886,24 +853,6 @@ sub blockstore {
&escape($env{'form.title_'.$key})).'<br />';
}
}
- if ($blocktypes->{'alert'} eq 'on') {
- ($status,$needsrelease) = &check_release_required('alert',$chomemajor,$chomeminor);
- if ($status eq 'fail') {
- $blocktypes->{'alert'} = 'off';
- $output .= '<p class="LC_warning">'.
- &mt('Message Alert blocking not allowed for [_1]',
- &escape($env{'form.title_'.$key})).'<br />';
- }
- }
- if ($blocktypes->{'reinit'} eq 'on') {
- ($status,$needsrelease) = &check_release_required('reinit',$chomemajor,$chomeminor);
- if ($status eq 'fail') {
- $blocktypes->{'reinit'} = 'off';
- $output .= '<p class="LC_warning">'.
- &mt('Course Re-initialization blocking not allowed for [_1]',
- &escape($env{'form.title_'.$key})).'<br />';
- }
- }
}
if ($blockdocs) {
($status,$needsrelease) = &check_release_required('docs',$chomemajor,$chomeminor);
@@ -990,7 +939,8 @@ sub update_releasereq {
}
$modified_courses = [];
}
- return OK;
+ undef($registered_cleanup);
+ return;
}
sub get_dates_from_form {
@@ -1462,7 +1412,7 @@ sub create_interval_form {
if (ref($resobj)) {
$title = $resobj->compTitle();
}
- if ($title eq '') {
+ if ($title eq '') {
$title = &Apache::lonnet::gettitle($resource);
}
$hierarchy = &show_timer_path($type,$resource,$navmap);
@@ -1655,16 +1605,11 @@ sub blocktype_text {
'port' => 'Portfolio',
'groups' => 'Groups',
'blogs' => 'Blogs',
- 'about' => 'User Information',
'docs' => 'Content',
'printout' => 'Printouts',
'passwd' => 'Change Password',
- 'grades' => 'Gradebook',
- 'search' => 'Content Search',
- 'alert' => 'Critical Alert',
- 'reinit' => 'Course Re-init',
);
- my $typeorder = ['com','chat','boards','port','groups','blogs','about','printout','docs','grades','search','alert','reinit','passwd'];
+ my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd'];
return ($typeorder,\%types);
}