--- loncom/interface/londocs.pm 2003/12/30 20:47:23 1.97 +++ loncom/interface/londocs.pm 2004/02/04 20:53:54 1.102 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.97 2003/12/30 20:47:23 albertel Exp $ +# $Id: londocs.pm,v 1.102 2004/02/04 20:53:54 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -511,7 +511,7 @@ sub checkonthis { if (($Apache::lonxml::errorcount) || ($Apache::lonxml::warningcount)) { if ($Apache::lonxml::errorcount) { - $r->print(''. + $r->print(''. $Apache::lonxml::errorcount.' '. &mt('error(s)').' '); } @@ -535,7 +535,11 @@ sub checkonthis { } elsif ($result==HTTP_SERVICE_UNAVAILABLE) { $r->print(''.&mt('connection down').''); } elsif ($result==HTTP_NOT_FOUND) { - $r->print(''.&mt('not found').''); + unless ($url=~/\$/) { + $r->print(''.&mt('not found').''); + } else { + $r->print(''.&mt('unable to verify variable URL').''); + } } else { $r->print(''.&mt('access denied').''); } @@ -723,7 +727,10 @@ ENDHEADERS &Apache::lonnet::gettitle($linkurl). '
'.$linkurl. ''. - &Apache::lonlocal::locallocaltime($changes{$_}). + &Apache::lonlocal::locallocaltime( + &Apache::lonnet::metadata($root.'.'.$extension, + 'lastrevisiondate') + ). ''. $currentversion.''); # Used in course @@ -929,6 +936,21 @@ function makebulboard() { } } +function makeabout() { + var user=prompt("Enter user\@domain for User's 'About Me' Page"); + if (user) { + var comp=new Array(); + comp=user.split('\@'); + if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) { + if ((comp[0]) && (comp[1])) { + this.document.forms.newaboutsomeone.importdetail.value= + 'About '+user+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme'; + this.document.forms.newaboutsomeone.submit(); + } + } + } +} + function finishpick() { var title=this.document.forms.extimport.title.value; var url=this.document.forms.extimport.url.value; @@ -962,7 +984,9 @@ ENDNEWSCRIPT # -------------------------------------------------------------------- Body tag $r->print(''. &Apache::loncommon::bodytag('Course Documents','',$events, - '','',$showdoc)); + '','',$showdoc). + &Apache::loncommon::help_open_faq(273). + &Apache::loncommon::help_open_bug('RAT')); unless ($showdoc) { # ----------------------------------------------------------------------------- my %lt=&Apache::lonlocal::texthash( @@ -984,6 +1008,7 @@ ENDNEWSCRIPT 'scuf' => 'Score Upload Form', 'bull' => 'Bulletin Board', 'mypi' => 'My Personal Info', + 'abou' => 'About User', 'file' => 'File', 'title' => 'Title', 'comment' => 'Comment' @@ -1168,6 +1193,15 @@ value="$plainname=/adm/$udom/$uname/abou $help{'My Personal Info'} +
+ + + + + + +
ENDFORM