');
+}
+
+#
+# End tabs
+#
+sub endContentScreen {
+ my ($r)=@_;
+ $r->print('
--- loncom/interface/londocs.pm 2011/05/27 19:39:25 1.434.2.4 +++ loncom/interface/londocs.pm 2010/12/07 01:15:39 1.442 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.434.2.4 2011/05/27 19:39:25 raeburn Exp $ +# $Id: londocs.pm,v 1.442 2010/12/07 01:15:39 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1660,7 +1660,7 @@ sub editor { .'
'.&mt('Unable to save file [_1].',''.$filename.'').'
'; return; } @@ -1758,14 +1758,14 @@ sub process_file_upload { if ($total_embedded > 0) { my $uploadphase = 'upload_embedded'; my $primaryurl = &HTML::Entities::encode($url,'<>&"'); - my $state = &embedded_form_elems($uploadphase,$primaryurl,$newidx); - my ($embedded,$num) = + my $state = &embedded_form_elems($uploadphase,$primaryurl,$newidx); + my ($embedded,$num) = &Apache::loncommon::ask_for_embedded_content( '/adm/coursedocs',$state,$allfiles,$codebase,{'docs_url' => $url}); if ($embedded) { if ($num) { $$upload_output .= - ''.&mt('This file contains embedded multimedia objects, which need to be uploaded.').'
'.$embedded; + ''.&mt('This file contains embedded multimedia objects, which need to be uploaded.').'
'.$embedded; $nextphase = $uploadphase; } else { $$upload_output .= $embedded; @@ -2238,6 +2238,7 @@ sub list_symbs { my $crstype = &Apache::loncommon::course_type(); $r->print(&Apache::loncommon::start_page('Symb List')); $r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List')); + &startContentScreen($r,'tools'); my $navmap = Apache::lonnavmaps::navmap->new(); if (!defined($navmap)) { $r->print(''.&mt('Done').'
' - .'' - .&mt('Back to Course Editor') - .'
' - ); + $r->print(''.&mt('Done').'
'); } @@ -2300,6 +2295,8 @@ sub checkversions { my $crstype = &Apache::loncommon::course_type(); $r->print(&Apache::loncommon::start_page("Check $crstype Document Versions")); $r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Document Versions")); + &startContentScreen($r,'tools'); + my $header=''; my $startsel=''; my $monthsel=''; @@ -2610,8 +2607,76 @@ sub init_breadcrumbs { bug=>'Instructor Interface'}); } +# subroutine to list form elements +sub create_list_elements { + my @formarr = @_; + my $list = ''; + for my $button (@formarr){ + for my $picture(keys %$button) { + $list .= &Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text'}); + } + } + return $list; +} + +# subroutine to create ul from list elements +sub create_form_ul { + my $list = shift; + my $ul = &Apache::lonhtmlcommon::htmltag('ul',$list, {class => 'LC_ListStyleNormal'}); + return $ul; +} + +# +# Start tabs +# +sub startContentScreen { + my ($r,$mode)=@_; + $r->print(' '); + $r->print('