loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.587, 2011/04/25 16:59:54	version 1.588, 2011/05/18 11:26:44
Line 52 use Apache::lonlocal;	Line 52 use Apache::lonlocal;
use Carp;	use Carp;
use LONCAPA;	use LONCAPA;


my %perm;	my %perm;
my %parmhash;	my %parmhash;
my $resources_printed;	my $resources_printed;
Line 3403 sub printHelper {	Line 3404 sub printHelper {
}	}

# Useful filter strings	# Useful filter strings
my $isProblem = '($res->is_problem()\|\|$res->contains_problem\|\|$res->is_practice()) ';	my $isProblem = '(($res->is_problem()\|\|$res->contains_problem\|\|$res->is_practice())) && $res->resprintable() ';
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;	$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
my $isProblemOrMap = '$res->is_problem() \|\| $res->contains_problem() \|\| $res->is_sequence() \|\| $res->is_practice()';	my $isProblemOrMap = '($res->is_problem() \|\| $res->contains_problem() \|\| $res->is_sequence() \|\| $res->is_practice()) && $res->resprintable()';
my $isNotMap = '!$res->is_sequence()';	my $isNotMap = '(!$res->is_sequence()) && $res->resprintable()';
$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;	$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
my $isMap = '$res->is_map()';	my $isMap = '$res->is_map() && $res->resprintable()';
my $symbFilter = '$res->shown_symb()';	my $symbFilter = '$res->shown_symb() && $res->resprintable()';
my $urlValue = '$res->link()';	my $urlValue = '$res->link()';

$helper->declareVar('SEQUENCE');	$helper->declareVar('SEQUENCE');