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

[raeburn]

raeburn		Fri Oct 24 00:25:13 2014 EDT

  Modified files:              (Branch: version_2_11_X)
    /loncom/interface	londocs.pm 
  Log:
  - For 2.11
    - Backport 1.587.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.484.2.55 loncom/interface/londocs.pm:1.484.2.56
--- loncom/interface/londocs.pm:1.484.2.55	Tue Oct 14 21:08:14 2014
+++ loncom/interface/londocs.pm	Fri Oct 24 00:25:12 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.484.2.55 2014/10/14 21:08:14 raeburn Exp $
+# $Id: londocs.pm,v 1.484.2.56 2014/10/24 00:25:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3826,6 +3826,7 @@
     if ($type eq 'paste') {
         $prefix = $type;
         $namespace = 'courseeditor';
+        $idtype = 'addcode';
     } elsif ($type eq 'map') {
         $prefix = 'docs';
         if ($area eq 'supplemental') {
@@ -3837,9 +3838,8 @@
         $prefix = $type;
         $namespace = 'templated';
     }
-    $idtype = 'concat';
     my ($suffix,$freedlock,$error) =
-        &Apache::lonnet::get_timebased_id($prefix,'num',$namespace,$dom,$num);
+        &Apache::lonnet::get_timebased_id($prefix,'num',$namespace,$dom,$num,$idtype);
     if (!$suffix) {
         if ($type eq 'paste') {
             $errtext = &mt('Failed to acquire a unique timestamp-based suffix when adding to the paste buffer.');