[BACK]Return to lonfeedback.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonfeedback.pm between versions 1.362 and 1.368

version 1.362, 2013/01/03 20:41:45 version 1.368, 2013/10/04 03:04:45
Line 468  imscp_v1p1.xsd http://www.imsglobal.org/ Line 468  imscp_v1p1.xsd http://www.imsglobal.org/
             my $numhidden = keys(%notshown);              my $numhidden = keys(%notshown);
             if ($numhidden > 0) {              if ($numhidden > 0) {
                 my $colspan = $maxdepth+1;                  my $colspan = $maxdepth+1;
                 $discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">'.                  $discussion.="\n".'<tr><td bgcolor="#CCCCCC" colspan="'.$colspan.'">';
                          '<a href="/adm/feedback?allposts=1&amp;symb='.$escsymb;                  my $href = '/adm/feedback?allposts=1&amp;symb='.$escsymb;
                 if ($newpostsflag) {                  if ($newpostsflag) {
                     $discussion .= '&amp;previous='.$prevread;                      $href .= '&amp;previous='.$prevread;
                 }                  }
  $discussion .= &group_args($group);   $href .= &group_args($group);
                 $discussion .= '">'.&mt('Show all posts').'</a> '.&mt('to display').' '.  
                          $numhidden.' ';  
                 if ($showunmark) {                  if ($showunmark) {
                     $discussion .= &mt('posts previously marked read');                      $discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously marked read',
                                          '<a href="'.$href.'">','</a>',$numhidden);
                 } else {                  } else {
                     $discussion .= &mt('previously viewed posts');                      $discussion .= &mt('[_1]Show all posts[_2] to display [quant,_3,post] previously viewed',
                                          '<a href="'.$href.'">','</a>',$numhidden);
                 }                  }
                 $discussion .= '<br/></td></tr>';                  $discussion .= '<br/></td></tr>';
             }              }
Line 1952  END Line 1952  END
   
   my %onload = ('onload' => 'window.focus();setposttype();');    my %onload = ('onload' => 'window.focus();setposttype();');
   my %parms=('add_entries' => \%onload);    my %parms=('add_entries' => \%onload);
   if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum }    if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }
   my $start_page=    my $start_page=
       &Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms);        &Apache::loncommon::start_page('Resource Feedback and Discussion',$js,\%parms);
   
Line 2582  sub print_showposters { Line 2582  sub print_showposters {
     my $table_start =&Apache::loncommon::start_data_table();      my $table_start =&Apache::loncommon::start_data_table();
     $r->print(<<END);      $r->print(<<END);
 $start_page  $start_page
  <form name="pickpostersform" method="post">   <form name="pickpostersform" method="post" action="">
  <br />   <br />
     $table_start      $table_start
       <tr>        <tr>
Line 3490  END Line 3490  END
     my $brcrum = [{'href' => '',      my $brcrum = [{'href' => '',
                    'text' => 'Discussion Post Attachments'}];                     'text' => 'Discussion Post Attachments'}];
     my %parms=('only_body' => 1);      my %parms=('only_body' => 1);
     if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }      if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }
   
     my $start_page =       my $start_page = 
  &Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);   &Apache::loncommon::start_page('Discussion Post Attachments',$js,\%parms);
Line 3908  sub handler { Line 3908  sub handler {
                      'text' => 'Discussion Post Versions'}];                       'text' => 'Discussion Post Versions'}];
               
       my %parms=();        my %parms=();
       if ($env{'form.modal'} ne 'yes') { 'bread_crumbs' => $brcrum }        if ($env{'form.modal'} ne 'yes') { $parms{'bread_crumbs'} = $brcrum; }
   
       $r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms));        $r->print(&Apache::loncommon::start_page('Discussion Post Versions',undef,\%parms));
   
Line 3990  sub handler { Line 3990  sub handler {
           $discinfo{$lastkey} = $env{'form.navtime'};            $discinfo{$lastkey} = $env{'form.navtime'};
       }        }
       my $textline = '<b>'.        my $textline = '<b>'.
                      &mt('Marked "New" posts as read in a total of [_1] resources/bulletin boards.',                       &mt('Marked "New" posts as read in a total of [_1] resources/discussion boards.',
                          $numitems).                           $numitems).
                      '</b>';                       '</b>';
       if ($numitems > 0) {        if ($numitems > 0) {
Line 4423  ENDREDIR Line 4423  ENDREDIR
                                                 $cdom,$cnum);                                                  $cdom,$cnum);
           $contrib{'deleted'} =~ s/^\.//;            $contrib{'deleted'} =~ s/^\.//;
           $contrib{'deleted'} =~ s/\.$//;            $contrib{'deleted'} =~ s/\.$//;
             my $confirm_msg;
           if ($contrib{'deleted'} ne '') {            if ($contrib{'deleted'} ne '') {
               if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},                if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},
                                           $cdom,$cnum) eq 'ok') {                                            $cdom,$cnum) eq 'ok') {
Line 4450  ENDREDIR Line 4451  ENDREDIR
                                             $uname,$udom,$env{'request.course.id'},                                              $uname,$udom,$env{'request.course.id'},
                                             'undelete');                                              'undelete');
                   }                    }
                   $r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries")));                    $confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"));
               } else {                } else {
                   $r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1));                    $confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1);
               }                }
           } else {            } else {
               $r->print(&Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1));                $confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1);
           }            }
           $r->print("<br /><a href='$feedurl'>".&mt("Return and reload")."</a>");            $r->print(
                 '<br />'
                .&Apache::loncommon::confirmwrapper($confirm_msg)
                .&Apache::lonhtmlcommon::actionbox(
                     ["<a href='$feedurl'>".&mt("Return and reload")."</a>"])
             );
       }        }
       $r->print(&Apache::loncommon::end_page());        $r->print(&Apache::loncommon::end_page());
       return OK;        return OK;
Removed from v.1.362  
changed lines
  Added in v.1.368

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>