The Xims Project

Revision: 1825
          http://xims.svn.sourceforge.net/xims/?rev=1825&view=rev
Author:   haensel
Date:     2007-11-30 06:54:07 -0800 (Fri, 30 Nov 2007)

Log Message:
-----------
+ calm perlcritic.

Modified Paths:
--------------
    trunk/xims/lib/goxims.pm

Modified: trunk/xims/lib/goxims.pm
===================================================================
--- trunk/xims/lib/goxims.pm	2007-11-30 14:53:48 UTC (rev 1824)
+++ trunk/xims/lib/goxims.pm	2007-11-30 14:54:07 UTC (rev 1825)
@@ -5,7 +5,7 @@
 
 =head1 VERSION
 
-$Id:$
+$Id$
 
 =head1 SYNOPSIS
 
@@ -71,18 +71,18 @@
     #$XIMS::T0 = [Time::HiRes::gettimeofday()];
 
     XIMS::via_proxy_test($r) unless $r->pnotes('PROXY_TEST');
-    XIMS::Debug( 5, "goxims called from " .  $r->connection->remote_ip() );
+    XIMS::Debug( 5, "goxims called from " . $r->connection->remote_ip() );
 
     #my $apr = Apache::Request->new($r);
     my $ctxt = XIMS::AppContext->new( apache => $r );
 
     # set default 500 error document
-    $r->custom_response(SERVER_ERROR, XIMS::PUBROOT_URL() . "/500.xsp");
+    $r->custom_response( SERVER_ERROR, XIMS::PUBROOT_URL() . "/500.xsp" );
 
     my $publicuser = $r->dir_config('ximsPublicUserName');
 
     # getting interface
-    my $interface_type = getInterface( $r );
+    my $interface_type = getInterface($r);
     return NOT_FOUND unless $interface_type;
 
     # The public user should not have the interface 'user'
