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

raeburn raeburn at source.lon-capa.org
Thu Dec 4 09:27:06 EST 2014


raeburn		Thu Dec  4 14:27:06 2014 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Bug 6752: Cutting or copying items without a title in Course Editor
    - Use filename when displaying item in clipboard in place of the title.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.588 loncom/interface/londocs.pm:1.589
--- loncom/interface/londocs.pm:1.588	Tue Nov 25 04:32:13 2014
+++ loncom/interface/londocs.pm	Thu Dec  4 14:27:06 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.588 2014/11/25 04:32:13 raeburn Exp $
+# $Id: londocs.pm,v 1.589 2014/12/04 14:27:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1191,10 +1191,14 @@
                     $icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));
                     $icon .= '/navmap.folder.closed.gif';
                 }
+                my $title = $env{'docs.markedcopy_title_'.$suffix};
+                if ($title eq '') {
+                    ($title) = ($url =~ m{/([^/]+)$});
+                }
                 $buffer = '<img src="'.$icon.'" alt="" class="LC_icon" />'.
                           ': '.
                           &Apache::loncommon::parse_supplemental_title(
-                             &LONCAPA::map::qtescape($env{'docs.markedcopy_title_'.$suffix}));
+                             &LONCAPA::map::qtescape($title));
             }
             $pasteitems .= '<div class="LC_left_float">';
             my ($options,$onclick);




More information about the LON-CAPA-cvs mailing list