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

Diff for /loncom/interface/lonmeta.pm between versions 1.222 and 1.226

version 1.222, 2008/12/13 21:56:57 version 1.226, 2009/03/17 20:07:45
Line 338  sub pre_select_course { Line 338  sub pre_select_course {
         &Apache::lonpublisher::metaeval($result);          &Apache::lonpublisher::metaeval($result);
     }      }
     $r->print('<hr /><form method="post" action="" >');      $r->print('<hr /><form method="post" action="" >');
     $r->print('<p>'.&mt('If you would like to associate this resource ([_1]) with a current or previous course, please select one from the list below, otherwise select, \'None\'','<tt>'.$res_uri.'</tt>').'</p>');      $r->print('<p>'.&mt('If you would like to associate this resource ([_1]) with a current or previous course, please select one from the list below, otherwise select, "None".','<tt>'.$res_uri.'</tt>').'</p>');
     $output = &select_course();      $output = &select_course();
     $r->print($output.'<br /><input type="submit" name="store" value="'.      $r->print($output.'<br /><input type="submit" name="store" value="'.
                   &mt('Associate Resource With Selected Course').'" />');                    &mt('Associate Resource With Selected Course').'" />');
Line 432  sub prettyprint { Line 432  sub prettyprint {
     }      }
     # Title      # Title
     if ($type eq 'title') {      if ($type eq 'title') {
  return '<font size="+1" face="arial">'.$value.'</font>';   return $value;
     }      }
     # Dates      # Dates
     if (($type eq 'creationdate') ||      if (($type eq 'creationdate') ||
Line 482  sub prettyprint { Line 482  sub prettyprint {
  ($type eq 'comefrom_list') ||   ($type eq 'comefrom_list') ||
  ($type eq 'sequsage_list') ||   ($type eq 'sequsage_list') ||
  ($type eq 'dependencies')) {   ($type eq 'dependencies')) {
  return '<font size="-1"><ul>'.join("\n",map {   return '<ul class="LC_fontsize_medium">'.join("\n",map {
             my $url = &Apache::lonnet::clutter_with_no_wrapper($_);              my $url = &Apache::lonnet::clutter_with_no_wrapper($_);
             my $title = &Apache::lonnet::gettitle($url);              my $title = &Apache::lonnet::gettitle($url);
             if ($title eq '') {              if ($title eq '') {
Line 500  sub prettyprint { Line 500  sub prettyprint {
                 }                   } 
             }              }
             $_ = '<li>'.$title.' '.              $_ = '<li>'.$title.' '.
  &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat).   &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat).
                 '</li>'                  '</li>'
     } split(/\s*\,\s*/,$value)).'</ul></font>';      } split(/\s*\,\s*/,$value)).'</ul>';
     }      }
     # Evaluations      # Evaluations
     if (($type eq 'clear') ||      if (($type eq 'clear') ||
Line 519  sub prettyprint { Line 519  sub prettyprint {
     # List of courses      # List of courses
     if ($type=~/\_list/) {      if ($type=~/\_list/) {
         my @Courses = split(/\s*\,\s*/,$value);          my @Courses = split(/\s*\,\s*/,$value);
         my $Str='<font size="-1"><ul>';          my $Str='<ul class="LC_fontsize_medium">';
  my %descriptions;   my %descriptions;
         foreach my $course (@Courses) {          foreach my $course (@Courses) {
             my %courseinfo =              my %courseinfo =
Line 538  sub prettyprint { Line 538  sub prettyprint {
     $Str .= $descriptions{$course};      $Str .= $descriptions{$course};
  }   }
   
  return $Str.'</ul></font>';   return $Str.'</ul>';
     }      }
     # No pretty print found      # No pretty print found
     return $value;      return $value;
Line 556  sub selectbox { Line 556  sub selectbox {
     }      }
     my $selout='<select name="'.$name.'">';      my $selout='<select name="'.$name.'">';
     foreach my $id (@idlist) {      foreach my $id (@idlist) {
         $selout.='<option value=\''.$id.'\'';          $selout.='<option value="'.$id.'"';
         if ($id eq $value) {          if ($id eq $value) {
     $selout.=' selected>'.&{$functionref}($id).'</option>';      $selout.=' selected>'.&{$functionref}($id).'</option>';
         } else {          } else {
Line 762  sub handler { Line 762  sub handler {
     } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) {      } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/portfolio/|) {
     ($resdomain,$resuser)=      ($resdomain,$resuser)=
  (&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|);   (&Apache::lonnet::declutter($uri)=~m|^($match_domain)/($match_name)/portfolio|);
         $r->print(&Apache::loncommon::start_page('Edit Portfolio File Catalog Information',          $r->print(&Apache::loncommon::start_page('Edit Portfolio File Metadata',
  undef,   undef,
  {'domain' => $resdomain,}));   {'domain' => $resdomain,}));
         if ($env{'form.store'}) {          if ($env{'form.store'}) {
Line 781  sub handler { Line 781  sub handler {
             }              }
         }          }
     } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {      } elsif ($uri=~m|^/editupload/[^/]+/[^/]+/groups/|) {
         $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Catalog Information',          $r->print(&Apache::loncommon::start_page('Edit Group Portfolio File Metadata',
  undef,   undef,
  {'domain' => $resdomain,}));   {'domain' => $resdomain,}));
         &present_editable_metadata($r,$uri,'groups');              &present_editable_metadata($r,$uri,'groups');    
     } elsif ($uri=~m|^/~|) {       } elsif ($uri=~m|^/~|) { 
         # Construction space          # Construction space
         $r->print(&Apache::loncommon::start_page('Edit Catalog Information',          $r->print(&Apache::loncommon::start_page('Edit Metadata',
  "\n".'<script type="text/javascript">'."\n".   "\n".'<script type="text/javascript">'."\n".
                                                 &Apache::loncommon::browser_and_searcher_javascript().                                                  &Apache::loncommon::browser_and_searcher_javascript().
                                                 "\n".'</script>',                                                  "\n".'</script>',
Removed from v.1.222  
changed lines
  Added in v.1.226

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