--- loncom/interface/londocs.pm 2010/12/05 16:40:11 1.411.2.7 +++ loncom/interface/londocs.pm 2010/01/13 14:32:57 1.412 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.411.2.7 2010/12/05 16:40:11 raeburn Exp $ +# $Id: londocs.pm,v 1.412 2010/01/13 14:32:57 wenzelju Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,7 +41,6 @@ use Apache::lonratedt(); use Apache::lonxml; use Apache::lonclonecourse; use Apache::lonnavmaps; -use Apache::londocsgci; use HTML::Entities; use GDBM_File; use Apache::lonlocal; @@ -2619,15 +2618,6 @@ 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 =~ /^\w+citest$/) { - my $coursenum = $env{'course.'.$env{'request.course.id'}.'.num'}; - my $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'}); - if ($allowed) { - &concept_test_builder($r,$coursedom,$coursenum); - return OK; - } - } # --------------------------------------------- Initialize help topics for this foreach my $topic ('Adding_Course_Doc','Main_Course_Documents', @@ -2982,9 +2972,9 @@ FUFORM SEDFFORM my @simpleeditdefaultforma = ( - { ''.&mt('Search').'' => "$uploadtag$lt{'srch'}" }, - { ''.&mt('Import').'' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, - { ''.&mt('Import Bookmarks').'' => "$lt{'book'}" }, + { ''.$lt{srch}.'' => "$uploadtag$lt{'srch'}" }, + { ''.$lt{impo}.'' => "$lt{'impo'}$help{'Importing_LON-CAPA_Resource'}" }, + { ''.$lt{book}.'' => "$lt{'book'}" }, ); $simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma)); $simpleeditdefaultform .=(< NGFFORM @specialdocumentsforma=( - {''.&mt('New Composite Page').''=>$newpageform}, - {''.&mt('Syllabus').''=>$newsylform}, - {''.&mt('Group Portfolio').''=>$newgroupfileform}, + {''.$lt{newp}.''=>$newpageform}, + {''.$lt{syll}.''=>$newsylform}, + {''.$lt{grpo}.''=>$newgroupfileform}, ); } - 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},); + push @specialdocumentsforma, ({''.$lt{navc}.''=>$newnavform}, + {''.$lt{sipa}.''=>$newsmppageform}, + {''.$lt{sipr}.''=>$newsmpproblemform}, + {''.$lt{drbx}.''=>$newdropboxform}, + {''.$lt{scuf}.''=>$newexuploadform}, + {''.$lt{bull}.''=>$newbulform}, + {''.$lt{mypi}.''=>$newaboutmeform}, + {''.$lt{abou}.''=>$newaboutsomeoneform}, + {''.$lt{rost}.''=>$newrosterform},); $specialdocumentsform = create_form_ul(create_list_elements(@specialdocumentsforma)); @@ -3302,9 +3292,9 @@ if($env{'form.pagepath'}) { } my @tools = ( - {''.&mt('External Resource').''=>$extresourcesform}, - {''.&mt('IMS Import').''=>$imspform}, - {''.&mt('Recover Deleted Resources').''=>$recoverform}, + {''.$lt{extr}.''=>$extresourcesform}, + {''.$lt{imsf}.''=>$imspform}, + {''.$lt{reco}.''=>$recoverform}, ); my %orderhash = ( @@ -3419,9 +3409,9 @@ SNAMFORM my @specialdocs = ( - {''.&mt('External Resource').''=>$supnewextform}, - {''.&mt('Syllabus').''=>$supnewsylform}, - {''.&mt('My Personal Information Page').''=>$supnewaboutmeform}, + {''.$lt{extr}.''=>$supnewextform}, + {''.$lt{syll}.''=>$supnewsylform}, + {''.$lt{mypi}.''=>$supnewaboutmeform}, ); my %suporderhash = ( '00' => ['Supnewfolder', $supnewfolderform], @@ -3476,22 +3466,24 @@ sub generate_admin_options { 'vc' => 'Verify Content', 'cv' => 'Check/Set Resource Versions', 'ls' => 'List Symbs', - 'sl' => 'Show Log' + 'sl' => 'Show Log', + 'imse' => 'IMS Export', + 'dcd' => 'Dump Course DOCS to Construction Space: available on other servers' ); my %help = %{$help_ref}; my %env = %{$env_ref}; my $dumpbut=&dumpbutton(); my $exportbut=&exportbutton(); my @list = ( - {''.&mt('Verify Content').''=>"$lt{'vc'}$help{'Verify_Content'}"}, - {''.&mt('Check/Set Resource Versions').''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, + {''.$lt{vc}.''=>"$lt{'vc'}$help{'Verify_Content'}"}, + {''.$lt{cv}.''=>"$lt{'cv'}$help{'Check_Resource_Versions'}"}, ); if($dumpbut ne ''){ - push @list, {''.&mt('Dump Course DOCS to Construction Space: available on other servers').''=>$dumpbut}; + push @list, {''.$lt{dcd}.''=>$dumpbut}; } - push @list, ({''.&mt('IMS Export').''=>$exportbut}, - {''.&mt('List Symbs').''=>"$lt{'ls'}"}, - {''.&mt('Show Log').''=>"$lt{'sl'}"}, + push @list, ({''.$lt{imse}.''=>$exportbut}, + {''.$lt{ls}.''=>"$lt{'ls'}"}, + {''.$lt{sl}.''=>"$lt{'sl'}"}, ); return '
'.create_form_ul(create_list_elements(@list)).'
'; @@ -3542,74 +3534,6 @@ sub generate_edit_table { return $form; } -sub concept_test_builder { - my ($r,$cdom,$cnum) = @_; - &Apache::londocsgci::setdefaults($cdom); - if ($env{'form.context'} eq 'requestcrs') { - if ($env{'form.phase'} eq 'storemap') { - &Apache::londocsgci::evaluate(); - my $error = &Apache::londocsgci::store('requestcrs',$cdom,$cnum); - my $output = '

