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

Diff for /loncom/interface/portfolio.pm between versions 1.207 and 1.219

version 1.207, 2009/01/20 16:38:39 version 1.219, 2010/02/02 01:51:49
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 104  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 158  END Line 158  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 222  sub display_usage { Line 223  sub display_usage {
 '    <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".  '    <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".
 '   </div>'."\n".  '   </div>'."\n".
 '  </div>';  '  </div>';
     return $disk_meter;      return &Apache::loncommon::head_subbox($disk_meter);
 }  }
   
 sub display_directory_line {  sub display_directory_line {
Line 235  sub display_directory_line { Line 236  sub display_directory_line {
     $r->print($line); # contains first two cells of table      $r->print($line); # contains first two cells of table
     my $lock_info;      my $lock_info;
     if ($version_flag) { # versioned can't be versioned, so TRUE when root file      if ($version_flag) { # versioned can't be versioned, so TRUE when root file
         $r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');          $r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" class="LC_fileicon" /></td>');
         $r->print('<td>'.$version_flag.'</td>');          $r->print('<td>'.$version_flag.'</td>');
     } else { # this is a graded or handed back file      } else { # this is a graded or handed back file
         my ($user,$domain) = &get_name_dom($env{'form.group'});          my ($user,$domain) = &get_name_dom($env{'form.group'});
Line 413  sub display_directory { Line 414  sub display_directory {
                     $colspan_fill=' colspan="4"';                      $colspan_fill=' colspan="4"';
                 }                  }
  $r->print('<tr class="LC_browser_folder">');   $r->print('<tr class="LC_browser_folder">');
                 $r->print('<td'.$colspan_folder.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>'                  $r->print('<td'.$colspan_folder.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'navmap.folder.closed.gif" class="LC_fileicon" /></td>'
                          .'<td>'.&mt('Go to ...').'</td>');                           .'<td>'.&mt('Go to ...').'</td>');
                 my %anchor_fields = (                  my %anchor_fields = (
                     'selectfile'    => $filename.'/',                      'selectfile'    => $filename.'/',
Line 452  sub display_directory { Line 453  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('Catalog Information').                              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 521  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 1357  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 1545  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 1579  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 1721  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 2137  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 2245  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;
Line 2273  sub handler { Line 2273  sub handler {
     } else {      } else {
         ($uname,$udom) = &get_name_dom();          ($uname,$udom) = &get_name_dom();
         $portfolio_root = &get_portfolio_root();          $portfolio_root = &get_portfolio_root();
         $title = &mt('Portfolio Manager');          $title = &mt('My Space');
         $can_modify = 1;          $can_modify = 1;
         $can_delete = 1;          $can_delete = 1;
         $can_upload = 1;          $can_upload = 1;
Removed from v.1.207  
changed lines
  Added in v.1.219

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