@@ -91,54 +91,75 @@
     }
 
     if ( not $publicuser ) {
+
         # we are coming in via /goxims
-        my $sessioninfo = readNotes( $r );
+        my $sessioninfo = readNotes($r);
 
-        if ( defined $sessioninfo->{session} 
-                 and $sessioninfo->{session}->user->id() == XIMS::Config::PublicUserID() ) {
+        if ( defined $sessioninfo->{session}
+            and $sessioninfo->{session}->user->id() ==
+            XIMS::Config::PublicUserID() )
+        {
+
             # Drop session if the public user is not coming in via /gopublic...
             $sessioninfo->{session}->delete();
             return FORBIDDEN;
         }
 
         # if we have a cookiestring, we'll set it to the context
-        if ( defined $sessioninfo->{cookie} and length $sessioninfo->{cookie} ) {
+        if ( defined $sessioninfo->{cookie} and length $sessioninfo->{cookie} )
+        {
             $ctxt->cookie( $sessioninfo->{cookie} );
         }
 
-        return SERVER_ERROR unless ( $sessioninfo->{provider} and $ctxt->data_provider( $sessioninfo->{provider} ) );
-        return SERVER_ERROR unless ( $sessioninfo->{session} and $ctxt->session( $sessioninfo->{session} ) );
+        return SERVER_ERROR
+          unless ( $sessioninfo->{provider}
+            and $ctxt->data_provider( $sessioninfo->{provider} ) );
+        return SERVER_ERROR
+          unless ( $sessioninfo->{session}
+            and $ctxt->session( $sessioninfo->{session} ) );
     }
     else {
+
         # using the ximsPublic role
         unless ( $ctxt->data_provider() ) {
-            $r->custom_response(SERVER_ERROR, XIMS::PUBROOT_URL() . "/500.xsp?reason=A%20database%20connection%20problem%20occured.");
+            $r->custom_response( SERVER_ERROR,
+                XIMS::PUBROOT_URL()
+                  . "/500.xsp?reason=A%20database%20connection%20problem%20occured."
+            );
             return SERVER_ERROR;
         }
 
         XIMS::Debug( 6, "setting user to $publicuser" );
-        my $sessionid  = Apache::AuthXIMS::get_session_cookie( $r );
+        my $sessionid = Apache::AuthXIMS::get_session_cookie($r);
         my $session;
         my $public = XIMS::User->new( name => $publicuser );
         if ( defined $sessionid and length $sessionid ) {
             $session = XIMS::Session->new( session_id => $sessionid );
             if ( defined $session ) {
-                XIMS::Debug( 4, "found existing session cookie, user already logged in" );
-                # fake session user's id to public user's id, so that actions happen in the context of the
-                # public user and the currently logged-in user does not need to logout while coming in via /gopublic/
+                XIMS::Debug( 4,
+                    "found existing session cookie, user already logged in" );
+
+                # fake session user's id to public user's id, so that
+                # actions happen in the context of the public user and
+                # the currently logged-in user does not need to logout
+                # while coming in via /gopublic/
                 $session->user_id( $public->id() );
             }
         }
 
         if ( not defined $session ) {
-            $session = XIMS::Session->new( 'user_id' => $public->id(),
-                                           'host'    => $r->connection->remote_ip() );
+            $session = XIMS::Session->new(
+                'user_id' => $public->id(),
+                'host'    => $r->connection->remote_ip()
+            );
             XIMS::Debug( 4, "setting session cookie for $publicuser" );
             Apache::AuthXIMS::set_session_cookie( $r, $session->session_id() );
         }
 
-        unless ( $session and $ctxt->session( $session ) ) {
-            $r->custom_response(SERVER_ERROR, XIMS::PUBROOT_URL() . "/500.xsp?reason=Could%20not%20create%20session.");
+        unless ( $session and $ctxt->session($session) ) {
+            $r->custom_response( SERVER_ERROR,
+                XIMS::PUBROOT_URL()
+                  . "/500.xsp?reason=Could%20not%20create%20session." );
             return SERVER_ERROR;
         }
     }
@@ -148,12 +169,17 @@
     $ctxt->session->date( $tp->ymd() . ' ' . $tp->hms() );
 
     # test if we are called through a proxy, set serverurl accordingly
-    my $uri = Apache::URI->parse( $r );
-    my $hostname = (defined $r->headers_in->{'X-Forwarded-Host'} and length $r->headers_in->{'X-Forwarded-Host'}) ? $r->headers_in->{'X-Forwarded-Host'} : $uri->hostinfo();
+    my $uri = Apache::URI->parse($r);
+    my $hostname =
+      ( defined $r->headers_in->{'X-Forwarded-Host'}
+          and length $r->headers_in->{'X-Forwarded-Host'} )
+      ? $r->headers_in->{'X-Forwarded-Host'}
+      : $uri->hostinfo();
     XIMS::Debug( 6, "setting serverurl to $hostname" );
-    $ctxt->session->serverurl( $uri->scheme . '://' . $hostname);
+    $ctxt->session->serverurl( $uri->scheme . '://' . $hostname );
 
-    # for now there is no user/browser based skin selection. the default values are used.
+    # for now there is no user/browser based skin selection. the default
+    # values are used.
     $ctxt->session->skin( XIMS::DEFAULT_SKIN() );
 
     # set UILanguage
@@ -163,32 +189,39 @@
     # Big fork here
     #
 
-    my $app_class = 'XIMS::CGI::';
+    my $app_class    = 'XIMS::CGI::';
     my $object_class = 'XIMS::';
 
     if ( $interface_type eq 'content' ) {
+
         # now we know, that we have to get the content-object
         $ctxt->object( getObject( $r, $ctxt->session->user() ) );
-        if ( not ($ctxt->object() and $ctxt->object->id()) ) {
+        if ( not( $ctxt->object() and $ctxt->object->id() ) ) {
+
             # in this case we could pass the user to a more informative
             # page, where one can select the defaultbookmark!!
 
             # emulate default 404 log entry
-            $r->log->warn("File does not exist: " . $r->document_root() . $r->uri());
+            $r->log->warn(
+                "File does not exist: " . $r->document_root() . $r->uri() );
             return NOT_FOUND;
         }
 
         my $ot_fullname = $ctxt->object->object_type->fullname();
         $object_class .= $ot_fullname;
 
+        ## no critic (ProhibitStringyEval)
         # load the object class
         eval "require $object_class;" if $object_class;
-        if ( $@ ) {
+        if ($@) {
             XIMS::Debug( 2, "could not load object class $object_class: $@" );
-            $r->custom_response(SERVER_ERROR, XIMS::PUBROOT_URL() . "/500.xsp?reason=Could%20not%20load%20object%20class%20$object_class.");
+            $r->custom_response( SERVER_ERROR,
+                XIMS::PUBROOT_URL()
+                  . "/500.xsp?reason=Could%20not%20load%20object%20class%20$object_class."
+            );
             return SERVER_ERROR;
         }
-
+        ## use critic
         # rebless the object
         XIMS::Debug( 4, "reblessing object to " . $object_class );
         bless $ctxt->object(), $object_class;
@@ -196,8 +229,9 @@
         # find out if we want to create an object!
         # if goxims finds an 'objtype'-param it assumes that it
         # is called to create a new object.
-        my %args = $r->args();
+        my %args    = $r->args();
         my $objtype = $args{objtype};
+
         # my $objtype = $apr->param('objtype');
         my $prefix;
         if ( defined $objtype and length $objtype ) {
@@ -210,12 +244,13 @@
             $prefix = lc $ot_fullname;
         }
         $prefix =~ s/::/_/g;
-        $ctxt->properties->application->styleprefix( $prefix );
-    }# end 'content' case
-    # think of XIMS::REGISTEREDINTERFACES() here
-    elsif ( $interface_type =~ /users?|bookmark|defaultbookmark/ ) {
+        $ctxt->properties->application->styleprefix($prefix);
+    }    # end 'content' case
+
+    # TODO: think of XIMS::REGISTEREDINTERFACES() here
+    elsif ( $interface_type =~ /users?|bookmark|defaultbookmark|search_intranet/ ) {
         $app_class .= $interface_type;
-        $ctxt->properties->application->styleprefix( $interface_type );
+        $ctxt->properties->application->styleprefix($interface_type);
     }
     else {
         return NOT_FOUND;
@@ -224,19 +259,27 @@
     ##
     # end interface-lookup
     ##
-
+    ## no critic (ProhibitStringyEval)
     eval "require $app_class";
-    if ( $@ ) {
+    if ($@) {
         XIMS::Debug( 2, "could not load application-class $app_class: $@" );
-        $r->custom_response(SERVER_ERROR, XIMS::PUBROOT_URL() . "/500.xsp?reason=Could%20not%20load%20application%20class%20$app_class.");
+        $r->custom_response( SERVER_ERROR,
+            XIMS::PUBROOT_URL()
+              . "/500.xsp?reason=Could%20not%20load%20application%20class%20$app_class."
+        );
         return SERVER_ERROR;
     }
-
+    ## use critic
     if ( my $appclass = $app_class->new() ) {
         XIMS::Debug( 4, "application-class $app_class initiated." );
-        $appclass->setStylesheetDir( XIMS::XIMSROOT() . '/skins/' . $ctxt->session->skin . '/stylesheets/' . $ctxt->session->uilanguage() );
-        my $rv = $appclass->run( $ctxt );
-        XIMS::Debug( 4, "application-class $app_class successfully run") if $rv;
+        $appclass->setStylesheetDir( XIMS::XIMSROOT()
+              . '/skins/'
+              . $ctxt->session->skin
+              . '/stylesheets/'
+              . $ctxt->session->uilanguage() );
+        my $rv = $appclass->run($ctxt);
+        XIMS::Debug( 4, "application-class $app_class successfully run" )
+          if $rv;
         return OK;
     }
 
@@ -262,7 +305,7 @@
 =cut
 
 sub readNotes {
-    my $r = shift;
+    my $r      = shift;
     my $retval = {};
 
     # Authentication modules have to set the session and user id. goxims
@@ -270,9 +313,9 @@
     # authentication has already finished at this stage, no extra session or
     # user validation is neccesary.
 
-    if ( $r ) {
-        $retval->{session}    =  $r->pnotes( 'ximsSession' );
-        $retval->{provider}   =  $r->pnotes( 'ximsProvider' );
+    if ($r) {
+        $retval->{session}  = $r->pnotes('ximsSession');
+        $retval->{provider} = $r->pnotes('ximsProvider');
     }
     else {
         XIMS::Debug( 2, "no request found" );
@@ -281,8 +324,6 @@
     return $retval;
 }
 
-
-
 =head2    getInterface($r)
 
 =head3 Parameter
@@ -302,16 +343,18 @@
 
 sub getInterface {
     my $r = shift;
+
     # check to see if we are editing managed content or seeking
     # one of the meta or admin interfaces
     my $interface_type;
     my $pathinfo = $r->path_info();
 
-    if ($pathinfo =~ s/^(\/)(\w*)//) {
+    if ( $pathinfo =~ s/^(\/)(\w*)// ) {
         $interface_type = $2;
-        XIMS::Debug(6, "Using interface type: " . $interface_type )
+        XIMS::Debug( 6, "Using interface type: " . $interface_type );
     }
-    elsif ( not length $pathinfo or $pathinfo eq "/") {
+    elsif ( not length $pathinfo or $pathinfo eq "/" ) {
+
         #
         # if the user only types in '/goxims' or '/goxims/' we don't want to
         # give a 404. instead we redirect to the default bookmark. i think
@@ -346,16 +389,16 @@
 =cut
 
 sub getObject {
-    my $r = shift;
+    my $r    = shift;
     my $user = shift;
 
     my $retval = undef;
 
     if ( $r and $user ) {
-        my %id_or_path = ( language => 2 ); # de-at ... hardcode == nogood
+        my %id_or_path = ( language => 2 );    # de-at ... hardcode == nogood
         my $pathinfo = $r->path_info() || '/';
-        my %args = $r->args();
-        my $id = $args{id};
+        my %args     = $r->args();
+        my $id       = $args{id};
         if ( defined $id and $id > 0 ) {
             $id_or_path{id} = $id;
         }
@@ -386,23 +429,24 @@
 =cut
 
 sub getLanguagePref {
-    my $r = shift;
+    my $r       = shift;
     my $langrex = qr/(\w{1,8}(?:-\w{1,8})?)(?:;q=([0|1](?:\.\d{1,3})?))?/;
     my %langprefs;
     my %havelangs = XIMS::UILANGUAGES();
 
     # parse Header
-    foreach my $pref_field (split(/,/, $r->header_in( "Accept-Language" ))) {
+    foreach my $pref_field ( split( /,/, $r->header_in("Accept-Language") ) ) {
         my $qvalue;
         $pref_field =~ $langrex;
         $qvalue = $2 or $qvalue = "1";
-        push @{$langprefs{$qvalue}}, $1;
+        push @{ $langprefs{$qvalue} }, $1;
     }
 
     # compare
-    foreach my $wantlang (reverse sort keys(%langprefs)) {
+    foreach my $wantlang ( reverse sort keys(%langprefs) ) {
         foreach my $langpref ( keys %havelangs ) {
-            map { $_ =~ $havelangs{$langpref} ? return $langpref : next;} @{$langprefs{$wantlang}};
+            map { $_ =~ $havelangs{$langpref} ? return $langpref : next; }
+              @{ $langprefs{$wantlang} };
         }
     }
 
@@ -431,8 +475,9 @@
 
 Copyright (c) 2002-2007 The XIMS Project.
 
-See the file F<LICENSE> for information and conditions for use, reproduction,
-and distribution of this work, and for a DISCLAIMER OF ALL WARRANTIES.
+See the file F<LICENSE> for information and conditions for use,
+reproduction, and distribution of this work, and for a DISCLAIMER OF ALL
+WARRANTIES.
 
 =cut
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Revision: 1824
          http://xims.svn.sourceforge.net/xims/?rev=1824&view=rev
Author:   haensel
Date:     2007-11-30 06:53:48 -0800 (Fri, 30 Nov 2007)

Log Message:
-----------
+ calm perlcritic.

Modified Paths:
--------------
    trunk/xims/lib/godav.pm

Modified: trunk/xims/lib/godav.pm
===================================================================
--- trunk/xims/lib/godav.pm	2007-11-30 10:37:46 UTC (rev 1823)
+++ trunk/xims/lib/godav.pm	2007-11-30 14:53:48 UTC (rev 1824)
@@ -1,11 +1,12 @@
 
+
 =head1 NAME
 
 godav -- XIMS' mod_perl handler for WebDAV.
 
 =head1 VERSION
 
-$Id:$
+$Id$
 
 =head1 SYNOPSIS
 
@@ -77,11 +78,11 @@
             }
         }
     }
-
+    ## no critic (ProhibitNoStrict)
     no strict 'refs';
     my ($status_code, $content) = &{$method}( $r, $user );
     use strict 'refs';
-
+    ## use critic
     #$r->header_out( 'Status', $status_code );
     $r->status( $status_code );
     if ( defined $content ) {
@@ -189,12 +190,13 @@
         # now that should be moved to run()....
         my $ot_fullname = $object->object_type->fullname();
         $object_class .= 'XIMS::' . $ot_fullname;
-
+        ## no critic (ProhibitStringyEval)
         # load the object class
         eval "require $object_class;" if $object_class;
         if ( $@ ) {
             $status_code = 500;
         }
+        ## use critic
         bless $object, $object_class;
 
         if ( $object->data_format->mime_type =~ /^text/ ) {
@@ -230,12 +232,13 @@
 
         # now that should be moved somewhere else....
         $object_class .= 'XIMS::' . $object_type->fullname;
-
+        ## no critic (ProhibitStringyEval)
         # load the object class
         eval "require $object_class;" if $object_class;
         if ( $@ ) {
             $status_code = 500;
         }
+        ## use critic
         my ( $location ) = ( $path =~ m|([^/]+)$| );
         $object = $object_class->new( User => $user, location => $location );
         $object->data_format_id( $data_format->id() ) if defined $data_format;
@@ -653,9 +656,11 @@
     return (404) unless defined $object;
 
     my $privmask = $user->object_privmask( $object );
+    ## no critic (ProhibitNoStrict)
     no strict 'refs';
     return (403) unless $privmask & &{"XIMS::Privileges::$method"};
     use strict 'refs';
+    ## use critic
     $method = lc $method;
 
     if ( $method eq 'move' and $object->published() ) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Revision: 1823
          http://xims.svn.sourceforge.net/xims/?rev=1823&view=rev
Author:   haensel
Date:     2007-11-30 02:37:46 -0800 (Fri, 30 Nov 2007)

Log Message:
-----------
+ make creating and editing vlauthors more robust.

Modified Paths:
--------------
    trunk/xims/lib/XIMS/CGI/VLibrary.pm
    trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_edit.xsl

Added Paths:
-----------
    trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_show.xsl

Modified: trunk/xims/lib/XIMS/CGI/VLibrary.pm
===================================================================
--- trunk/xims/lib/XIMS/CGI/VLibrary.pm	2007-11-29 23:27:20 UTC (rev 1822)
+++ trunk/xims/lib/XIMS/CGI/VLibrary.pm	2007-11-30 10:37:46 UTC (rev 1823)
@@ -35,36 +35,37 @@
     XIMS::CGI::registerEvents(
         $self,
         qw(
-            create
-            edit
-            store
-            obj_acllist
-            obj_aclgrant
-            obj_aclrevoke
-            publish
-            publish_prompt
-            unpublish
-            subject
-            subject_store
-            subject_edit
-            subject_view
-            keywords
-            keyword
-            authors
-            author
-            author_store
-            author_edit
-            author_delete_prompt
-            author_delete
-            publications
-            publication
-            vlsearch
-            vlchronicle
-            most_recent
-            simile
-            filter
-            filter_create
-            )
+          create
+          edit
+          store
+          obj_acllist
+          obj_aclgrant
+          obj_aclrevoke
+          publish
+          publish_prompt
+          unpublish
+          subject
+          subject_store
+          subject_edit
+          subject_view
+          keywords
+          keyword
+          authors
+          author
+          author_store
+          author_edit
+          author_show
+          author_delete_prompt
+          author_delete
+          publications
+          publication
+          vlsearch
+          vlchronicle
+          most_recent
+          simile
+          filter
+          filter_create
+          )
     );
 }
 
@@ -98,14 +99,13 @@
 sub event_copy {
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
-    return $self->sendError( $ctxt,
-        "Copying VLibraries is not implemented." );
+    return $self->sendError( $ctxt, "Copying VLibraries is not implemented." );
 }
 
 # jokar: Enable deletion of Vlibraries. Metadata is not deleted
 # (Authors, Keywords, Subjects, ...)
 
-# sub event_delete {
+#sub event_delete {
 #    XIMS::Debug( 5, "called" );
 #    my ( $self, $ctxt ) = @_;
 #    return $self->sendError( $ctxt, "Deleting VLibraries is not implemented." );
@@ -163,8 +163,8 @@
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
     my $object = $ctxt->object();
-    unless ( $ctxt->session->user->object_privmask($object)
-        & XIMS::Privileges::WRITE )
+    unless ( $ctxt->session->user->object_privmask($object) &
+        XIMS::Privileges::WRITE )
     {
         return $self->event_access_denied($ctxt);
     }
@@ -197,7 +197,7 @@
         return $self->sendError( $ctxt, "Error updating Subject." );
     }
     XIMS::Debug( 6, "Subject updated" );
-    _update_or_publish($ctxt); # update the VLibrary's timestamps
+    _update_or_publish($ctxt);    # update the VLibrary's timestamps
     $self->redirect( $self->redirect_path( $ctxt, $ctxt->object->id() ) );
     return 0;
 }
@@ -250,8 +250,8 @@
 
     # operation control section
     # whole VLibrary is locked if subject is edited
-    unless ( $ctxt->session->user->object_privmask($object)
-        & XIMS::Privileges::WRITE )
+    unless ( $ctxt->session->user->object_privmask($object) &
+        XIMS::Privileges::WRITE )
     {
         return $self->event_access_denied($ctxt);
     }
@@ -260,18 +260,18 @@
     if ( $self->object_locked($ctxt) ) {
         XIMS::Debug( 3, "Attempt to edit locked object" );
         $self->sendError( $ctxt,
-                  "This object is locked by "
-                . $object->locker->firstname() . " "
-                . $object->locker->lastname()
-                . " since "
-                . $object->locked_time()
-                . ". Please try again later." );
+                "This object is locked by "
+              . $object->locker->firstname() . " "
+              . $object->locker->lastname()
+              . " since "
+              . $object->locked_time()
+              . ". Please try again later." );
     }
     else {
         if ( $object->lock() ) {
             XIMS::Debug( 4, "lock set" );
             $ctxt->session->message(
-                "Obtained lock. Please use 'Save' or 'Cancel' to release the lock!"
+"Obtained lock. Please use 'Save' or 'Cancel' to release the lock!"
             );
         }
         else {
@@ -359,10 +359,9 @@
 
     my $authorid = $self->param('author_id');
     unless ($authorid) {
-        my $authorfirstname
-            = XIMS::decode( $self->param('author_firstname') );
-        my $authormiddlename
-            = XIMS::decode( $self->param('author_middlename') );
+        my $authorfirstname = XIMS::decode( $self->param('author_firstname') );
+        my $authormiddlename =
+          XIMS::decode( $self->param('author_middlename') );
         my $authorlastname = XIMS::decode( $self->param('author_lastname') );
 
         my $author;
@@ -370,9 +369,9 @@
         if ( $authorlastname and $authorfirstname ) {
             XIMS::Debug( 4, "high chance for personal author" );
             $author = XIMS::VLibAuthor->new(
-                firstname  => $authorfirstname,
-                middlename => $authormiddlename,
-                lastname   => $authorlastname,
+                firstname   => $authorfirstname,
+                middlename  => $authormiddlename,
+                lastname    => $authorlastname,
                 document_id => $ctxt->object->document_id(),
             );
             if ( $author and $author->id() ) {
@@ -421,8 +420,8 @@
 
     # operation control section
     # whole VLibrary is locked if author is edited
-    unless ( $ctxt->session->user->object_privmask($object)
-        & XIMS::Privileges::WRITE )
+    unless ( $ctxt->session->user->object_privmask($object) &
+        XIMS::Privileges::WRITE )
     {
         return $self->event_access_denied($ctxt);
     }
@@ -432,18 +431,18 @@
     if ( $self->object_locked($ctxt) ) {
         XIMS::Debug( 3, "Attempt to edit locked object" );
         $self->sendError( $ctxt,
-                  "This object is locked by "
-                . $object->locker->firstname() . " "
-                . $object->locker->lastname()
-                . " since "
-                . $object->locked_time()
-                . ". Please try again later." );
+                "This object is locked by "
+              . $object->locker->firstname() . " "
+              . $object->locker->lastname()
+              . " since "
+              . $object->locked_time()
+              . ". Please try again later." );
     }
     else {
         if ( $object->lock() ) {
             XIMS::Debug( 4, "lock set" );
             $ctxt->session->message(
-                "Obtained lock. Please use 'Save' or 'Cancel' to release the lock!"
+"Obtained lock. Please use 'Save' or 'Cancel' to release the lock!"
             );
         }
         else {
@@ -467,13 +466,37 @@
     return 0;
 }
 
+sub event_author_show {
+    XIMS::Debug( 5, "called" );
+    my ( $self, $ctxt ) = @_;
+
+    my $object = $ctxt->object();
+
+    $ctxt->properties->application->style("author_show");
+
+    my $authorid = $self->param('author_id');
+    my $author;
+
+    if ( defined $authorid and $authorid ) {
+        $author = XIMS::VLibAuthor->new(
+            id          => $authorid,
+            document_id => $object->document_id()
+        );
+    }
+    else {
+        return $self->sendError( $ctxt, "Missing author_id." );
+    }
+    $ctxt->objectlist( [$author] );
+    return 0;
+}
+
 sub event_author_store {
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
 
     my $object = $ctxt->object();
-    unless ( $ctxt->session->user->object_privmask($object)
-        & XIMS::Privileges::WRITE )
+    unless ( $ctxt->session->user->object_privmask($object) &
+        XIMS::Privileges::WRITE )
     {
         return $self->event_access_denied($ctxt);
     }
@@ -482,20 +505,21 @@
     $object->unlock();
 
     my $id         = $self->param('vlauthor_id');
-    my $firstname  = XIMS::clean( $self->param('vlauthor_firstname') )  || '';
-    my $middlename = XIMS::clean( $self->param('vlauthor_middlename') ) || '';
-    my $lastname   = XIMS::clean( $self->param('vlauthor_lastname') )   || '';
-    my $suffix     = XIMS::clean( $self->param('vlauthor_suffix') )     || '';
-    my $objecttype = XIMS::clean( $self->param('vlauthor_object_type')  || '');
-    my $url        = XIMS::clean( $self->param('vlauthor_url')          || '');
-    my $image_url  = XIMS::clean( $self->param('vlauthor_image_url')    || '');
-    my $email      = XIMS::clean( $self->param('vlauthor_email')        || '');
+    my $firstname  = XIMS::clean( $self->param('vlauthor_firstname') )   || '';
+    my $middlename = XIMS::clean( $self->param('vlauthor_middlename') )  || '';
+    my $lastname   = XIMS::clean( $self->param('vlauthor_lastname') )    || '';
+    my $suffix     = XIMS::clean( $self->param('vlauthor_suffix') )      || '';
+    my $objecttype = XIMS::clean( $self->param('vlauthor_object_type') ) || '';
+    my $url        = XIMS::clean( $self->param('vlauthor_url') )         || '';
+    my $image_url  = XIMS::clean( $self->param('vlauthor_image_url') )   || '';
+    my $email      = XIMS::clean( $self->param('vlauthor_email') )       || '';
     my $vlibauthor;
 
-    XIMS::Debug( 6, "id: $id firstname: $firstname middlename: $middlename "
-                  . "lastname: $lastname suffix: $suffix "
-                  . "objecttype: $objecttype url: $url image_url: $image_url"
-                  . "email: $email" );
+    XIMS::Debug( 6,
+            "id: $id firstname: $firstname middlename: $middlename "
+          . "lastname: $lastname suffix: $suffix "
+          . "objecttype: $objecttype url: $url image_url: $image_url"
+          . "email: $email" );
 
     if ( defined $id and $id ) {
         $vlibauthor = XIMS::VLibAuthor->new(
@@ -504,6 +528,7 @@
         );
     }
     else {
+
         # create new VLibAuthor
         $vlibauthor = XIMS::VLibAuthor->new();
         $vlibauthor->document_id( $object->document_id() );
@@ -525,24 +550,33 @@
             $vlibauthor->object_type(0);
         }
 
-        unless ( $vlibauthor->id() ) {
-            if ( not $vlibauthor->create() ) {
-                XIMS::Debug( 3, "could not create author" );
-                next;
-            }
-        }
-        else {
+        if ( $vlibauthor->id() ) {            # update author
             if ( $vlibauthor->update == 1 ) {
-                _update_or_publish($ctxt); # update the VLibrary's timestamps
+                _update_or_publish($ctxt);    # update the VLibrary's timestamps
                 XIMS::Debug( 6, "VLibAuthor: Update record successful." );
-                $ctxt->properties->application->style("objectlist");
+                $self->redirect( $self->redirect_path($ctxt)
+                      . '?author_show=1;author_id='
+                      . $vlibauthor->id() );
             }
             else {
                 XIMS::Debug( 3, "VLibAuthor: Update record failed." );
                 return $self->sendError( $ctxt,
-                    "Author: Update record failed." );
+                                         "Author: Update record failed." );
             }
         }
+        else {                                # create author
+            if ( $vlibauthor->create() ) {
+                _update_or_publish($ctxt);    # update the VLibrary's timestamps
+                XIMS::Debug( 6, "VLibAuthor: Update record successful." );
+                $self->redirect( $self->redirect_path($ctxt)
+                      . '?author_show=1;author_id='
+                      . $vlibauthor->id() );
+            }
+            else {
+                XIMS::Debug( 3, "could not create author" );
+                next;
+            }
+        }
     }
     else {
         XIMS::Debug( 3, "Author: creation failed." );
@@ -559,8 +593,8 @@
     my $object = $ctxt->object();
 
     # operation control section
-    unless ( $ctxt->session->user->object_privmask($object)
-        & XIMS::Privileges::WRITE )
+    unless ( $ctxt->session->user->object_privmask($object) &
+        XIMS::Privileges::WRITE )
     {
         return $self->event_access_denied($ctxt);
     }
@@ -570,18 +604,18 @@
     if ( $self->object_locked($ctxt) ) {
         XIMS::Debug( 3, "Attempt to edit locked object" );
         $self->sendError( $ctxt,
-                  "This object is locked by "
-                . $object->locker->firstname() . " "
-                . $object->locker->lastname()
-                . " since "
-                . $object->locked_time()
-                . ". Please try again later." );
+                "This object is locked by "
+              . $object->locker->firstname() . " "
+              . $object->locker->lastname()
+              . " since "
+              . $object->locked_time()
+              . ". Please try again later." );
     }
     else {
         if ( $object->lock() ) {
             XIMS::Debug( 4, "lock set" );
             $ctxt->session->message(
-                "Obtained lock. Please use 'Save' or 'Cancel' to release the lock!"
+"Obtained lock. Please use 'Save' or 'Cancel' to release the lock!"
             );
         }
         else {
@@ -598,8 +632,8 @@
 
     my $object = $ctxt->object();
 
-    unless ( $ctxt->session->user->object_privmask($object)
-        & XIMS::Privileges::WRITE )
+    unless ( $ctxt->session->user->object_privmask($object) &
+        XIMS::Privileges::WRITE )
     {
         return $self->event_access_denied($ctxt);
     }
@@ -618,7 +652,7 @@
     }
 
     if ( defined $vlibauthor and $vlibauthor->delete ) {
-        _update_or_publish($ctxt); # update the VLibrary's timestamps
+        _update_or_publish($ctxt);    # update the VLibrary's timestamps
         XIMS::Debug( 6, "VLibAuthor $id: deleted!" );
     }
     else {
@@ -643,10 +677,9 @@
 
     my $publicationid = $self->param('publication_id');
     unless ($publicationid) {
-        my $publicationname
-            = XIMS::decode( $self->param('publication_name') );
-        my $publicationvolume
-            = XIMS::decode( $self->param('publication_volume') );
+        my $publicationname = XIMS::decode( $self->param('publication_name') );
+        my $publicationvolume =
+          XIMS::decode( $self->param('publication_volume') );
 
         #XIMS::Debug( 6, "publicationname: $publicationname publicationvolume: $publicationvolume" );
         if ( $publicationname and $publicationvolume ) {
@@ -682,10 +715,10 @@
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
 
-    my $current_user_object_priv
-        = $ctxt->session->user->object_privmask( $ctxt->object );
+    my $current_user_object_priv =
+      $ctxt->session->user->object_privmask( $ctxt->object );
     return $self->event_access_denied($ctxt)
-        unless $current_user_object_priv & XIMS::Privileges::PUBLISH();
+      unless $current_user_object_priv & XIMS::Privileges::PUBLISH();
 
     $ctxt->properties->application->styleprefix('common_publish');
     $ctxt->properties->application->style('prompt');
@@ -758,25 +791,26 @@
     XIMS::Debug( 6, "param $search" );
 
     # length within 2..30 chars
-    if ( defined $search and length($search) >= 2 and length($search) <= 30 )
-    {
+    if ( defined $search and length($search) >= 2 and length($search) <= 30 ) {
         my $qbdriver = XIMS::DBDSN();
         $qbdriver = ( split( ':', $qbdriver ) )[1];
         $qbdriver = 'XIMS::QueryBuilder::' . $qbdriver . XIMS::QBDRIVER();
-
-        eval "require $qbdriver";    #
+        ## no critic (ProhibitStringyEval)
+        eval "require $qbdriver";
         if ($@) {
             XIMS::Debug( 2, "querybuilderdriver $qbdriver not found" );
             $ctxt->send_error("QueryBuilder-Driver could not be found!");
             return 0;
         }
-
+        ## use critic
         use encoding "latin-1";
-        my $allowed = XIMS::decode(
+        my $allowed =
+          XIMS::decode(
             q{\!a-zA-Z0-9\xF6\xE4\xFC\xDF\xD6\xC4\xDC\xDF%:\-<>\/\(\)\\.,\*&\?\+\^'\"\$\;\[\]~})
-            ;                        ## just for emacs' font-lock... ;-)
+          ;    ## just for emacs' font-lock... ;-)
         my $qb = $qbdriver->new(
-            {   search         => $search,
+            {
+                search         => $search,
                 allowed        => $allowed,
                 fieldstolookin => [qw(title abstract body)]
             }
@@ -801,12 +835,12 @@
                     criteria   => $qb->criteria(),
                     start_here => $ctxt->object()
                 );
-                my $count = $ctxt->object->find_objects_granted_count(%param);
+                my $count   = $ctxt->object->find_objects_granted_count(%param);
                 my $message = "Query returned $count objects.";
                 $message .= " Displaying objects " . ( $offset + 1 )
-                    if $count >= $rowlimit;
+                  if $count >= $rowlimit;
                 $message .= " to " . ( $offset + $rowlimit )
-                    if ( $offset + $rowlimit <= $count );
+                  if ( $offset + $rowlimit <= $count );
                 $ctxt->session->message($message);
                 $ctxt->session->searchresultcount($count);
             }
@@ -828,7 +862,6 @@
     return 0;
 }
 
-
 #
 # event filter_create
 #
@@ -872,23 +905,26 @@
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
 
-    my $user   = $ctxt->session->user();
+    my $user = $ctxt->session->user();
 
     # Build filter criteria
     my %criteria = ();
-    my %params = ();
+    my %params   = ();
 
     # subjects
     my $subject_ids = $self->param('sid');
     if ( defined $subject_ids ) {
         XIMS::Debug( 6, "subject param '$subject_ids'" );
-        $criteria{subjects} = " sm.document_id = d.id AND sm.subject_id IN ( $subject_ids ) ";
+        $criteria{subjects} =
+          " sm.document_id = d.id AND sm.subject_id IN ( $subject_ids ) ";
     }
+
     # keywords
     my $keyword_ids = $self->param('kid');
     if ( defined $keyword_ids ) {
         XIMS::Debug( 6, "keyword param '$keyword_ids'" );
-        $criteria{keywords} = " km.document_id = d.id AND km.keyword_id IN ( $keyword_ids ) ";
+        $criteria{keywords} =
+          " km.document_id = d.id AND km.keyword_id IN ( $keyword_ids ) ";
     }
 
     # authors
@@ -899,12 +935,12 @@
     if ( defined $mediatype ) {
         XIMS::Debug( 6, "mediatype param '$mediatype'" );
         $criteria{mediatype} = " m.mediatype = ? ";
-        $params{mediatype} = $mediatype;
+        $params{mediatype}   = $mediatype;
     }
 
     # chronicle dates
     my $date_from = $self->_heuristic_date_parser( $self->param('cf') );
-    my $date_to = $self->_heuristic_date_parser( $self->param('ct') );
+    my $date_to   = $self->_heuristic_date_parser( $self->param('ct') );
     if ( defined $date_from ) {
         XIMS::Debug( 6, "date_from param '$date_from'" );
     }
@@ -912,35 +948,38 @@
         XIMS::Debug( 6, "date_to param '$date_to'" );
     }
     if ( ( defined $date_from ) or ( defined $date_to ) ) {
-        my %date_conditions_values = $ctxt->object->_date_conditions_values( $date_from, $date_to );
+        my %date_conditions_values =
+          $ctxt->object->_date_conditions_values( $date_from, $date_to );
         $criteria{chronicle} = $date_conditions_values{conditions};
-        $params{chronicle} = $date_conditions_values{values};
+        $params{chronicle}   = $date_conditions_values{values};
     }
 
     # fulltext search
-    my $text = $self->param('vls') ;
+    my $text = $self->param('vls');
 
     if ( defined $text ) {
         XIMS::Debug( 6, "fulltext param $text" );
+
         # length within 2..30 chars
-        if ( length($text) >= 2 and length($text) <= 30 )
-        {
+        if ( length($text) >= 2 and length($text) <= 30 ) {
             my $qbdriver = XIMS::DBDSN();
             $qbdriver = ( split( ':', $qbdriver ) )[1];
             $qbdriver = 'XIMS::QueryBuilder::' . $qbdriver . XIMS::QBDRIVER();
-
-            eval "require $qbdriver";    #
+            ## no critic (ProhibitStringyEval)
+            eval "require $qbdriver";
             if ($@) {
                 XIMS::Debug( 2, "querybuilderdriver $qbdriver not found" );
                 $ctxt->send_error("QueryBuilder-Driver could not be found!");
                 return 0;
             }
-
+            ## use critic
             use encoding "latin-1";
-            my $allowed = XIMS::decode(
+            my $allowed =
+              XIMS::decode(
                 q{\!a-zA-Z0-9\xF6\xE4\xFC\xDF\xD6\xC4\xDC\xDF%:\-<>\/\(\)\\.,\*&\?\+\^'\"\$\;\[\]~});
             my $qb = $qbdriver->new(
-                {   search         => $text,
+                {
+                    search         => $text,
                     allowed        => $allowed,
                     fieldstolookin => [qw(title abstract body)]
                 }
@@ -948,7 +987,7 @@
             if ( defined $qb ) {
                 my $textcriteria = $qb->criteria();
                 $criteria{text} = shift( @{$textcriteria} );
-                $params{text} = $textcriteria;
+                $params{text}   = $textcriteria;
             }
             else {
                 XIMS::Debug( 3, "please specify a valid query" );
@@ -958,10 +997,12 @@
         }
         else {
             XIMS::Debug( 3, "catched improper query length" );
-            $self->sendError( $ctxt, "Please keep your queries between 2 and 30 characters!" );
+            $self->sendError( $ctxt,
+                "Please keep your queries between 2 and 30 characters!" );
             return 0;
         }
     }
+
     # end of building filter criteria
 
     # parameters for diplaying result
@@ -972,6 +1013,7 @@
     $offset ||= 0;
 
     my $rowlimit = $self->param('rowlimit');
+
     # rowlimit = 0 means no limit (display all results)
     if ( ( !defined $rowlimit ) or ( $rowlimit != 0 ) ) {
         $rowlimit = 10;
@@ -988,10 +1030,11 @@
         $order = 'alpha';
     }
 
-    XIMS::Debug(6,"Filter criteria:" . Dumper(%criteria));
-    XIMS::Debug(6,"Filter params:" . Dumper(%params));
 
-    #define parameters for query
+    XIMS::Debug( 6, "Filter criteria:" . Dumper(%criteria) );
+    XIMS::Debug( 6, "Filter params:"   . Dumper(%params) );
+
+    # define parameters for query
     my %param = (
         criteria   => \%criteria,
         params     => \%params,
@@ -1001,7 +1044,7 @@
         start_here => $ctxt->object(),
     );
 
-    my @objects = $ctxt->object->vlitems_byfilter_granted( %param );
+    my @objects = $ctxt->object->vlitems_byfilter_granted(%param);
 
     if ( not @objects ) {
         $ctxt->session->warning_msg("Query returned no objects!");
@@ -1012,10 +1055,12 @@
             params     => \%params,
             start_here => $ctxt->object()
         );
-        my $count = $ctxt->object->vlitems_byfilter_granted_count( %param );
+        my $count   = $ctxt->object->vlitems_byfilter_granted_count(%param);
         my $message = "Query returned $count objects.";
-        $message .= " Displaying objects " . ( $offset + 1 ) if $count >= $rowlimit;
-        $message .= " to " . ( $offset + $rowlimit ) if ( $offset + $rowlimit <= $count );
+        $message .= " Displaying objects " . ( $offset + 1 )
+          if $count >= $rowlimit;
+        $message .= " to " . ( $offset + $rowlimit )
+          if ( $offset + $rowlimit <= $count );
         $ctxt->session->message($message);
         $ctxt->session->searchresultcount($count);
     }
@@ -1035,7 +1080,6 @@
     return 0;
 }
 
-
 sub event_most_recent {
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
@@ -1059,10 +1103,9 @@
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
 
-    my $date_from
-        = $self->_heuristic_date_parser( $self->param('chronicle_from') );
-    my $date_to
-        = $self->_heuristic_date_parser( $self->param('chronicle_to') );
+    my $date_from =
+      $self->_heuristic_date_parser( $self->param('chronicle_from') );
+    my $date_to = $self->_heuristic_date_parser( $self->param('chronicle_to') );
 
     XIMS::Debug( 6, "Chronicle from $date_from to $date_to." );
 
@@ -1084,9 +1127,9 @@
         );
         my $message = "Query returned $count objects.";
         $message .= " Displaying objects " . ( $offset + 1 )
-            if $count >= $rowlimit;
+          if $count >= $rowlimit;
         $message .= " to " . ( $offset + $rowlimit )
-            if ( $offset + $rowlimit <= $count );
+          if ( $offset + $rowlimit <= $count );
         $ctxt->session->message($message);
         $ctxt->session->searchresultcount($count);
     }
@@ -1116,14 +1159,13 @@
     XIMS::Debug( 5, "called" );
     my ( $self, $ctxt ) = @_;
 
-    my $date_from
-        = $self->_heuristic_date_parser( $self->param('chronicle_from') );
-    my $date_to
-        = $self->_heuristic_date_parser( $self->param('chronicle_to') );
+    my $date_from =
+      $self->_heuristic_date_parser( $self->param('chronicle_from') );
+    my $date_to = $self->_heuristic_date_parser( $self->param('chronicle_to') );
 
     if ( not $date_from and not $date_to ) {
         $ctxt->session->message(
-            'Loading all chronicle data may take a lot of time. Consider providing a filter time span!'
+'Loading all chronicle data may take a lot of time. Consider providing a filter time span!'
         );
     }
 
@@ -1184,6 +1226,7 @@
     else {
         $ctxt->object->update();
     }
+
 }
 
 1;

Modified: trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_edit.xsl
===================================================================
--- trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_edit.xsl	2007-11-29 23:27:20 UTC (rev 1822)
+++ trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_edit.xsl	2007-11-30 10:37:46 UTC (rev 1823)
@@ -27,10 +27,9 @@
       </head>
       <body>
         <div style="margin:0.66em;padding:0.33em;background-color:#eeeeee;">
-        <form action="{$xims_box}{$goxims_content}"
+          <form action="{$xims_box}{$goxims_content}"
               name="eform"
-              method="GET"
-              onSubmit="window.opener.document.location.reload();self.close();">
+              method="GET">
           <input type="hidden" name="id" id="id" value="{@id}"/>
           <xsl:apply-templates select="/document/context/object/children"/>
         </form>
@@ -165,9 +164,12 @@
       </table>
     </fieldset>
     <p>
-      <input type="hidden" name="vlauthor_id" id="vlauthor_id" value="{@id}"/>
-      <input type="submit" name="author_store" value="{$i18n/l/save}" class="control" accesskey="S"></input>
-      <input type="submit" name="cancel" value="{$i18n/l/cancel}" class="control" accesskey="C"></input>
+      <input type="hidden"
+             name="vlauthor_id"
+             id="vlauthor_id"
+             value="{@id}"/>
+      <input type="submit" name="author_store" value="{$i18n/l/save}" class="control" accesskey="S"/>
+      <input type="submit" name="cancel" value="{$i18n/l/cancel}" class="control" accesskey="C" onClick="self.close();"/>
     </p>
   </xsl:template>
 </xsl:stylesheet>

Added: trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_show.xsl
===================================================================
--- trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_show.xsl	                        (rev 0)
+++ trunk/xims/www/ximsroot/skins/default/stylesheets/vlibrary_author_show.xsl	2007-11-30 10:37:46 UTC (rev 1823)
@@ -0,0 +1,216 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<!--
+# Copyright (c) 2002-2006 The XIMS Project.
+# See the file "LICENSE" for information and conditions for use, reproduction,
+# and distribution of this work, and for a DISCLAIMER OF ALL WARRANTIES.
+# $Id: vlibrary_publications.xsl 1442 2006-03-26 18:51:16Z pepl $
+-->
+<xsl:stylesheet version="1.0"
+                xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+                xmlns:exslt="http://exslt.org/common">
+  <xsl:import href="common.xsl"/>
+  <xsl:output method="xml"
+              encoding="utf-8"
+              media-type="text/html"
+              doctype-system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
+              doctype-public="-//W3C//DTD XHTML 1.0 Transitional//EN"
+              omit-xml-declaration="yes"
+              indent="yes"/>
+  <xsl:variable name="i18n_vlib"
+                select="document(concat($currentuilanguage,'/i18n_vlibrary.xml'))"/>
+  <xsl:variable name="i18n"
+                select="document(concat($currentuilanguage,'/i18n.xml'))"/>
+
+  <xsl:template match="/document/context/object">
+    <html>
+      <head>
+        <title>
+          <xsl:value-of select="$i18n_vlib/l/author"/>
+        </title>
+        <link rel="stylesheet" href="{$ximsroot}{$defaultcss}" type="text/css" />
+      </head>
+      <body>
+        <div style="margin:0.66em;padding:0.33em;background-color:#eeeeee;">
+          <form action="%200"
+                name="eform"
+                method="%200">
+            <input type="hidden" name="id" id="id" value="{@id}"/>
+            <xsl:apply-templates select="/document/context/object/children"/>
+          </form>
+        </div>
+      </body>
+    </html>
+  </xsl:template>
+  
+  <xsl:template match="children/object">
+    <fieldset>
+      <legend>
+        <xsl:value-of select="$i18n_vlib/l/author"/>
+      </legend>
+      <table>
+        <tr>
+          <td>
+            <label for="vlauthor_firstname">
+              <xsl:value-of select="$i18n_vlib/l/firstname"/>
+            </label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_firstname" 
+                   name="vlauthor_firstname" 
+                   size="25" 
+                   value="{firstname}" 
+                   class="text" 
+                   title="{$i18n_vlib/l/firstname}"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_middlename">
+              <xsl:value-of select="$i18n_vlib/l/middlename"/>
+            </label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_middlename" 
+                   name="vlauthor_middlename" 
+                   size="25" 
+                   value="{middlename}" 
+                   class="text"
+                   title="{$i18n_vlib/l/middlename}"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_lastname">
+              <xsl:value-of select="$i18n_vlib/l/lastname"/>
+            </label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_lastname" 
+                   name="vlauthor_lastname"
+                   size="50"
+                   value="{lastname}" 
+                   class="text" 
+                   title="{$i18n_vlib/l/lastname}"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_suffix">
+              <xsl:value-of select="$i18n_vlib/l/suffix"/>
+            </label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_suffix" 
+                   name="vlauthor_suffix"
+                   size="5"
+                   value="{suffix}"
+                   class="text"
+                   title="{$i18n_vlib/l/suffix}"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_email">E-Mail</label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_email" 
+                   name="vlauthor_email"
+                   size="50"
+                   value="{email}"
+                   class="text"
+                   title="E-Mail"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_url">URL</label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_url" 
+                   name="vlauthor_url"
+                   size="50"
+                   value="{url}"
+                   class="text"
+                   title="URL"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_image_url">Image URL</label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40"
+                   readonly="readonly"
+                   style="background-color:#eeeeee;"
+                   type="text" 
+                   id="vlauthor_image_url" 
+                   name="vlauthor_image_url"
+                   size="50"
+                   value="{image_url}"
+                   class="text"
+                   title="Image URL"/>
+          </td>
+        </tr>
+        <tr>
+          <td>
+            <label for="vlauthor_object_type">
+              <xsl:value-of select="$i18n_vlib/l/orgauthor"/>
+            </label>
+          </td>
+          <td colspan="2">
+            <input tabindex="40" 
+                   type="checkbox"
+                   style="background-color:#eeeeee;"
+                   readonly="readonly" 
+                   id="vlauthor_object_type" 
+                   name="vlauthor_object_type" 
+                   class="text" 
+                   title="{$i18n_vlib/l/orgauthor}"
+                   value="1">
+              <xsl:if test="object_type=1">
+                <xsl:attribute name="checked">checked</xsl:attribute>
+              </xsl:if>
+            </input>
+          </td>
+        </tr>
+      </table>
+    </fieldset>
+    <p>
+      <input type="submit"
+             onClick="window.opener.document.location.reload();self.close();return false;"
+             value="OK, {$i18n/l/close_window}"
+             class="control"
+             accesskey="S"/>
+      
+      <!-- The simple solution history.go(-1) would lead to a stale -->
+      <!-- second entry, if we wanted tho fix a freshly created author. -->
+      <input type="submit"
+             onClick="location.replace('{$xims_box}{$goxims_content}' +
+                      '?id={/document/context/object/@id}' +
+                      ';author_edit=1;author_id={@id}'); return false;"
+             value="{$i18n/l/Back}" class="control" accesskey="B"/> </p>
+    </xsl:template> </xsl:stylesheet>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.