' + .&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($url), + 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.''.$url.'
'); if ($adv) { - $r->print(''.&mt('Map contents are not shown in order.').'
' + .&mt('Map contents are not shown in order.') + .'
'.&mt('Type').' | '. - ''.&mt('Title in map').' | '. - ''.&mt('Filename of resource').' | '. - ''.&mt('Link to published resource').' | '. - ''.&mt('Link to resource in Construction Space').' | '. - ''.&mt('Type').' | ' + .''.&mt('Title in map').' | ' + .''.&mt('Filename of resource').' | ' + .''.&mt('Link to published resource').' | ' + .''.&mt('Link to resource in Construction Space').' | ' + .&Apache::loncommon::end_data_table_header_row() + ); foreach (&LONCAPA::map::attemptread(&Apache::lonnet::filelocation('',$url))) { if (defined($_)) { $idx++; @@ -806,24 +727,35 @@ sub viewmap { $filename = $1; } my $cstrurl = $resurl; - $cstrurl =~ s#^/res/[^/]+/([^/]+)/#/priv/$1/#; - my $bgcol = $idx%2; - $r->print('
---|---|---|---|---|---|---|---|---|
'. - ' | '.&HTML::Entities::encode(&LONCAPA::map::qtescape($title)). - ' | '.$filename.' | '); + $cstrurl =~ s{^/res/}{/priv/}; + $r->print(&Apache::loncommon::start_data_table_row() + .' | ' + .'' + .' | ' + .'' + .&HTML::Entities::encode(&LONCAPA::map::qtescape($title)) + .' | ' + .''.$filename.' | ' + .'' + ); if ($url) { $r->print(''.&mt('Resource space').''); + } else { + $r->print(' '); } $r->print(' | '); if ($url) { $r->print(''. &mt('Construction space').''); + } else { + $r->print(' '); } - $r->print(' |