---
C4/SIP/Sip/MsgType.pm | 12 +++++++++++-
1 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm
index 6ff6b7b..bf390c7 100644
--- a/C4/SIP/Sip/MsgType.pm
+++ b/C4/SIP/Sip/MsgType.pm
@@ -839,7 +839,15 @@ sub handle_login {
$status = 0;
}
else { $status = login_core($server,$uid,$pwd); }
-=doc
+
+=pod
+
+Note: This block was commented out with improperly formatted POD. It
+was not interpreted by perl, but not properly handled by POD
+formatters. I fixed the POD syntax error so this code is now obviously
+a comment and not code. The code has been extracted to the login_core
+sub and is called above. -- amoore Aug 12, 2008
+
if (!exists($server->{config}->{accounts}->{$uid})) {
syslog("LOG_WARNING", "MsgType::handle_login: Unknown login
'$uid'");
$status = 0;
@@ -882,7 +890,9 @@ sub handle_login {
}
}
}
+
=cut
+
$self->write_msg(LOGIN_RESP . $status);
return $status ? LOGIN : '';
}
--
1.5.6
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
