--- loncom/interface/londocs.pm 2009/10/31 19:54:51 1.408 +++ loncom/interface/londocs.pm 2009/12/07 02:22:24 1.411.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.408 2009/10/31 19:54:51 raeburn Exp $ +# $Id: londocs.pm,v 1.411.2.1 2009/12/07 02:22:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2478,7 +2478,7 @@ ENDHEADERS ('select_form_order' => ['',1..$currentversion,'mostrecent'], '' => '', - 'mostrecent' => 'most recent', + 'mostrecent' => &mt('most recent'), map {$_,$_} (1..$currentversion)))); $r->print(''); my $lastold=1; @@ -2618,6 +2618,14 @@ sub handler { return OK if $r->header_only; my $crstype = &Apache::loncommon::course_type(); + my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'}; + if ($coursedom eq 'gcitest') { + my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); + if ($allowed) { + &concept_test_builder($r); + return OK; + } + } # --------------------------------------------- Initialize help topics for this foreach my $topic ('Adding_Course_Doc','Main_Course_Documents', @@ -2682,7 +2690,12 @@ sub handler { &Apache::loncommon::restore_course_settings('docs_folderpath', {'folderpath' => 'scalar'}); } - if (!$env{'form.folderpath'}) { + if (!$allowed) { + unless($env{'form.folderpath'} =~ /^supplemental/) { + $env{'form.folderpath'} = ''; + } + } + if (!$env{'form.folderpath'} && $allowed) { &Apache::loncommon::restore_course_settings('docs_folderpath', {'pagepath' => 'scalar'}); } @@ -2967,9 +2980,9 @@ FUFORM SEDFFORM my @simpleeditdefaultforma = ( - { 'pic03' => "$uploadtag$lt{'srch'}" }, - { 'pic04' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, - { 'pic05' => "$lt{'book'}" }, + { ''.&mt('Search').'' => "$uploadtag$lt{'srch'}" }, + { ''.&mt('Import').'' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, + { ''.&mt('Import Bookmarks').'' => "$lt{'book'}" }, ); $simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma)); $simpleeditdefaultform .=(< NGFFORM @specialdocumentsforma=( - {'pic06'=>$newpageform}, - {'pic07'=>$newsylform}, - {'pic08'=>$newgroupfileform}, + {''.&mt('New Composite Page').''=>$newpageform}, + {''.&mt('Syllabus').''=>$newsylform}, + {''.&mt('Group Portfolio').''=>$newgroupfileform}, ); } - push @specialdocumentsforma, ({'pic09'=>$newnavform}, - {'pic10'=>$newsmppageform}, - {'pic11'=>$newsmpproblemform}, - {'pic12'=>$newdropboxform}, - {'pic13'=>$newexuploadform}, - {'pic14'=>$newbulform}, - {'pic15'=>$newaboutmeform}, - {'pic16'=>$newaboutsomeoneform}, - {'pic17'=>$newrosterform},); + push @specialdocumentsforma, ({''.&mt('Navigate Contents').''=>$newnavform}, + {''.&mt('Simple Course Page').''=>$newsmppageform}, + {''.&mt('Simple Problem').''=>$newsmpproblemform}, + {''.&mt('Drop Box').''=>$newdropboxform}, + {''.&mt('Score Upload Form').''=>$newexuploadform}, + {''.&mt('Discussion Board').''=>$newbulform}, + {''.&mt('My Personal Information Page').''=>$newaboutmeform}, + {''.&mt('Personal Information Page for a User').''=>$newaboutsomeoneform}, + {''.&mt('Course Roster').''=>$newrosterform},); $specialdocumentsform = create_form_ul(create_list_elements(@specialdocumentsforma)); if($env{'form.pagepath'}) { @specialdocumentsforma=( - {'pic32'=>$newsmpproblemform}, - {'pic33'=>$newexuploadform} + {''.&mt('Simple Problem').''=>$newsmpproblemform}, + {''.&mt('Score Upload Form').''=>$newexuploadform} ); $specialdocumentsform= create_form_ul(create_list_elements(@specialdocumentsforma)); } my @tools = ( - {'pic18'=>$extresourcesform}, - {'pic19'=>$imspform}, - {'pic20'=>$recoverform}, + {''.&mt('External Resource').''=>$extresourcesform}, + {''.&mt('IMS Import').''=>$imspform}, + {''.&mt('Recover Deleted Resources').''=>$recoverform}, ); my %orderhash = ( @@ -3404,9 +3417,9 @@ SNAMFORM my @specialdocs = ( - {'pic29'=>$supnewextform}, - {'pic30'=>$supnewsylform}, - {'pic31'=>$supnewaboutmeform}, + {''.&mt('External Resource').''=>$supnewextform}, + {''.&mt('Syllabus').''=>$supnewsylform}, + {''.&mt('My Personal Information Page').''=>$supnewaboutmeform}, ); my %suporderhash = ( '00' => ['Supnewfolder', $supnewfolderform], @@ -3468,15 +3481,15 @@ sub generate_admin_options { my $dumpbut=&dumpbutton(); my $exportbut=&exportbutton(); my @list = ( - {'pic21'=>"$lt{'vc'}$help{'Verify_Content'}"}, - {'pic22'=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, + {''.&mt('Verify Content').''=>"$lt{'vc'}$help{'Verify_Content'}"}, + {''.&mt('Check/Set Resource Versions').''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, ); if($dumpbut ne ''){ - push @list, {'pic23'=>$dumpbut}; + push @list, {''.&mt('Dump Course DOCS to Construction Space: available on other servers').''=>$dumpbut}; } - push @list, ({'pic24'=>$exportbut}, - {'pic25'=>"$lt{'ls'}"}, - {'pic26'=>"$lt{'sl'}"}, + push @list, ({''.&mt('IMS Export').''=>$exportbut}, + {''.&mt('List Symbs').''=>"$lt{'ls'}"}, + {''.&mt('Show Log').''=>"$lt{'sl'}"}, ); return '
'.create_form_ul(create_list_elements(@list)).'
'; @@ -3527,6 +3540,20 @@ sub generate_edit_table { return $form; } +sub concept_test_builder { + my ($r) = @_; + $r->print(&Apache::loncommon::start_page('Assemble Test')); + &Apache::londocsgci::setdefaults(); + if ($env{'form.phase'} eq 'storemap') { + &Apache::londocsgci::evaluate(); + &Apache::londocsgci::store($r); + } + &Apache::londocsgci::load(); + &Apache::londocsgci::listresources($r); + $r->print(&Apache::loncommon::end_page()); + return; +} + sub editing_js { my ($udom,$uname) = @_; my $now = time();