--- loncom/interface/lonwhatsnew.pm 2007/06/06 17:35:32 1.72 +++ loncom/interface/lonwhatsnew.pm 2007/09/26 12:34:19 1.73 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.72 2007/06/06 17:35:32 albertel Exp $ +# $Id: lonwhatsnew.pm,v 1.73 2007/09/26 12:34:19 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -99,28 +99,28 @@ sub handler { text=>"Display Action Items"}); if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, + ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, text=>"Change thresholds"}); $r->print(&Apache::lonhtmlcommon::breadcrumbs ("What's New?",#'Course_Action_Items_Thresholds' )); } elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, + ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, text=>"Change interval"}); $r->print(&Apache::lonhtmlcommon::breadcrumbs ("What's New?",#'Course_Action_Items_Intervals' )); } elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage, + ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage, text=>"Change discussion display"}); $r->print(&Apache::lonhtmlcommon::breadcrumbs ("What's New?",#'Course_Action_Items_Intervals' )); } elsif ($command eq 'courseinit') { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage, + ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage, text=>"Course initialization preference"}); $r->print(&Apache::lonhtmlcommon::breadcrumbs ("What's New?",#'Course_Action_Items_Initialization' @@ -295,7 +295,7 @@ sub display_actions_box { my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')'; unless ($cid) { - $r->print('
'.$lt{'yacc'}.'


'); + $r->print('

'.$lt{'yacc'}.'

'); return; } @@ -304,14 +304,14 @@ sub display_actions_box { &GDBM_READER(),0640)) { my $furl=$bighash{'first_url'}; untie(%bighash); - $r->print(''.$lt{'gtfr'}. - '
'); + $r->print(''.$lt{'gtfr'}. + '
'); } } $r->print(&mt('Page set to be displayed after you have selected a role in this '.$lctype). - '. '.&mt('Currently: [_1]',$currinit).'.  '. - &mt('Change for just this '.$lctype.'',$refpage).' '. - &mt('or for all your courses.',$refpage).'

'); + '. '.&mt('Currently: [_1]',$currinit).'.  '. + &mt('Change for just this '.$lctype.'',$refpage).' '. + &mt('or for all your courses.',$refpage).'

'); if ($command eq 'reset') { $result = &process_reset($cdom,$crs); @@ -411,7 +411,7 @@ sub display_actions_box { } } - $r->print('
- -
'); + $r->print('
'); my $displayed = 0; my $totalboxes = 0; @@ -426,20 +426,17 @@ sub display_actions_box { foreach my $actionitem (@actionorder) { if ($$checkallowed{$actionitem}) { if ($displayed == $halfway) { - $r->print(' '); + $r->print(' '); } &display_launcher($r,$actionitem,$refpage,$checkallowed,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread); $displayed ++; } } $r->print(' -
-
- '); + +'); } #------------------------------- @@ -612,9 +609,9 @@ END if ($choice eq $control) { $chkstring = ' checked="checked" '; } - $r->print(''); + '  '); } $r->print('

'.&mt('If').' '.$$initpage{'coursespecific'}. ' -
'.$lt{'chce'}.": \n"); @@ -623,9 +620,9 @@ END if (($choice eq $current) && ($control eq 'coursespecific')) { $chkstring = ' checked="checked" '; } - $r->print(''); + '  '); } $r->print('

'); @@ -1526,7 +1523,7 @@ sub start_box { $r->print(' - + '); if (($caller eq 'abovethreshold') && ($$show{$caller})) {
'.$$heading{$caller}.''.$$heading{$caller}.' '.$showhide.'