|
version 1.322, 2008/12/15 06:09:37
|
version 1.324, 2008/12/15 16:37:44
|
|
Line 1280 sub do_paste_from_buffer {
|
Line 1280 sub do_paste_from_buffer {
|
| # Maps need to be copied first |
# Maps need to be copied first |
| if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) { |
if (($url=~/\.(page|sequence)$/) && ($url=~/^\/uploaded\//)) { |
| $title=&mt('Copy of').' '.$title; |
$title=&mt('Copy of').' '.$title; |
| my $newid=$$.time; |
my $newid=$$.int(rand(100)).time; |
| my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/); |
my ($oldid,$ext) = ($url=~/^(.+)\.(\w+)$/); |
| if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) { |
if ($oldid =~ m{^(/uploaded/\Q$coursedom\E/\Q$coursenum\E/)(\D+)(\d+)$}) { |
| my $path = $1; |
my $path = $1; |
|
Line 2632 sub handler {
|
Line 2632 sub handler {
|
| } |
} |
| # -------------------------------------------------------------------- Body tag |
# -------------------------------------------------------------------- Body tag |
| $script = '<script type="text/javascript">'."\n".$script."\n".'</script>'; |
$script = '<script type="text/javascript">'."\n".$script."\n".'</script>'; |
| my @brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}]; |
my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}]; |
| $r->print(&Apache::loncommon::start_page("$type Documents", $script, |
$r->print(&Apache::loncommon::start_page("$type Documents", $script, |
| {'force_register' => $showdoc, bread_crumbs => @brcrum}). |
{'force_register' => $showdoc, |
| |
'bread_crumbs' => $brcrum}). |
| &Apache::loncommon::help_open_menu('','',273,'RAT')); |
&Apache::loncommon::help_open_menu('','',273,'RAT')); |
| |
|
| my %allfiles = (); |
my %allfiles = (); |
![[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