--- loncom/interface/lonblockingmenu.pm 2020/10/01 18:59:09 1.14.2.3.2.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.2.3 2020/10/01 18:59:09 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 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,7 +502,7 @@ sub handler { $r->print(&Apache::loncourserespicker::create_picker($navmap, 'examblock','resourceblocks',$crstype, \%blockedmaps,\%blockedresources, - $env{'form.block'},'','',undef,undef,$readonly)); + $env{'form.block'},'','',undef,$readonly)); } else { $r->print($errormsg); } @@ -578,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:", @@ -620,24 +594,17 @@ sub handler { '
  • '.&mt("displaying or posting to LON-CAPA discussion boards or live chat in the $lctype").'
    • '."\n". '
  • '.&mt('accessing content in LON-CAPA portfolios or blogs').'
    • '."\n". '
  • '.&mt("generating printouts of $lctype content").'
    • '. - '
  • '.&mt("displaying the LON-CAPA gradebook in the $lctype").'
    • '. - '
  • '.&mt("searching $lctype content by keyword").'
    • '. '
  • '.&mt("accessing $lctype content in specified folders or resources").'
    • '. '
  • '.&mt("changing user's own password").'
    • '. ''. - $lt{'flow'}. - ''. '

    '.$lt{'blca'}.'
    '.$lt{'pobl'}.'

    ' ); } # ------------------------ Choose between modifying existing block or adding new $r->print('
    '); - - unless ($readonly) { + + unless ($readonly) { if ($blockcount > 0) { $r->print(<<"END");
    @@ -666,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'}.'
    '); + } + } else { &display_addblocker_table($r,$blockcount,\%ltext,\%intervals, $navmap,$errormsg); if ($blockcount > 0) { $r->print('
    '); } } + # ------------------------------------------------ Interface for existing blocks - if (!$blockcount) { - if ($readonly) { - $r->print($lt{'ncbc'}.'
    '); - } - } else { + if ($blockcount > 0) { &display_blocker_status($r,\%records,\%ltext,\%intervals, $navmap,$errormsg,$blockcount,$readonly); } @@ -885,24 +853,6 @@ sub blockstore { &escape($env{'form.title_'.$key})).'
    '; } } - if ($blocktypes->{'alert'} eq 'on') { - ($status,$needsrelease) = &check_release_required('alert',$chomemajor,$chomeminor); - if ($status eq 'fail') { - $blocktypes->{'alert'} = 'off'; - $output .= '

    '. - &mt('Message Alert blocking not allowed for [_1]', - &escape($env{'form.title_'.$key})).'
    '; - } - } - if ($blocktypes->{'reinit'} eq 'on') { - ($status,$needsrelease) = &check_release_required('reinit',$chomemajor,$chomeminor); - if ($status eq 'fail') { - $blocktypes->{'reinit'} = 'off'; - $output .= '

    '. - &mt('Course Re-initialization blocking not allowed for [_1]', - &escape($env{'form.title_'.$key})).'
    '; - } - } } if ($blockdocs) { ($status,$needsrelease) = &check_release_required('docs',$chomemajor,$chomeminor); @@ -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); @@ -1658,12 +1608,8 @@ sub blocktype_text { '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','printout','docs','grades','search','alert','reinit','passwd']; + my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs','passwd']; return ($typeorder,\%types); }