'; - if ($error) { - $output .= ''. - &mt('An error occurred saving your concept test: [_1].',$error). - ''; - } else { - &Apache::lonuserstate::readmap($cdom.'/'.$cnum); - $output .= &mt('Your concept test has been saved.'); - } - $output .= '

'; - if (&Apache::lonrequestcourse::generate_page($r,'new','chooseitems')) { - my $formname = 'requestcrs'; - $r->print('
'); - my $title = &mt('Concept Test Created'); - &Apache::lonrequestcourse::roster_upload_form($r,$output,$formname,$title); - } - $r->print(&Apache::loncommon::end_page()); - return; - } - } - my $js = ' - -'; - $r->print(&Apache::loncommon::start_page('Assemble Test',$js)); - &Apache::lonhtmlcommon::clear_breadcrumbs(); - &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/coursedocs', - text=>"Assemble Test"}); - if ($env{'form.phase'} eq 'storemap') { - &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/coursedocs?phase=storemap', - text=>"Validate Test"}); - &Apache::londocsgci::evaluate(); - $r->print(&Apache::lonhtmlcommon::breadcrumbs - ('Build Concept Test','Concept_Test_Assembly')); - $r->print(&Apache::londocsgci::store('edit',$cdom,$cnum)); - } elsif ($env{'form.phase'} eq 'storeparms') { - &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/coursedocs?phase=storeparms', - text=>"Set Availability"}); - $r->print(&Apache::lonhtmlcommon::breadcrumbs - ('Build Concept Test','Concept_Test_Assembly')); - $r->print(&Apache::londocsgci::store_dates_parms($cdom,$cnum)); - $r->print(&Apache::loncommon::end_page()); - return; - } else { - $r->print(&Apache::lonhtmlcommon::breadcrumbs - ('Build Concept Test','Concept_Test_Assembly')); - } - &Apache::londocsgci::load($cdom); - &Apache::londocsgci::listresources($r,'edit',$cdom,$cnum); - $r->print(&Apache::loncommon::end_page()); - return; -} - sub editing_js { my ($udom,$uname) = @_; my $now = time();