version 1.115, 2004/04/07 21:40:21
|
version 1.116, 2004/04/07 22:32:18
|
Line 261 sub group_import {
|
Line 261 sub group_import {
|
sub breadcrumbs { |
sub breadcrumbs { |
my ($where)=@_; |
my ($where)=@_; |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
if ($where =~ /^default/) { |
my (@folders)=split('&',$ENV{'form.folderpath'}); |
&Apache::lonhtmlcommon::add_breadcrumb({'href'=>'/adm/coursedocs', |
my $folderpath; |
'title'=>'Main Course Documents', |
while (@folders) { |
'text' =>'Main Course Documents'}); |
my $folder=shift(@folders); |
} elsif ($where =~ /^supplemental/) { |
my $foldername=shift(@folders); |
&Apache::lonhtmlcommon::add_breadcrumb({'href'=>'/adm/coursedocs', |
if ($folderpath) {$folderpath.='&';} |
'title'=>'Supplemental Course Documents', |
$folderpath.=$folder.'&'.$foldername; |
'text' =>'Supplemental Course Documents'}); |
my $url='/adm/coursedocs?folderpath='. |
|
&Apache::lonnet::escape($folderpath); |
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb({'href'=>'/adm/coursedocs', |
|
'title'=>$where, |
|
'text' =>$where}); |
|
} |
|
if ($ENV{'form.foldername'}) { |
|
my @folders; |
|
if (defined($ENV{'form.folders'})) { |
|
@folders=@{$ENV{'form.folders'}}; |
|
} |
|
@folders=(@folders,$ENV{'form.folder'}, |
|
&Apache::lonnet::escape($ENV{'form.foldername'})); |
|
|
|
my $folderpath; |
|
while (@folders) { |
|
my $folder=shift(@folders); |
|
my $foldername=shift(@folders); |
|
if ($folderpath) {$folderpath.='&';} |
|
$folderpath.=$folder.'&'.$foldername; |
|
my $url='/adm/coursedocs?folderpath='. |
|
&Apache::lonnet::escape($folderpath); |
|
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{'href'=>$url, |
{'href'=>$url, |
'title'=>&Apache::lonnet::unescape($foldername), |
'title'=>&Apache::lonnet::unescape($foldername), |
'text'=>&Apache::lonnet::unescape($foldername)}); |
'text'=>&Apache::lonnet::unescape($foldername)}); |
|
|
|
|
} |
|
} |
} |
return &Apache::lonhtmlcommon::breadcrumbs(); |
return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,undef,undef,undef,0); |
} |
} |
|
|
sub editor { |
sub editor { |
Line 954 sub handler {
|
Line 932 sub handler {
|
my (@folderpath)=split('&',$ENV{'form.folderpath'}); |
my (@folderpath)=split('&',$ENV{'form.folderpath'}); |
$ENV{'form.foldername'}=&Apache::lonnet::unescape(pop(@folderpath)); |
$ENV{'form.foldername'}=&Apache::lonnet::unescape(pop(@folderpath)); |
$ENV{'form.folder'}=pop(@folderpath); |
$ENV{'form.folder'}=pop(@folderpath); |
$ENV{'form.folders'}=\@folderpath; |
} |
} |
|
if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) { |
if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) { |
$showdoc=$1; |
$showdoc=$1; |
} |
} |
Line 1174 ENDCOURSEVERIFY
|
Line 1151 ENDCOURSEVERIFY
|
#my $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"'); |
#my $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"'); |
$r->print('<table border=2 cellspacing=4 cellpadding=4>'); |
$r->print('<table border=2 cellspacing=4 cellpadding=4>'); |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
$r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents'). |
$r->print('<tr><td bgcolor="#BBBBBB">'); |
($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>'); |
# '<h2>'.&mt('Main Course Documents'). |
|
# ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>'); |
my $folder=$ENV{'form.folder'}; |
my $folder=$ENV{'form.folder'}; |
if ($folder eq '') { |
if ($folder eq '') { |
$folder='default'; |
$folder='default'; |
|
$ENV{'form.folderpath'}='default&'.&Apache::lonnet::escape(&mt('Main Course Documents')); |
} |
} |
my $postexec=''; |
my $postexec=''; |
if ($folder eq 'default') { |
if ($folder eq 'default') { |
Line 1330 ENDFORM
|
Line 1309 ENDFORM
|
} |
} |
# ----------------------------------------------------- Supplemental documents |
# ----------------------------------------------------- Supplemental documents |
if (!$forcestandard) { |
if (!$forcestandard) { |
$r->print( |
$r->print('<tr><td bgcolor="#BBBBBB">'); |
'<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Supplemental Course Documents'). |
# '<h2>'.&mt('Supplemental Course Documents'). |
($allowed?' '.$help{'Supplemental'}:'').'</h2>'); |
# ($allowed?' '.$help{'Supplemental'}:'').'</h2>'); |
my $folder=$ENV{'form.folder'}; |
my $folder=$ENV{'form.folder'}; |
unless ($folder=~/supplemental/) { $folder='supplemental'; } |
unless ($folder=~/supplemental/) { |
|
$folder='supplemental'; |
|
$ENV{'form.folderpath'}='supplemental&'.&Apache::lonnet::escape(&mt('Supplemental Course Documents'));; |
|
} |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
if ($allowed) { |
if ($allowed) { |
my $folderseq= |
my $folderseq= |