--- loncom/interface/londocs.pm 2007/06/29 20:14:18 1.279
+++ loncom/interface/londocs.pm 2007/06/29 21:08:07 1.280
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.279 2007/06/29 20:14:18 albertel Exp $
+# $Id: londocs.pm,v 1.280 2007/06/29 21:08:07 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1671,17 +1671,17 @@ sub entryline {
my $line='
';
# Edit commands
my $container;
- my $folderpath;
+ my ($container, $type, $esc_path, $path, $symb);
if ($env{'form.folderpath'}) {
+ $type = 'folder';
$container = 'sequence';
- $folderpath=&escape($env{'form.folderpath'});
+ $esc_path=&escape($path = $env{'form.folderpath'});
# $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');
}
- my ($pagepath,$pagesymb);
if ($env{'form.pagepath'}) {
- $container = 'page';
- $pagepath=&escape($env{'form.pagepath'});
- $pagesymb=&escape($env{'form.pagesymb'});
+ $type = $container = 'page';
+ $esc_path=&escape($path = $env{'form.pagepath'});
+ $symb=&escape($env{'form.pagesymb'});
}
my $cpinfo='';
if ($env{'form.markedcopy_url'}) {
@@ -1737,82 +1737,52 @@ sub entryline {
}
my $copylink=' ';
my $cutlink=' ';
- if ($env{'form.pagepath'}) {
- if (!$nocopy) {
- $copylink=(<
-$lt{'cp'}
-ENDCOPY
- }
- if (!$nocut) {
- $cutlink=(<
-$lt{'ct'}
-ENDCUT
- }
- $line.=(<
-
-
-
-
-
-
-
-
-
- |
-
-
- |
- |
-$selectbox
- |
-
-$lt{'rm'}
-$cutlink
-
-$lt{'rn'}
-$copylink
-END
- } else {
- if (!$nocopy) {
- $copylink=(<
-$lt{'cp'} |
+
+ if (!$nocopy) {
+ $copylink=(<
+$lt{'cp'}
ENDCOPY
- }
- if (!$nocut) {
- $cutlink=(<
+ }
+ if (!$nocut) {
+ $cutlink=(<
$lt{'ct'}
ENDCUT
- }
- $line.=(<
-
-
-
-
-
-
-
-
- |
-
-
- |
- |
-$selectbox
- |
-
-$lt{'rm'}
+ }
+ $line.=(<
+
+
+
+
+
+
+
+
+
+
+
+ |
+
+
+
+
+ |
+
+
+ |
+
+ $selectbox
+ |
+
+ $lt{'rm'}
$cutlink
-
-$lt{'rn'}
+ $lt{'rn'}
$copylink
+ |
END
- }
+
}
# Figure out what kind of a resource this is
my ($extension)=($url=~/\.(\w+)$/);
|