[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface courseprefs.pm

[raeburn]

raeburn		Fri Nov 19 14:58:35 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	courseprefs.pm 
  Log:
  - Backport 1.32, 1.33.
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.8.2.14 loncom/interface/courseprefs.pm:1.8.2.15
--- loncom/interface/courseprefs.pm:1.8.2.14	Fri Sep 17 23:57:33 2010
+++ loncom/interface/courseprefs.pm	Fri Nov 19 14:58:35 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.8.2.14 2010/09/17 23:57:33 raeburn Exp $
+# $Id: courseprefs.pm,v 1.8.2.15 2010/11/19 14:58:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -709,8 +709,8 @@
                                 if (exists($env{'form.cloners_activate'})) {
                                     my $actnum = $env{'form.cloners_activate'};
                                     if ($actnum ne '') {
-                                        if ($env{'form.clonersdom_'.$actnum} ne '') {
-                                            my $clonedom = $env{'form.clonersdom_'.$actnum};
+                                        if ($env{'form.cloners_dom_'.$actnum} ne '') {
+                                            my $clonedom = $env{'form.cloners_dom_'.$actnum};
                                             if (&check_clone($clonedom,$disallowed) eq 'ok') {
                                                 $newvalues{$entry} = '*:'.$clonedom;
                                                 push(@clonedoms,$newvalues{$entry});
@@ -1312,7 +1312,7 @@
                                         if ($key eq 'url') {
                                             my $bkuptime=time;
                                             $output .= (' 'x2).&mt('(Previous URL backed up)').': '.
-                                            $storehash{'top level map backup '.$bkuptime} => $values->{$key};
+                                            $storehash{'top level map backup '.$bkuptime} = $values->{$key};
                                         }
                                         $output .= '</li>';
                                     }