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

Diff for /loncom/interface/portfolio.pm between versions 1.208 and 1.212.2.4

version 1.208, 2009/02/10 12:12:13 version 1.212.2.4, 2010/02/12 19:19:21
Line 88  sub display_common { Line 88  sub display_common {
   
         my $iconpath= $r->dir_config('lonIconsURL') . "/";          my $iconpath= $r->dir_config('lonIconsURL') . "/";
         my %lt=&Apache::lonlocal::texthash(          my %lt=&Apache::lonlocal::texthash(
  'upload' => 'Upload',                     'upload'          => 'Upload',
  'upload_label' => 'Upload file to current directory',                     'upload_label'    => 'Upload file to current directory',
  'createdir' => 'Create Subdirectory',                     'createdir'       => 'Create Subdirectory',
  'createdir_label' =>                      'createdir_label' => 'Create subdirectory in current directory',
  'Create subdirectory in current directory',                     'parse'           => 'Upload embedded images/multimedia/css/linked files if HTML file',
                                          'parse' => 'If HTML file, upload embedded images/multimedia/css/linked files'                 );
                                             );  
         my $escuri = &HTML::Entities::encode($r->uri,'&<>"');          my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
  my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');   my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
  my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');   my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');
Line 105  sub display_common { Line 105  sub display_common {
             $parse_check = <<"END";              $parse_check = <<"END";
         <br />          <br />
         <span class="LC_nobreak">          <span class="LC_nobreak">
          <label>$lt{'parse'}           <label>
          <input type="checkbox" name="parserflag" checked="checked" />            <input type="checkbox" name="parserflag" checked="checked" />
             $lt{'parse'}
          </label>           </label>
         </span>          </span>
 END  END
Line 117  END Line 118  END
         $r->print('<div class="LC_left_float">'          $r->print('<div class="LC_left_float">'
                  .'<form method="post" enctype="multipart/form-data" action="'.$escuri.'">'                   .'<form method="post" enctype="multipart/form-data" action="'.$escuri.'">'
                  .'<fieldset>'                   .'<fieldset>'
                  .'<legend>'.$lt{'upload_label'}.'</legend>'                   .'<legend><b>'.$lt{'upload_label'}.'</b></legend>'
                  .$groupitem                    .$groupitem 
                  .'<input name="uploaddoc" type="file" />'                   .'<input name="uploaddoc" type="file" />'
                  .'<input type="hidden" name="currentpath" value="'.$current_path.'" />'                   .'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
Line 135  END Line 136  END
         $r->print('<div class="LC_left_float">'          $r->print('<div class="LC_left_float">'
                  .'<form method="post" action="'.$escuri.'">'                   .'<form method="post" action="'.$escuri.'">'
                  .'<fieldset>'                   .'<fieldset>'
                  .'<legend>'.$lt{'createdir_label'}.'</legend>'                   .'<legend><b>'.$lt{'createdir_label'}.'</b></legend>'
                  .'<input name="newdir" type="text" />'.$groupitem                   .'<input name="newdir" type="text" />'.$groupitem
                  .'<input type="hidden" name="currentpath" value="'.$current_path.'" />'                   .'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
                  .'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'                   .'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
Line 158  END Line 159  END
         'fieldname'     => $env{"form.fieldname"},          'fieldname'     => $env{"form.fieldname"},
         'continue'      => $env{"form.continue"}          'continue'      => $env{"form.continue"}
     );      );
       $r->print('<br clear="all" />');
     $r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/');      $r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/');
     if (@tree > 1){      if (@tree > 1){
         my $newCurrentPath = '/';          my $newCurrentPath = '/';
Line 452  sub display_directory { Line 454  sub display_directory {
                             $line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';                              $line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';
                         }                          }
                         if ($can_modify) {                          if ($can_modify) {
                             my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'"/>';                              my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'" title="'.&mt('Metadata').'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.png').'" />';
 # src="'.#&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';  
                             my %anchor_fields = (                              my %anchor_fields = (
                                 'rename' => $filename,                                  'rename' => $filename,
                                 currentpath => $current_path                                  currentpath => $current_path
Line 521  sub display_directory { Line 522  sub display_directory {
             <input type="hidden" name="mode" value="selectfile" />              <input type="hidden" name="mode" value="selectfile" />
             <p>              <p>
             <input type="submit" name="submit" value="'.&mt('Select checked files, and continue selecting').'" /><br />              <input type="submit" name="submit" value="'.&mt('Select checked files, and continue selecting').'" /><br />
             <input type="button" name="doit" onClick= "finishSelect();" value="'.&mt('Select checked files, and close window').'" />              <input type="button" name="doit" onClick="finishSelect();" value="'.&mt('Select checked files, and close window').'" />
             </p>              </p>
             <input type="hidden" name="currentpath" value="'.$current_path.'" />              <input type="hidden" name="currentpath" value="'.$current_path.'" />
         </form>');                  </form>');        
Line 1357  sub standard_settings { Line 1358  sub standard_settings {
         &build_access_summary($r,$count,$chg,%conditionals);          &build_access_summary($r,$count,$chg,%conditionals);
         $r->print(&Apache::loncommon::end_data_table());          $r->print(&Apache::loncommon::end_data_table());
     } else {      } else {
         $r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt('based on domain, username, or course affiliation.'));          $r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt('based on domain, username, or course/community affiliation.'));
     }      }
 }  }
   
Line 1545  sub course_row { Line 1546  sub course_row {
             $r->print('</table>');              $r->print('</table>');
         }          }
         $r->print('<br />'.&mt('Add a roles-based condition').          $r->print('<br />'.&mt('Add a roles-based condition').
                   '&nbsp;<input type="checkbox" name ="add_role_'.                    '&nbsp;<input type="checkbox" name="add_role_'.
                   $num.'" onClick="javascript:setRoleOptions('."'$num',                    $num.'" onClick="javascript:setRoleOptions('."'$num',
                   '$max_id','$content->{'domain'}','$content->{'number'}',                    '$max_id','$content->{'domain'}','$content->{'number'}',
                   '$uctype'".')" value="" />');                    '$uctype'".')" value="" />');
         $newrole_id = $max_id;          $newrole_id = $max_id;
     } else {      } else {
         $r->print('<input type="hidden" name ="add_role_'.$num.'" value="" />');          $r->print('<input type="hidden" name="add_role_'.$num.'" value="" />');
     }      }
     $r->print(&add_course_role($num,$newrole_id));      $r->print(&add_course_role($num,$newrole_id));
     $r->print('</td>');      $r->print('</td>');
Line 1579  sub domains_row { Line 1580  sub domains_row {
  foreach my $dom (@{$all_doms}) {   foreach my $dom (@{$all_doms}) {
             if ((@{$content->{'dom'}} > 0)               if ((@{$content->{'dom'}} > 0) 
  && (grep(/^\Q$dom\E$/,@{$content->{'dom'}}))) {   && (grep(/^\Q$dom\E$/,@{$content->{'dom'}}))) {
                 $dom_select .= '<option value="'.$dom.'" selected>'.                  $dom_select .= '<option value="'.$dom.'" selected="selected">'.
                                $dom.'</option>';                                 $dom.'</option>';
             } else {              } else {
                 $dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';                  $dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';
Line 1721  sub role_selectors { Line 1722  sub role_selectors {
             if ($caller eq 'display') {              if ($caller eq 'display') {
                 if ((@{$$content{'roles'}{$role_id}{$item}} > 0) &&                   if ((@{$$content{'roles'}{$role_id}{$item}} > 0) && 
                     (grep(/^\Q$entry\E$/,@{$$content{'roles'}{$role_id}{$item}}))) {                      (grep(/^\Q$entry\E$/,@{$$content{'roles'}{$role_id}{$item}}))) {
                     $output .= '  <option value="'.$entry.'" selected>'.                      $output .= '  <option value="'.$entry.'" selected="selected">'.
                                   $lookup{$item}{$entry}.'</option>';                                    $lookup{$item}{$entry}.'</option>';
                     next;                      next;
                 }                  }
Line 2137  sub missing_priv { Line 2138  sub missing_priv {
     $r->print(&mt('You do not have sufficient privileges to [_1] ',      $r->print(&mt('You do not have sufficient privileges to [_1] ',
                   $longtext->{$priv}));                    $longtext->{$priv}));
     if (defined($env{'form.group'})) {      if (defined($env{'form.group'})) {
         $r->print(&mt("in the group's file repository."));          $r->print(&mt("in the group's group portfolio."));
         $rtnlink .= &group_args()          $rtnlink .= &group_args()
     } else {      } else {
         $r->print(&mt('in this portfolio.'));          $r->print(&mt('in this portfolio.'));
Line 2245  sub handler { Line 2246  sub handler {
                 $r->print(&mt('Not a valid group for this course'));                  $r->print(&mt('Not a valid group for this course'));
                 $earlyout = 1;                  $earlyout = 1;
             }              }
             $title = &mt('Group files for [_1]', $group);               $title = &mt('Group portfolio for [_1]', $group); 
         } else {          } else {
             $r->print(&mt('Invalid group'));              $r->print(&mt('Invalid group'));
             $earlyout = 1;              $earlyout = 1;
Removed from v.1.208  
changed lines
  Added in v.1.212.2.4

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