version 1.166, 2017/11/12 16:23:03
|
version 1.168, 2021/01/25 18:06:55
|
Line 211 if ($student_names=~/_END_/) {
|
Line 211 if ($student_names=~/_END_/) {
|
@names_pack=split(/_ENDPERSON_/,$student_names); |
@names_pack=split(/_ENDPERSON_/,$student_names); |
} |
} |
if ($backref) { |
if ($backref) { |
|
if ($backref =~ m{^(/uploaded/$LONCAPA::match_domain/$LONCAPA::match_courseid/default_\d+.page)}) { |
|
$backref = $1; |
|
} |
print('<p>'.&mt("[_1]Return[_2] to resource.", |
print('<p>'.&mt("[_1]Return[_2] to resource.", |
"<a href=\"$backref\"><b>","</b></a>").'</p>'); |
"<a href=\"$backref\"><b>","</b></a>").'</p>'); |
print('<p><a href="javascript:gopost(\'/adm/printout\',\''.$backref.'\');">'. |
print('<p><a href="javascript:gopost(\'/adm/printout\',\''.$backref.'\');">'. |
Line 981 sub convert_figure {
|
Line 984 sub convert_figure {
|
&File::Path::mkpath($path,0,0777); |
&File::Path::mkpath($path,0,0777); |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/^\s+//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/\s+$//; |
$not_eps =~ s/ /\\ /g; |
|
my $prettyname=$not_eps; |
my $prettyname=$not_eps; |
if ($advanced_role) { |
if ($advanced_role) { |
$prettyname=~s|$perlvar{'lonDocRoot'}/|/|; |
$prettyname=~s|$perlvar{'lonDocRoot'}/|/|; |