[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[raeburn]

raeburn		Fri Aug 16 14:22:50 2019 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - Bug 6794. Simple problems can be copied within a course, and between
    courses using the clipboard.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.664 loncom/interface/londocs.pm:1.665
--- loncom/interface/londocs.pm:1.664	Fri Aug 16 14:21:43 2019
+++ loncom/interface/londocs.pm	Fri Aug 16 14:22:49 2019
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.664 2019/08/16 14:21:43 raeburn Exp $
+# $Id: londocs.pm,v 1.665 2019/08/16 14:22:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2329,7 +2329,9 @@
         my @simpleprobqtypes = qw(radio option string essay numerical);
         my $qtype=$srcparms{$srcprefix.'questiontype'};
         if (grep(/^\Q$qtype\E$/, at simpleprobqtypes)) {
-            my %newdata;
+            my %newdata = (
+                $newprefix.'questiontype' => $qtype,
+            );
             foreach my $type (@simpleprobqtypes) {
                 if ($type eq $qtype) {
                     $newdata{"$weightprefix.$type.weight"}=1;