version 1.61, 2007/01/04 02:02:36
|
version 1.62, 2007/01/04 16:54:07
|
Line 2030 sub displaymessage {
|
Line 2030 sub displaymessage {
|
if (defined($content{'baseurl'})) { |
if (defined($content{'baseurl'})) { |
$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'}); |
$baseurl = &Apache::lonenc::check_encrypt($content{'baseurl'}); |
} |
} |
|
print STDERR "baseurl is $content{'baseurl'}, title is $content{'resource_title'}, symb is $content{'symb'}, course is $content{'courseid'}\n"; |
$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}. |
$r->print('<br /><b>'.&mt('Subject').':</b> '.$content{'subject'}. |
($folder ne 'sent'?'<br /><b>'.&mt('From').':</b> '. |
($folder ne 'sent'?'<br /><b>'.&mt('From').':</b> '. |
&Apache::loncommon::aboutmewrapper( |
&Apache::loncommon::aboutmewrapper( |
Line 2045 sub displaymessage {
|
Line 2046 sub displaymessage {
|
if (defined($content{'courseid'}) && defined($env{'request.course.id'})) { |
if (defined($content{'courseid'}) && defined($env{'request.course.id'})) { |
if ($content{'courseid'} eq $env{'request.course.id'}) { |
if ($content{'courseid'} eq $env{'request.course.id'}) { |
my $symblink; |
my $symblink; |
|
my $showsymb = &Apache::lonenc::check_decrypt($symb); |
|
my $showurl = &Apache::lonenc::check_decrypt($baseurl); |
|
my $encrypturl = &Apache::lonnet::EXT('resource.0.encrypturl', |
|
$showsymb,$env{'user.domain'},$env{'user.name'}); |
if ($symb) { |
if ($symb) { |
&Apache::lonenc::check_decrypt(\$symb); |
if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) { |
$symblink = '?symb='.$symb; |
$showsymb = &Apache::lonenc::check_encrypt($symb); |
|
} |
|
$symblink = '?symb='.$showsymb; |
|
} |
|
if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) { |
|
$showurl = $baseurl; |
} |
} |
&Apache::lonenc::check_decrypt(\$baseurl); |
$r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>'); |
$r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$baseurl.$symblink.'">'.$restitle.'</a>'); |
|
$refers_to = 1; |
$refers_to = 1; |
} |
} |
} |
} |
if (!$refers_to) { |
if (!$refers_to) { |
if ($baseurl =~ m-^/enc/-) { |
if ($baseurl =~ m-^/enc/-) { |
if (defined($content{'courseid'})) { |
if (defined($content{'courseid'})) { |
my $unencurl = |
if (!$env{'request.course.id'}) { |
&Apache::lonenc::unencrypted($baseurl, |
my $unencurl = |
$content{'courseid'}); |
&Apache::lonenc::unencrypted($baseurl, |
if (defined($unencurl)) { |
$content{'courseid'}); |
if (&Apache::lonnet::allowed('bre',$unencurl)) { |
if ($unencurl ne '') { |
$r->print('<br /><b>'.&mt('Refers to'). |
if (&Apache::lonnet::allowed('bre',$unencurl)) { |
':</b> <a href="'.$unencurl.'">'.$restitle.'</a>'); |
$r->print('<br /><b>'.&mt('Refers to'). |
|
':</b> <a href="'.$unencurl.'">'. |
|
$restitle.'</a>'); |
|
} |
} |
} |
} |
} |
} |
} |