[BACK]Return to lonblockingmenu.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonblockingmenu.pm between versions 1.14.2.3 and 1.21

version 1.14.2.3, 2016/10/23 17:06:49 version 1.21, 2016/10/22 02:03:31
Line 116  Outputs: 2 Line 116  Outputs: 2
     $readonly - true if modification of blocking events is prohibited.      $readonly - true if modification of blocking events is prohibited.
   
     $allowed  - true if blocking events information can be shown.      $allowed  - true if blocking events information can be shown.
    
   
 =item &get_timed_items()  =item &get_timed_items()
   
Line 252  Inputs: 8 Line 252  Inputs: 8
       - $blockcount - number of existing blocking events in course        - $blockcount - number of existing blocking events in course
   
       - $readonly - if true, modification not allowed.        - $readonly - if true, modification not allowed.
    
   
 Output: None  Output: None
   
Line 344  Outputs: 1 - $intervalform - web form el Line 344  Outputs: 1 - $intervalform - web form el
   
 =item &interval_details()  =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()  =item &trigger_details_toggle()
     
Line 435  containing details about item with timed Line 410  containing details about item with timed
 Inputs: none  Inputs: none
   
 Output: 1 Javascript (with <script></script> tags) for functions used to:  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.            information about intervals.
    
 =back  =back  
   
 =cut  =cut
   
Line 628  sub handler { Line 603  sub handler {
   
 # ------------------------ Choose between modifying existing block or adding new  # ------------------------ Choose between modifying existing block or adding new
     $r->print('<form name="blockform" method="post" action="/adm/setblock?action=store">');      $r->print('<form name="blockform" method="post" action="/adm/setblock?action=store">');
       
     unless ($readonly) {      unless ($readonly) { 
         if ($blockcount > 0) {          if ($blockcount > 0) {
             $r->print(<<"END");              $r->print(<<"END");
 <div class="LC_left_float">  <div class="LC_left_float">
Line 658  END Line 633  END
         &Apache::loncourserespicker::get_navmap_object($crstype,'examblock');          &Apache::loncourserespicker::get_navmap_object($crstype,'examblock');
   
 # --------------------------------------------- Interface for adding a new block  # --------------------------------------------- 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,          &display_addblocker_table($r,$blockcount,\%ltext,\%intervals,
                                   $navmap,$errormsg);                                    $navmap,$errormsg);
         if ($blockcount > 0) {          if ($blockcount > 0) {
             $r->print('</div>');              $r->print('</div>');
         }          }
     }      }
   
 # ------------------------------------------------ Interface for existing blocks  # ------------------------------------------------ Interface for existing blocks
     if (!$blockcount) {      if ($blockcount > 0) {
         if ($readonly) {  
             $r->print($lt{'ncbc'}.'<br />');  
         }  
     } else {  
         &display_blocker_status($r,\%records,\%ltext,\%intervals,          &display_blocker_status($r,\%records,\%ltext,\%intervals,
                                 $navmap,$errormsg,$blockcount,$readonly);                                  $navmap,$errormsg,$blockcount,$readonly);
     }      }
Line 1436  sub create_interval_form { Line 1412  sub create_interval_form {
                                 if (ref($resobj)) {                                  if (ref($resobj)) {
                                     $title = $resobj->compTitle();                                      $title = $resobj->compTitle();
                                 }                                  }
                                 if ($title eq '') {                                  if ($title eq '') {                      
                                     $title = &Apache::lonnet::gettitle($resource);                                      $title = &Apache::lonnet::gettitle($resource);
                                 }                                  }
                                 $hierarchy = &show_timer_path($type,$resource,$navmap);                                  $hierarchy = &show_timer_path($type,$resource,$navmap);
Removed from v.1.14.2.3  
changed lines
  Added in v.1.21

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>