loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.181.2.9.2.1, 2023/01/23 02:19:19	version 1.181.2.9.2.2, 2023/09/15 12:02:57
Line 111 use Apache::loncommunicate;	Line 111 use Apache::loncommunicate;
use Apache::lonfeedback;	use Apache::lonfeedback;
use Apache::lonrss();	use Apache::lonrss();
use Apache::lonselstudent();	use Apache::lonselstudent();
	use Apache::lonenc();
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);

Line 2702 sub displayresource {	Line 2703 sub displayresource {
&& (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {	&& (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {
my $symb;	my $symb;
if (defined($content{'symb'})) {	if (defined($content{'symb'})) {
$symb = $content{'symb'};	$symb = &Apache::lonenc::check_decrypt($content{'symb'});
} else {	} elsif (defined($content{'baseurl'})) {
$symb=&Apache::lonnet::symbread($content{'baseurl'});	$symb =
	&Apache::lonnet::symbread(&Apache::lonenc::check_decrypt($content{'baseurl'}));
}	}
# Could not get a symb, give up	# Could not get a symb, give up
unless ($symb) { return $content{'citation'}; }	unless ($symb) { return $content{'citation'}; }