version 1.57, 2006/11/14 16:51:42
|
version 1.60.2.1, 2006/12/11 21:41:40
|
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"; |
Line 346 $multelement
|
Line 349 $multelement
|
if ($domainselectform) { |
if ($domainselectform) { |
$output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n"; |
$output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n"; |
} |
} |
if ($typeselectform) { |
# if ($typeselectform) { |
$output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n"; |
# $output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n"; |
} |
# } |
if ($instcodeform) { |
if ($instcodeform) { |
$output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n"; |
$output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n"; |
} |
} |
Line 406 sub search_courses {
|
Line 409 sub search_courses {
|
undef,undef,$type); |
undef,undef,$type); |
} else { |
} else { |
$r->print('<br />'); |
$r->print('<br />'); |
foreach my $cid (sort(&Apache::loncommon::findallcourses())) { |
my %coursehash = &Apache::loncommon::findallcourses(); |
|
foreach my $cid (sort(keys(%coursehash))) { |
$courses{$cid} = $env{'course.'.$cid.'.description'}; |
$courses{$cid} = $env{'course.'.$cid.'.description'}; |
} |
} |
} |
} |