|
version 1.484.2.70, 2017/03/15 02:05:20
|
version 1.484.2.71, 2017/05/10 21:24:23
|
|
Line 1959 sub get_newmap_url {
|
Line 1959 sub get_newmap_url {
|
| sub dbcopy { |
sub dbcopy { |
| my ($dbref,$coursedom,$coursenum,$lockerrorsref) = @_; |
my ($dbref,$coursedom,$coursenum,$lockerrorsref) = @_; |
| my ($url,$result,$errtext); |
my ($url,$result,$errtext); |
| $url = $dbref->{'src'}; |
|
| if (ref($dbref) eq 'HASH') { |
if (ref($dbref) eq 'HASH') { |
| |
$url = $dbref->{'src'}; |
| if ($url =~ m{/(smppg|bulletinboard)$}) { |
if ($url =~ m{/(smppg|bulletinboard)$}) { |
| my $prefix = $1; |
my $prefix = $1; |
| if (($dbref->{'cdom'} =~ /^$match_domain$/) && |
if (($dbref->{'cdom'} =~ /^$match_domain$/) && |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface