--- rat/lonratedt.pm 2008/11/20 14:38:00 1.91
+++ rat/lonratedt.pm 2009/12/04 11:13:58 1.98
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.91 2008/11/20 14:38:00 jms Exp $
+# $Id: lonratedt.pm,v 1.98 2009/12/04 11:13:58 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -58,6 +58,7 @@ sub ratedt {
&Apache::loncommon::start_page('Edit Sequence',$js,
{'frameset' => 1,
'add_entries' => \%layout});
+
my $end_page =
&Apache::loncommon::end_page({'frameset' => 1});
@@ -75,19 +76,29 @@ ENDDOCUMENT
sub buttons {
my $adv=shift;
- my $output='
';
+ return $output.'';
}
# ----------------------------------------------------------------- Edit script
@@ -214,7 +225,6 @@ ENDSCRIPT
sub smpedt {
my ($r,$url,$errtext)=@_;
- my $buttons=&buttons(2);
my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp';
my $targetmsg='';
if ($env{'form.save'}) {
@@ -236,7 +246,7 @@ sub smpedt {
}
if (-e $tmpfn) {
$targetmsg=
- ''.&mt('You are working with an unsaved version of your map.').'
';
+ ''.&mt('You are working with an unsaved version of your map.').'
';
my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');
}
# ---------------------------------------------------------- Process form input
@@ -540,81 +550,97 @@ sub smpedt {
ENDJS
- my $start_page = &Apache::loncommon::start_page(undef,$js).
- &Apache::loncommon::help_open_menu('Sequence_Simple_Editor_Creation',
- 'Sequence_Simple_Editor_Creation',
- 6,'RAT');
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ text => 'Construction Space',
+ href => &Apache::loncommon::authorspace(),
+ faq => 6,
+ bug => 'RAT',
+ help => 'Sequence_Simple_Editor_Creation',});
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ text => 'RAT',
+ title => 'Resource Assembly Tool',
+ href => '',});
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ text => 'Editor',
+ title => 'Simple Editor',
+ href => '',});
+
+ # Breadcrumbs are included by &start_page
+ my $start_page = &Apache::loncommon::start_page('Construction Space',$js)
+ .&Apache::loncommon::head_subbox(
+ &Apache::loncommon::CSTR_pageheader()
+ .&buttons(2));
my $end_page = &Apache::loncommon::end_page();
$r->print(<$errtext
-
$end_page
ENDSMPHEAD
@@ -624,21 +650,45 @@ ENDSMPHEAD
sub nodir {
my ($r,$dir)=@_;
$dir=~s{^/home/$LONCAPA::username_re/public_html}{};
- $r->print(&Apache::loncommon::start_page(undef,undef,
- {'only_body' => 1,
- 'bgcolor' => '#FFFFFF',}).
- "No such directory: $dir
".
- &Apache::loncommon::end_page());
+ my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
+ 'text' => 'Construction Space'}];
+# {'href' => '',
+# 'text' => 'No such directory'}];
+ $r->print(&Apache::loncommon::start_page('Construction Space',
+ undef,
+ {'bread_crumbs' => $brcrum,})
+ .&Apache::loncommon::head_subbox(
+ &Apache::loncommon::CSTR_pageheader())
+ .''
+ .&mt('No such directory: [_1]',''.$dir.''
+ .'
'
+ .&Apache::loncommon::end_page())
+ );
}
# ---------------------------------------------------------------- View Handler
sub viewmap {
my ($r,$url,$adv,$errtext)=@_;
- $r->print(
- &Apache::loncommon::start_page('Edit Content of a Map').
- &Apache::loncommon::help_open_menu('','',6,'RAT').
- &buttons($adv));
+
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ text => 'Construction Space',
+ href => &Apache::loncommon::authorspace(),
+ faq => 6,
+ bug => 'RAT',
+ help => 'Sequence_Simple_Editor_Creation',});
+ &Apache::lonhtmlcommon::add_breadcrumb({
+ text => 'RAT',
+ title => 'Resource Assembly Tool',
+ href => '',});
+
+ # Breadcrumbs are included by &start_page
+ $r->print(&Apache::loncommon::start_page('Edit Content of a Map')
+ .&Apache::loncommon::head_subbox(
+ &Apache::loncommon::CSTR_pageheader()
+ .&buttons($adv))
+ );
if ($errtext) {
$r->print(''
.$errtext
@@ -647,7 +697,7 @@ sub viewmap {
);
}
my $idx=0;
- $r->print('
'.$url.'
');
+ $r->print('
'.$url.'
');
if ($adv) {
$r->print('
'
.&mt('Map contents are not shown in order.')