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

[raeburn]

raeburn		Wed Dec 22 16:46:44 2010 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	courseprefs.pm 
  Log:
  - Backport 1.32, 1.33.
  
  
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.28.2.3 loncom/interface/courseprefs.pm:1.28.2.4
--- loncom/interface/courseprefs.pm:1.28.2.3	Fri Sep 17 23:59:27 2010
+++ loncom/interface/courseprefs.pm	Wed Dec 22 16:46:43 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.28.2.3 2010/09/17 23:59:27 raeburn Exp $
+# $Id: courseprefs.pm,v 1.28.2.4 2010/12/22 16:46:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -720,8 +720,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});
@@ -1329,7 +1329,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>';
                                     }