loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.57, 2006/11/14 16:51:42	version 1.59, 2006/11/16 13:02:45
Line 79 sub handler {	Line 79 sub handler {

my $onlyown = 0;	my $onlyown = 0;
# if called to assign course-based portfolio access control	# if called to assign course-based portfolio access control
if ((($env{'form.form'} eq 'portform') && ($env{'user.adv'}))) {	if ((($env{'form.form'} eq 'portform') && (!$env{'user.adv'}))) {
$onlyown = 1;	$onlyown = 1;
}	}

Line 108 sub handler {	Line 108 sub handler {

# print javascript functions for choosing a course	# print javascript functions for choosing a course
if ($env{'form.gosearch'} \|\| $onlyown) {	if ($env{'form.gosearch'} \|\| $onlyown) {
$r->print(&gochoose_javascript($type,$autosubmit,$lastaction));	$r->print(&gochoose_javascript($type,$multiple,$autosubmit,$lastaction));
}	}
$r->print('<script type="text/javascript">'.$jscript.'</script>');	$r->print('<script type="text/javascript">'.$jscript.'</script>');
$r->print($submitopener);	$r->print($submitopener);
Line 339 $name_input	Line 339 $name_input
$roleelement	$roleelement
$multelement	$multelement
\|;	\|;
	if ($formname eq 'portform') {
	$output .= '<input type="hidden" name="setroles" value="'.$env{'form.setroles'}.'" />';
	}
}	}
if ($sincefilterform) {	if ($sincefilterform) {
$output .= $lt{'cac'}.': '.$sincefilterform.'<br />'."\n";	$output .= $lt{'cac'}.': '.$sincefilterform.'<br />'."\n";