--- loncom/homework/inputtags.pm 2012/03/11 20:17:10 1.302
+++ loncom/homework/inputtags.pm 2012/06/08 12:25:54 1.303
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.302 2012/03/11 20:17:10 raeburn Exp $
+# $Id: inputtags.pm,v 1.303 2012/06/08 12:25:54 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -576,8 +576,20 @@ sub file_selector {
if ( $which eq 'both') {
$result.='
'.''.&mt('OR:').'
';
}
- if ($which eq 'portfolioonly' || $which eq 'both') {
- $result.=$extratext.''.
+ if ($which eq 'portfolioonly' || $which eq 'both') {
+ my $symb = $env{'request.symb'};
+ (undef,undef,my $res)=&Apache::lonnet::decode_symb($symb);
+ my $showsymb;
+ # If resource is a .task and URL is unencrypted, include symb in query string
+ # for url opened in portfolio file selection window. Can be used to override
+ # blocking of portfolio access resulting from an exam event in a different course.
+ if ($res =~ /\.task$/i) {
+ my $encsymb = &Apache::lonenc::check_encrypt($symb);
+ if ($symb eq $encsymb) {
+ $showsymb = $symb;
+ }
+ }
+ $result.=$extratext.''.
&mt('Select Portfolio Files: (one or more files per submission)').'
'.
''.
'
';