--- loncom/interface/lonblockingmenu.pm 2012/03/31 14:15:24 1.4 +++ loncom/interface/lonblockingmenu.pm 2012/04/04 21:04:56 1.5 @@ -2,7 +2,7 @@ # Routines for configuring blocking of access to collaborative functions, # and specific resources during an exam # -# $Id: lonblockingmenu.pm,v 1.4 2012/03/31 14:15:24 raeburn Exp $ +# $Id: lonblockingmenu.pm,v 1.5 2012/04/04 21:04:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -754,6 +754,11 @@ sub blockstore { if ($blockdocs) { &check_release_required('docs'); } + if (ref($blocktypes) eq 'HASH') { + if ($blocktypes->{'printout'} eq 'on') { + &check_release_required('printout'); + } + } if (exists($removals{$key})) { $modtotal ++; } else { @@ -1471,9 +1476,10 @@ sub blocktype_text { 'port' => 'Portfolio', 'groups' => 'Groups', 'blogs' => 'Blogs', - 'docs' => 'Content', + 'docs' => 'Content', + 'printout' => 'Printouts', ); - my $typeorder = ['com','chat','boards','port','groups','blogs','docs']; + my $typeorder = ['com','chat','boards','port','groups','blogs','printout','docs']; return ($typeorder,\%types); }