|
version 1.664, 2019/08/16 14:21:43
|
version 1.666, 2020/02/29 16:25:44
|
|
Line 1232 sub update_paste_buffer {
|
Line 1232 sub update_paste_buffer {
|
| |
|
| my @pathitems = split(/\&/,$env{'form.folderpath'}); |
my @pathitems = split(/\&/,$env{'form.folderpath'}); |
| my @folderconf = split(/\:/,$pathitems[-1]); |
my @folderconf = split(/\:/,$pathitems[-1]); |
| my $ispage = $folderconf[4]; |
my $ispage = $folderconf[5]; |
| |
|
| foreach my $item (@possibles) { |
foreach my $item (@possibles) { |
| my ($orderidx,$cmd) = split(/:/,$item); |
my ($orderidx,$cmd) = split(/:/,$item); |
|
Line 2329 sub copy_templated_files {
|
Line 2329 sub copy_templated_files {
|
| my @simpleprobqtypes = qw(radio option string essay numerical); |
my @simpleprobqtypes = qw(radio option string essay numerical); |
| my $qtype=$srcparms{$srcprefix.'questiontype'}; |
my $qtype=$srcparms{$srcprefix.'questiontype'}; |
| if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) { |
if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) { |
| my %newdata; |
my %newdata = ( |
| |
$newprefix.'questiontype' => $qtype, |
| |
); |
| foreach my $type (@simpleprobqtypes) { |
foreach my $type (@simpleprobqtypes) { |
| if ($type eq $qtype) { |
if ($type eq $qtype) { |
| $newdata{"$weightprefix.$type.weight"}=1; |
$newdata{"$weightprefix.$type.weight"}=1; |
|
Line 5635 sub handler {
|
Line 5637 sub handler {
|
| undef($env{'form.folderpath'}); |
undef($env{'form.folderpath'}); |
| } else { |
} else { |
| $folderurl = "uploaded/$coursedom/$coursenum/$folder"; |
$folderurl = "uploaded/$coursedom/$coursenum/$folder"; |
| if ((split(/\:/,$pathitems[-1]))[4]) { |
if ((split(/\:/,$pathitems[-1]))[5]) { |
| $folderurl .= '.page'; |
$folderurl .= '.page'; |
| } else { |
} else { |
| $folderurl .= '.sequence'; |
$folderurl .= '.sequence'; |
![[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