loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.668, 2020/03/03 01:16:35	version 1.671, 2020/07/01 20:08:53
Line 1227 sub update_paste_buffer {	Line 1227 sub update_paste_buffer {
} elsif ($url =~ m{^/res/$match_domain/$match_username/}) {	} elsif ($url =~ m{^/res/$match_domain/$match_username/}) {
$pasteurls{$url} = 1;	$pasteurls{$url} = 1;
} else {	} else {
$pasteurls{$cid.'_'.$url} = 1;	$pasteurls{$cid.'_'.$url} = 1;
}	}
}	}
}	}
Line 4203 END	Line 4203 END
if (&Apache::lonnet::symbverify($symb,$url)) {	if (&Apache::lonnet::symbverify($symb,$url)) {
my $shownsymb = $symb;	my $shownsymb = $symb;
if ($isexternal) {	if ($isexternal) {
if ($url =~ /^([^#]+)#([^#]+)$/) {	$url =~ s/\#[^#]+$//;
$url = $1;
$anchor = $2;
my $escan = &escape('#');
$shownsymb =~ s/^([^\#]+)#([^\#]+)$/$1$escan$2/;
}
if ($container eq 'page') {	if ($container eq 'page') {
$url = &Apache::lonnet::clutter($url);	$url = &Apache::lonnet::clutter($url);
}	}
Line 4865 sub short_urls {	Line 4860 sub short_urls {
$r->rflush();	$r->rflush();
my $readonly;	my $readonly;
if ($canedit) {	if ($canedit) {
my ($numnew,$errors) = &Apache::loncommon::make_short_symbs($cdom,$cnum,$navmap);	my ($numnew,$errors) = &Apache::loncommon::get_requested_shorturls($cdom,$cnum,$navmap);
if ($numnew) {	if ($numnew) {
$r->print('<p class="LC_info">'.&mt('Created [quant,_1,URL]',$numnew).'</p>');	$r->print('<p class="LC_info">'.&mt('Created [quant,_1,URL]',$numnew).'</p>');
}	}