--- loncom/interface/lonprintout.pm 2008/12/06 12:49:18 1.546
+++ loncom/interface/lonprintout.pm 2009/01/23 16:00:46 1.548
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.546 2008/12/06 12:49:18 bisitz Exp $
+# $Id: lonprintout.pm,v 1.548 2009/01/23 16:00:46 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2487,17 +2487,23 @@ sub get_randomly_ordered_warning {
my $postdata = $env{'form.postdata'} || $helper->{VARS}{'postdata'};
my $navmap = Apache::lonnavmaps::navmap->new();
- my $res = $navmap->getResourceByUrl($map);
- if ($res) {
- my $func =
- sub { return ($_[0]->is_map() && $_[0]->randomorder); };
- my @matches = $navmap->retrieveResources($res, $func,1,1,1);
- if (@matches) {
- $message = "Some of the items below are in folders set to be randomly ordered. However, when printing the contents of these folders, they will be printed in the original order for all students, not the randomized order.";
- }
- }
- if ($message) {
- return '
$text{'width'} | -- | - - | -
$text{'height'} | -- | - - | -
$text{'margin'} | -- | - - | -
'.$lt{'format'}.'
' + .&Apache::lonhtmlcommon::start_pick_box() + .&Apache::lonhtmlcommon::row_title($lt{'width'}) + .'' + .'' + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title($lt{'height'}) + .'' + .'' + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title($lt{'margin'}) + .'' + .'' + .&Apache::lonhtmlcommon::row_closure(1) + .&Apache::lonhtmlcommon::end_pick_box(); + #Hint: Some instructors like to leave scratch space for the student by + # making the width much smaller than the width of the page.
return $result; }